大侠我在网上看到一篇文章。现献上。 ★作者:<br><br>陈经韬<br><br>你的程序携带其它文件,要用的时候释放出来。<br> 例如: myexe exefile 'ha1.exe'//脚本文件<br> 下面是自定义释放函数ExtractRes,本例中使用如下:ExtractRes('exefile','myexe','c:/new.exe');就把ha1.exe以new.exe为名字保存到C盘根目录下了. <br><br>function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;<br>var<br>Res: TResourceStream;<br>begin<br>try<br>Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));<br>try<br>Res.SavetoFile(ResNewName);<br>Result := true;<br>finally<br>Res.Free;<br>end;<br>except<br>Result := false;<br>end;<br><br> 利用资源文件,还可以作出其它有用且有趣的效果。比如说结合VC来编辑资源文件,将程序的窗口先画出来,然后直接调用,就可以做出又美观体积又小的DELPHI程序了. <br>★作者:<br><br>陈经韬<br><br><br>