| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WM_QUERYENDSESSION и WM_ENDSESSION [D5, Win95/98]

TED ©   (2002-01-16 06:43:00) 

Помогите плиз, как можно отловить WM_QUERYENDSESSION и WM_ENDSESSION???

---

Ally   (2002-01-16 10:49:00) [1]

...Забыл!
Во 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;


---

Ally   (2002-01-16 10:38:00) [2]

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.


---

Наверх