завершение Windows

← →
Leny © (2002-12-29 12:53) [0]

Добрый день, мне нужно отловить завершение Windows, чтобы сохранить данные из программы... Знаю, что Windows отсылает в этом случае сообщения wm_queryendsession, а как его отловить?

← →
Big_Rom © (2002-12-29 12:58) [1]

написать обработчик wm_queryendsession :))

← →
Leny © (2002-12-29 13:09) [2]

т.е процедуру?.. например:
Procedure TForm.WindowsClose(Var Msg:TMessage);
Begin
IF Msg.WParam=1 then Form.Close;
End;
тогда где указать получение сообщения wm_queryendsession?

← →
Юрий Зотов © (2002-12-29 13:22) [3]

type
TForm1 = class(TForm)
...
private
procedure WindowsClose(Var Msg:TMessage); message WM_QUERYENDSESSION;

Только проще все делать в OnCloseQuery. Это сработает и при нормальном закрытии формы, и при выходе из Windows.

← →
Song © (2002-12-29 17:51) [4]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=news;action=display;num=1040148061

WM_QUERYENDSESSION может и не прийти... Например, при вызове InitiateSystemShutdown с флагом bForceAppsClosed.

> Song © (29.12.02 17:51)

Зашел. Посмотрел. Расстроился.

Пример глобального хука в ЧаВо по ссылке

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1033932228

принципиально неверен. Локальная переменная SysHook будет проинициализирована лишь в контексте одного-единственного процесса - того, который вызвал процедуру Hook и установил ловушку. В остальных она останется нулем и CallNexTHookEx не сможет работать правильно.

Ребята, ну нельзя же в FAQ (!!!) повторять все ту же уже всем надоевшую ошибку. Ведь она будет скопирована десятками (если не сотнями) неискушенных и получится больше вреда, чем пользы.

Предлагаю СРОЧНО заменить этот пример нормальным. Могу выслать готовый, чтобы не писать специально.

завершение Windows Найти похожие ветки