Application.Terminate 只是呼叫 PostQuitMessage 這個 Windows API 表明程式準備要結束而已, 它並不會立即中止整個程式, 也不會強迫終止 若有其他程序還在運行, 則程式很可能會發生如你描述的那種情形 Application.Terminate 的詳細說明, 請參照 Delphi 的 Help , 雖然說明並不多 而 ExitProcess , 則是直接且乾淨地終止程式 MSDN 對此有詳細的說明, 請參照: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcekernl/html/_wcesdk_win32_exitprocess.asp 看看底下的例子: [delphi] view plaincopy 01.procedure TForm1.Button1Click(Sender: TObject); 02.begin 03. Application.Terminate; 04.end; 05. 06.procedure TForm1.Button2Click(Sender: TObject); 07.var 08. b:boolean; 09.begin 10. B:=False; 11. repeat 12. Application.ProcessMessages; 13. Sleep(300); 14. until B; 15.end;
时间: 2024-10-10 06:51:46