程序自已复制自已（高分送）急

Question

程序自已复制自已.就是能自已copy自已到另一个地方去的那一种ok马上结贴

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var myname: string;
    windir:array[0..255] of char;
begin
  GetWindowsDirectory(WinDir,256);
  myname := ExtractFilename(Application.Exename);                    //获得文件名
  if application.Exename <> Windir + myname then begin                   //如果文件不是在Windows\System\那么..
    copyfile(pchar(application.Exename), pchar(Windir + myname), False);   {将自己拷贝到Windows\System\下}
    Winexec(pchar(Windir + myname), sw_hide);                        //运行Windows\System\下的新文件
    application.Terminate;//退出
  end;
end;

Answer 2

copyfile(pchar(application.Exename), pchar(‘other path’), False); 基本上就是这么一句话。或者 自己写个bat，也可以实现得。