释放资源文件

// 首先加入.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;