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

Вниз

OnRestart , OnShutdown..   Найти похожие ветки 

 
pasha star   (2007-03-07 18:06) [0]

как сделать, что бы прога определяла кто пытается её закрыть..?

Если пользователь, то прога идёт в трей, если OS, то прога вырубается..


 
Amoeba ©   (2007-03-07 18:52) [1]


> pasha star   (07.03.07 18:06)
>
> как сделать, что бы прога определяла кто пытается её закрыть.
> .?

Первый встречный вопрос: а какая цель преследуется?
IMHO, естественно, но как-то сомнительно, что что это вообще возможно.


 
pasha star   (2007-03-07 18:58) [2]

просто сделал прогу, что бы та шла в трей при нажатии на крестик.. а когда вырубаю виндозу или рестарт делаю.. то не shutdown, не restart наделаются, поскольку прога уходит в трей..

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
go_to_tray;
CanClose:=false;
end;


 
Amoeba ©   (2007-03-07 19:10) [3]


> а когда вырубаю виндозу или рестарт делаю.. то не shutdown,
>  не restart наделаются,

Слишком многого хочешь.


 
pasha star   (2007-03-07 19:15) [4]

яСНо


 
Rial ©   (2007-03-07 19:21) [5]

лови
WM_QUERYENDSESSION


 
Vlad Oshin ©   (2007-03-07 19:38) [6]


> просто сделал прогу, что бы та шла в трей при нажатии на
> крестик.. а когда вырубаю виндозу или рестарт делаю.. то
> не shutdown, не restart наделаются, поскольку прога уходит
> в трей..

так и надо отрабатывать нажатие на крестик

однако пользователь может и CAD нажать, процесс грохнуть
может с панели задач убить, правой кнопкой и выбрать закрыть

В общем случае - наверное никак, хотя не утверждаю

отрабатывать нажатие на крестик : wm_syscommand + поисковик


 
pasha star   (2007-03-07 19:59) [7]


> Rial ©   (07.03.07 19:21) [5]
>
> лови
> WM_QUERYENDSESSION


very very big thanks, now works perfectly !


 
RASkov   (2007-03-07 20:05) [8]

> [7] pasha star   (07.03.07 19:59)

Помоему, будет достаточно:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caNone;
 go_to_tray;
end;


Т.е. OnClose вместо OnCloseQuery....



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

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

Наверх




Память: 0.48 MB
Время: 0.043 c
1-1171046462
shr
2007-02-09 21:41
2007.04.01
есть ли мат. функции, работающие с Очень большими числами?


6-1161150230
Helen
2006-10-18 09:43
2007.04.01
Копирование файла из сети


8-1152596059
zorik
2006-07-11 09:34
2007.04.01
Линии разных стилей толщиной более 1 пиксела


15-1173416659
Slider007
2007-03-09 08:04
2007.04.01
С днем рождения ! 9 марта


2-1173270756
tytus
2007-03-07 15:32
2007.04.01
Доступ к уже открытому текст. файлу