Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];

Вниз

Завершение работы Windows ?   Найти похожие ветки 

 
Novenkij   (2003-10-14 01:40) [0]

как узнать о завершении работы windows, после чего закрыть мою программу и выполнить это завершение работы ( Restart, ShutDown ...)


 
Spawn   (2003-10-14 04:45) [1]

WM_QUERYENDSESSION?


 
Novenkij   (2003-10-14 17:24) [2]

Я пишу так :

private
procedure WMQueryEndSession(var Msg: TWMQueryEndSession);
message WM_QUERYENDSESSION;
...

procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
form1.Close;
end;


Программа закрывается, но завершение работы далее не выполняется :(

Что делать ? очень надо ...


 
Opuhshii   (2003-10-14 17:49) [3]

Прочесть хелп о WM_QUERYENDSESSION


 
Guerrillero   (2003-10-14 17:57) [4]

А что в справке написано:
"If an application can terminate conveniently, it should return TRUE; otherwise, it should return FALSE. "

procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
inherited;
Msg.Result := 1;
form1.Close;
end;


 
Holy   (2003-10-15 12:59) [5]

Одни и те же грабли... В модуле Forms есть свой обработчик wm_QueryEndSession и он всегда возвращает ИСТИНУ, т.е. приложение готово к завершению... Нужно исправлять там...



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

Форум: "Система";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-75331
Knight
2003-11-25 23:33
2003.12.23
Кто какими сотовыми пользуется?


6-75288
AntiFriz
2003-10-22 07:11
2003.12.23
TIdHttp - как закачать картинку


14-75317
Style
2003-11-28 20:20
2003.12.23
Кто из наших Мастеров работает за бугром...???


14-75389
Comp
2003-11-28 15:17
2003.12.23
Защита программы законом


1-75156
UPR
2003-12-10 03:34
2003.12.23
Edit и кнопка Tab





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский