您的位置：程序门 -> delphi -> 语言基础/算法/系统设计

如何释放dll中的res资源

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何释放dll中的res资源

发表于：2007-04-04 09:35:30 楼主

res资源文件包含有head.exe,由于放在主exe文件中程序较大,想放在dll中,然后再动态调用释放.如何实现?

发表于：2007-04-04 13:07:441楼得分:0

创建了一包含head.exe的head.res资源文件,把dll中的{$r *.res}改为{$r head.res},如何在另一程序中动态调用呀?我找了下,用这个方法没成功:
function extractres（restype, resname, resnewname : string):boolean;
function tform1.extractres（restype, resname, resnewname : string):boolean;
var
res : tresourcestream;
begin
try
res := tresourcestream.create（hinstance, resname, pchar（restype));
try
res.savetofile（resnewname);
result:=true;
finally
res.free;
end;
except
result:=false;
end;
end;

procedure tform1.button1click（sender: tobject);
var hdll:hmodule;
begin
hdll:=loadlibrary（ 'dll.dll ');
try extractres（ 'exefile ', 'head ', 'c:\head.exe ');
finally
freelibrary（hdll);
end;
end;

其他资讯