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

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

Как проверить кем закрывается приложение [D5, Win95/98]

X-Vizitor ©   (2002-09-17 21:49:00) 

виндами или пользователем,?

---

X-Vizitor   (2002-09-17 23:51:00) [1]

Thanks:)

---

Ученик   (2002-09-17 23:11:00) [2]

private
{ Private declarations }
FCanClose : Boolean;
public
{ Public declarations }
procedure WMQueryEndSession(var Message : TMessage); message WM_QUERYENDSESSION;
end;

procedure TForm1.WMQueryEndSession(var Message : TMessage);
begin
FCanClose := True;
inherited
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FCanClose
end;

---

X-Vizitor   (2002-09-17 23:01:00) [3]

Именно

---

Ученик   (2002-09-17 22:12:00) [4]

Проблемы при перезагрузке Windows ?

---

Наверх