如何运行程序的时候生成文件?

Question

有两个文件,独立的,需要放进程序里面
当满足设定条件的时候,运行程序会把这两个文件生成出来,如果同名文件存在就覆盖
该如何实现
刚接触delphi,不得章法...希望能给段代码研究一下

Answer 1

用资源文件吧,把你两个文件都编译进EXE中
1、用记事写一个资源的描述文件，例如 sample.rc 
内容为：
File1  FILE  C:\File1.exe   //File1为资源名, FILE为资源类型，最后为目标文件路径啦
File2  FILE  C:\File2.exe2、把sample.rc加入到程序中,重新Build一下程序，这样两个文件就编译进去了3、导出
procedure ExportResToFile(const ResName, ResType, FileName: string); 
var 
 Res: TResourceStream; 
begin 
 Res:= TResourceStream.Create(HInstance, ResName, PChar(ResType)); 
 try 
   Res.SaveToFile(FileName); //将资源保存为文件，即还原文件 
 finally 
   Res.Free; 
 end; 
end; 调用ExportResToFile('File1', 'FILE', 'C:\File1.exe'); //将File1保存到 C:\File1.exe