Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.23;
Скачать: 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 вся ветка

Текущий архив: 2002.09.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-73571
bib
2002-09-02 18:49
2002.09.23
Помогите?


1-73727
Dasha
2002-09-11 13:53
2002.09.23
MDI Форма


1-73745
S
2002-09-11 17:29
2002.09.23
Тип данных TMemoryStream глюк?


1-73633
Slava V.
2002-09-12 15:33
2002.09.23
Как поместить НЕ ГЛАВНЫЕ окна программы в панель задач?


14-73850
Darts
2002-08-28 13:44
2002.09.23
Другие компиляторы Pascal