本实例将通过简单的一条语句来实现文件的拷贝操作。

拷贝文件可以通过调用CopyFile函数来实现，在程序的初始化过程中添加以下代码：

procedure TForm1.FormCreate(Sender: TObject);

begin

    CopyFile(PChar(Application.ExeName),'c:\test.exe',true);

end;

这样，在程序运行初期就会执行CopyFile(PChar(Application.ExeName),'c:\test.exe',true)语句，把实例程序的可执行文件拷贝到C盘的根目录下，同时重新命名为test.exe。

保存文件，然后按F9键运行程序，程序运行后，在C盘的根目录下就会出现test.exe文件。