ExitProcess and Application.Termined

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;  

 

转载于:https://www.cnblogs.com/moonwind/p/4509165.html