M
maming
Unregistered / Unconfirmed
GUEST, unregistred user!
最简单的做法,我已成功的搞定。
建立一个包含midas.dll的资源文件m.rc
"MIDAS DLLFILE C:/WINDOWS/SYSTEM/MIDAS.DLL"编译它
在DOS的提示符下打 BRCC32 m.rc 硬盘哗啦啦转一会儿后，就编译完了
生成"m.res"文件.
在源程序中加入下面这一句段
{$R m.RES} 编译系统即可
下面是从EXE中出来的代码。
procedure ExtractRes(ResType, ResName, ResNewName : String);
var Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExtractRes('DLLFILE','MIDAS','MM.DLL');
end;
建立一个包含midas.dll的资源文件m.rc
"MIDAS DLLFILE C:/WINDOWS/SYSTEM/MIDAS.DLL"编译它
在DOS的提示符下打 BRCC32 m.rc 硬盘哗啦啦转一会儿后，就编译完了
生成"m.res"文件.
在源程序中加入下面这一句段
{$R m.RES} 编译系统即可
下面是从EXE中出来的代码。
procedure ExtractRes(ResType, ResName, ResNewName : String);
var Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExtractRes('DLLFILE','MIDAS','MM.DLL');
end;