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;

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

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