Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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.56 MB
Время: 0.033 c
1-56179
Schummi
2002-10-04 08:34
2002.10.17
TListView медленно выводит данные!!!


1-56148
-Drive
2002-10-06 17:39
2002.10.17
Потоки !!! Мастера помогите !!!


1-56131
Ifrit
2002-10-09 10:55
2002.10.17
Открыть в OLEContainer Word и вставить в него текст из BDRichEdit


1-56203
MasterVovan
2002-10-07 18:56
2002.10.17
Как получить доступ из главной MDI формы к MDIChild.


4-56410
Константин
2002-08-30 08:25
2002.10.17
Кликнуть курсором мыши по чужому приложению. HELP!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский