释放资源文件

//  首先加入.RC文件，写上 MyDLL DAT testDLL.dll
//  然后程序里 ExtractRes( ' DAT ' , ' MyDLL ' , ' 123DLL.dll ' );
procedure  ExtractRes(ResType, ResName, ResNewName:String);
var  Res:TResourceStream;
begin
  Res: = TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
   try
    Res.SavetoFile( ' .\ ' + ResNewName);   //  释放到当前目录
   finally
    Res.Free;
   end ;
end ;

转载于:https://www.cnblogs.com/bsoom/archive/2009/11/14/1602847.html