delphi写程序难免会有资源文件，程序调用的时候需要先释放RES资源文件，本函数ExtractRes就是专门用于释放资源文件的！

Function ExtractRes(ResName, ResNewName : String):boolean;
var Res : TResourceStream;
begin
  GetWindowsDirectory(SysDir,128);  //获取系统盘windows文件夹路径
  Rjsflj:= copy(SysDir,1,1)+':Aisinozhfw'; //设置资源文件释放路径为C:Aisinozhfw
  //以下代码是如果系统盘没有，就创建Aisinozhfw文件夹
  if not DirectoryExists(Rjsflj) then
  begin
  ForceDirectories(Rjsflj);
  end;
  //以下代码是读取RES资源文件，保存其中文件到创建的目录
  try
  Res := TResourceStream.Create(Hinstance, ResName, RT_RCDATA);
  try
  Res.SavetoFile(Rjsflj+ResNewName);
  Result:=true;
  finally
  Res.Free;
  end;
  except
  Result:=false;
  end;
end;

//调用方法如下
begin
ExtractRes('TAXCA2','01.taxca2.crt');
end;
其中TAXCA2是资源文件RC中的编码，01.taxca2.crt是资源文件名
注意：文件类型最好都设置为RCDATA