Форум: "Система";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
ВнизЗавершение Работы 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
← →
andrey_pst (2002-08-08 09:36) [4]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.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c