自己做一个资源文件的描述文本RC文件,例如 sample.rc ,
“记事本”程序创建就行了。然后可以输入一些我们要定义的资源,
例如:
MIDAS DLLFILE C:/WINDOWS/SYSTEM/MIDAS.DLL
然后用BRCC32把这个RC文件编译成sample.res(真正的资源文件)。
在Delphi的工程文件中使用 $R 编译指令让Delphi包括资源到EXE文件里面。
{$R sample.res}
使用时将其释放出来即可。举例如下:
procedure TForm1.OnCreate(Sender: TObject);
begin
ExtractRes('DLLFILE','MIDAS','/Midas.DLL');
end;
procedure TForm1.ExtractRes(ResType, ResName, ResNewName: String);
var Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;