Delphi: mã sau khi Application.Run không thực hiện nếu người dùng khởi động lại/tắt

Question

Tôi có một số mã được đặt sau "Application.Run;" thường chạy khi ứng dụng tắt. Tuy nhiên, điểm này không bao giờ đạt được khi người dùng khởi động lại hoặc tắt Windows.

Điều này có thể được giải quyết mà không cần chụp WM_ENDSESSION không? (và không liên quan đến bất kỳ hình thức nào, tôi muốn mã vẫn còn sau khi application.run ở cuối của dpr)

Answer 1

VCL đã nghe cho WM_ENDSESSION (cửa sổ ứng dụng ẩn) và chấm dứt ứng dụng khi phiên là kết thúc. Bạn có thể add a terminate procedure trong .dpr (hoặc ở nơi khác) sẽ được gọi trong số các thủ tục chấm dứt có thể khác:

program Project1; 

uses 
    Vcl.Forms, 
    sysutils, 
    Unit2 in 'Unit2.pas' {Form2}; 

{$R *.res} 

function OnTerminate: Boolean; 
begin 
    Result := True; 
    // do some short work 
end; 

begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TForm2, Form2); 
    AddTerminateProc(OnTerminate); 
    Application.Run; 
end.