Скачать: CL | DM;

OnCloseQuery и перезагрузка машины...   Найти похожие ветки 

← →
Martin ©   (2002-09-12 17:01) [0]

Пишется некий сервис (служба), содержащий форму для отображения текущего состояния. Эту форму закрывать нельзя, следовательно в событии OnCloseQuery только сворачиваем форму и CanClose:=False.

При этом проявилось весьма интересная ситуация: При остановке сервиса все происходит нормально, а при перезагрузке компьютера или LogOf пользователя ничего не происходит. Таким вот образом получилась заглушка на LogOf и рестарт копьютера.

Может кто подскажет, как это можно обойти???
(Напоминаю, что при обычной остановке сервиса он стопорится нормально.)

Вот такая байда (((((

---

← →
Демонов Е.В. ©   (2002-09-12 17:10) [1]

Посмотри сообщения WM_CloseQuery и WM_Close

---

← →
Ученик ©   (2002-09-12 17:19) [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;

---

← →
Martin ©   (2002-09-12 17:47) [3]

Ученик спасибо. Помогло!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c