S
Serge J.
Приветствую,
Подскажите пожалуйста как разрулить ситуацию.
Имеется программа, висящая в трэе (через CoolTrayIcon), но при попытке перегрузиться или выключить комп программа закрывается, но сам процесс (перегрузки) отменяется и приходится второй раз shutdown вызывать. В программе используется стандартный компонент TTimer и эксперименты показали, что если на форме этого таймера нет, то перегрузка проходит нормально.
вот код который я использую для отлова shutdown-а (может что тут и лишнее, я в delphi не силен)
type
TForm1 = class(TForm)
...
private
procedure WMQueryEndSession (var Msg: TWMQueryEndSession); message WM_QueryEndSession;
procedure WMEndSession(var Msg: TWMEndSession);message WM_EndSession;
...
procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
coolTrayIcon1.Free;
Timer1.Free;
xmlConfig.Free;
XMLDoc.Free;
NMHTTP1.Free;
Msg.Result:= 1;
frmAbout.Close;
Form1.Close;
end;
procedure TForm1.WMQueryEndSession (var Msg: TWMQueryEndSession);
begin
coolTrayIcon1.Free;
Timer1.Free;
xmlConfig.Free;
XMLDoc.Free;
NMHTTP1.Free;
Msg.Result:= 1;
frmAbout.Close;
Form1.Close;
end;
...
Подскажите пожалуйста как разрулить ситуацию.
Имеется программа, висящая в трэе (через CoolTrayIcon), но при попытке перегрузиться или выключить комп программа закрывается, но сам процесс (перегрузки) отменяется и приходится второй раз shutdown вызывать. В программе используется стандартный компонент TTimer и эксперименты показали, что если на форме этого таймера нет, то перегрузка проходит нормально.
вот код который я использую для отлова shutdown-а (может что тут и лишнее, я в delphi не силен)
type
TForm1 = class(TForm)
...
private
procedure WMQueryEndSession (var Msg: TWMQueryEndSession); message WM_QueryEndSession;
procedure WMEndSession(var Msg: TWMEndSession);message WM_EndSession;
...
procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
coolTrayIcon1.Free;
Timer1.Free;
xmlConfig.Free;
XMLDoc.Free;
NMHTTP1.Free;
Msg.Result:= 1;
frmAbout.Close;
Form1.Close;
end;
procedure TForm1.WMQueryEndSession (var Msg: TWMQueryEndSession);
begin
coolTrayIcon1.Free;
Timer1.Free;
xmlConfig.Free;
XMLDoc.Free;
NMHTTP1.Free;
Msg.Result:= 1;
frmAbout.Close;
Form1.Close;
end;
...