delphi - 如何使程序在Delphi 7中保存自身

Question

如何使我的Delphi 7程序保存到新位置。例如，该程序保存在我的闪光灯上，然后在我运行它时，我希望它自己保存在c：\ user \（用户名）中

以上是原始问题。

这是我尝试使用的代码。该程序运行完美，但是当我检查文件夹时，该文件夹没有出现。

 procedure TForm5.FormActivate(Sender: TObject);
  var source, dest : string;
 begin
  Source := 'project1.exe';
  Dest := 'C:\Users\Craig\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup';
  CopyFile(PChar(Source), PChar(Dest), False);
 end;

谢谢你的帮助。

Answer 1

从Application.ExeName中读取可执行文件的名称。然后调用CopyFile执行复制。

Source := Application.ExeName;
Dest := ...;
CopyFile(PChar(Source), PChar(Dest), False);

关于您的更新：


目标位置必须是文件。您试图将文件复制到指定文件夹的路径。
您没有检查错误。调用 CopyFile之类的API函数时，需要检查返回值。


您想要这样的东西：

Source := 'project1.exe';
Dest := 'C:\Users\...\Startup\project1.exe';
if not CopyFile(PChar(Source), PChar(Dest), False) then
  RaiseLastOSError;