Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Программа не дает выключить комп [D6, WinXP]


leonidus ©   (2005-06-12 00:29:00) 

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


Defunct   (2005-06-12 00:50:00) [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;


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


Наверх

Титульная страница Поиск, карта сайта Написать письмо