如何使我的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;
谢谢你的帮助。
最佳答案
从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;
关于delphi - 如何使程序在Delphi 7中保存自身，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/13549207/