윈도우 종료시 윈도우는 실행중인 모든 프로그램에게

WM_QUERYENDSESSION 메세지를 날립니다.

그래서, 요것을 받아서 처리하게 하면 됩니다.

다음의 예는 윈도우 종료시 위의 메세지를 받아서

간단한 메시지와 시간을 보여주는 프로그램입니다.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
     procedure WMQueryEndSession(var Msg : TMessage); message
             WM_QUERYENDSESSION;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMQueryEndSession(var Msg: TMessage);
begin
inherited;
ShowMessage('바빠잇~ :' + FormatDateTime('HH:NN:SS', NOW));
end;

end.

위와 같이 해 주면 됩니다.

트레이형태로 프로그램을 띄워서 윈도우 종료를 감시하면 되겠죠.

                                                   유수~