Завершение Работы Windows

← →
werewolfru © (2002-08-06 16:28) [0]

Пишу прогу по сетевому аудиту и позарез нужна процедура, которая вызывается при начале завершения работы ОС или же при попытке ОС завершить работу моего резидента насильно. Требуется вставить очень короткую процедуру (запись в файл), так что времени от начала завершения работы ОС до остановки моей проги должно хватить. Буду очень блгодарен!

← →
Song © (2002-08-06 16:39) [1]

Обрабатывай событие WM_ENDSESSION

← →
Юрий Зотов © (2002-08-08 08:51) [2]

А еще лучше - WM_ QUERYENDSESSION.

← →
Song © (2002-08-08 09:31) [3]

2Юрий Зотов © (08.08.02 08:51)
"Требуется вставить очень короткую процедуру (запись в файл)" - успеется выполниться в любом случае, поэтому я и не стал акцентировать внимание на WM_QUERYENDSESSION

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FClose : boolean;
procedure WMQueryEndSession(var Msg : TWMWindowPosChanging);
message WM_QUERYENDSESSION;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
FClose := true;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if FClose then
CanClose := true
else begin
CanClose := false;
FClose := true;
end;
end;

//:::: обработчик сообщения WM_QUERYENDSESSION ::::::::::::::::::::
procedure TForm1.WMQueryEndSession(var Msg : TWMWindowPosChanging);
begin
if MessageDlg(" Обнаружена попытка выхода из Windows !!!" + #13 + "Закрыть приложение и выйти ? (Yes/No)", mtConfirmation, [mbYes, mbNo], 0) = mrYes then
FClose := true
else
FClose := false;

inherited;
end;

end.

Завершение Работы Windows Найти похожие ветки