Форум: "WinAPI";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизWM_QUERYENDSESSION и WM_ENDSESSION Найти похожие ветки
← →
TED (2002-01-16 06:43) [0]Помогите плиз, как можно отловить WM_QUERYENDSESSION и WM_ENDSESSION???
← →
Ally (2002-01-16 10:38) [1]1-й способ для WM_ENDSESSION (для WM_QUERYENDSESSION он будет выглядеть аналогично)
unit main
intetrface
...
TForm1 = class(TForm)
...
pivate
procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION;
...
implementation
...
procedure TForm1.WMEndSession(var Msg: TMessage);
begin
...
{здесь твой код, например, ShowMessage("Ooops! I did it again!");:o))))}
...
inherited;
end;
2-й способ для WM_ENDSESSION (для WM_QUERYENDSESSION он будет выглядеть аналогично... :o)))
unit main
intetrface
...
TForm1 = class(TForm)
...
public
procedure MessageHandler(var Msg: TMsg; Handled: Boolean);
...
implementation
...
procedure TForm1.MessageHandler(var Msg: TMsg; Handled: Boolean);
begin
...
{здесь твой код, например, ShowMessage("Ooops! I did it again!");:o))))}
...
end;
...а теперь в файле проекта:
begin
Application.Initialize;
...
Application.OnMessage := Form1.MessageHandler;
Application.Run;
end.
← →
Ally (2002-01-16 10:49) [2]...Забыл!
Во 2-м способе:
implementation
...
procedure TForm1.MessageHandler(var Msg: TMsg; Handled: Boolean);
begin
case Msg.Msg of {не помню точное имя поля, но смысл его таков}
WM_ENDSESSION: ShowMessage("Ooops! I did it again!");
end;
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c