Главная страница
    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
1-75145
IvanOG
2003-12-10 09:31
2003.12.23
математика


14-75373
BlackTiger
2003-11-28 19:22
2003.12.23
Анекдот про Матрицу (хорошего всем настроения)


14-75339
Думкин
2003-11-29 05:19
2003.12.23
C днем рождения! 29 ноября.


14-75384
Dimka Maslov
2003-12-01 14:49
2003.12.23
Немного о политике


1-75246
DNT
2003-12-11 16:54
2003.12.23
Скорость выполнения процедуры





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский