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 

文章來源于領測軟件測試網 http://www.kjueaiud.com/