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

Вниз

Программа не дает выключить комп   Найти похожие ветки 

 
leonidus ©   (2005-06-12 00:29) [0]

Мастера подскажите пожалуйста, сам просто теряюсь в догадках. Написал небольшую программку которая сидит в трее и мониторит окна IE. Все нормально, но если юзер решает перезагрузить комп или выключить его, то пока он не закроет программу винда перезагрузку/выключение не разрещает, я не пойму в чем может быть проблема. Эффект наблюдался в Win98 и XP. Подскажите плиз где грабли.


 
Defunct ©   (2005-06-12 00:50) [1]

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if Visible then
    begin
       Hide;
       CanClose := False;
    end
 else
    CanClose := True;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ClientsFrame.DoneFrame;
 StatManager.DoneFrame;
 Shell_NotifyIcon(NIM_DELETE, NotifyIcon );
 Action := caFree
end;


Кусок завершения работы из похожей программы. Спокойно завершается при перезагрузке или выключении компьютера. Разбирайтесь.



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

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

Наверх





Память: 0.44 MB
Время: 0.034 c
10-1095245277
Pumpa
2004-09-15 14:47
2005.07.11
Это кто? PortableServer_POA::AdapterNonExistent


1-1118749464
GEEK
2005-06-14 15:44
2005.07.11
В чем ошибка? Можно ли сравнить две TPoint?


3-1117024134
Layner
2005-05-25 16:28
2005.07.11
Access+Insert в Delphi7, в ADOQuery.


5-1089872243
ViJen
2004-07-15 10:17
2005.07.11
DbGrid, DateTimePicker и прокрутка


14-1118203605
lookin
2005-06-08 08:06
2005.07.11
Восстановить нетекстовый файл, отредактированный в Блокнот





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