Dephi中资源文件的应用

领测软件测试网

字体  
字符串 不支持 支持 
其他  
**************************************** 

 上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的时候释放出来。 
例如: myexe exefile ’ha1.exe’//脚本文件 
下面是自定义释放函数ExtractRes，本例中使用如下: 
ExtractRes(’exefile’,’myexe’,’c:\new.exe’); 
就把ha1.exe以new.exe为名字保存到C盘根目录下了.  

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 

文章来源于领测软件测试网 https://www.ltesting.net/