Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Обрабатывать событие завершения работы Windows   Найти похожие ветки 

 
FVova   (2004-01-18 09:03) [0]

Когда запущены моя программа и пользователь выбирает "Пуск->Завершение работы", то комп не выключается и программа не закрывается, нашёл на форуме что надо обрабатывать сообщение WM_QUERYENDSESSION

PROCEDURE TForm_Main.WMQueryEndSession(var Message: TWMQueryEndSession);
BEGIN
Message.Result := Integer(true);
END;

Только это не помогает, завершение работы всё равно не происходит!


 
Holy ©   (2004-01-19 14:32) [1]

А ты уверен, что дело именно в этом? Может ты отказываешься закрыть форму или еще что-то подобное... Кстати, а винда какая?


 
Suntechnic ©   (2004-01-20 08:05) [2]

>FVova
Что у тебя в событии формы OnCloseQuery (так оно по-моему называется) написано?


 
FVova   (2004-01-20 08:38) [3]

Винда ХР, событие OnCloseQuery я вообще не обрабатываю


 
Alex Konshin ©   (2004-01-20 09:37) [4]


procedure TfmToolBar.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
 // Тут могут быть твои завершающие действия, но ни в коем случае нельзя создавать никаких окошек, даже неявно.  
 Message.Result := Integer(CallTerminateProcs);
 Application.Terminate;
end;



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

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

Наверх




Память: 0.44 MB
Время: 0.022 c
9-1062867664
G A M E R
2003-09-06 21:01
2004.04.04
Зацените бету моей игрухи


14-1078516544
Vasya
2004-03-05 22:55
2004.04.04
Что за зверь - D8


14-1078461496
Evgeny V
2004-03-05 07:38
2004.04.04
Женщин С наступающим 8 марта


14-1079075366
Ega23
2004-03-12 10:09
2004.04.04
Зимбабве поймало 64 американских шпиона


14-1078424512
Ангел.
2004-03-04 21:21
2004.04.04
Кто из Омска ?





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