animate1.Active := True;                                           
CopyFile(PChar('c:\Main.exe'),PChar('c:\tmp\Main.exe'),False);
Sleep(3000);

使用 DELPHI 7 , 在XP作業系統可, WINDOWS 7 不行

謝謝