Hello Matthew,
It is not running in the tray is it?
Here is some code I needed to use to shut my app down:
procedure TMainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if VCLzip1.Busy then //use this area to cancel a close
begin
if msgbox('CANCEL ZIP in progress? (OK continues ZIP)', '', false,
MB_ICONEXCLAMATION or MB_OKCANCEL)
= IDOK then
begin
Action := CaNone;
Closing := False;
exit;
end;
VCLzip1.CancelTheOperation;
end;
FreeandNil(IncludeList);
FreeandNil(ZIPfiles);
FreeandNil(TheReasonSummary);
//if you have another form eg something with tray items on it:
try dmon.Form1.Destroy; except; end;
if application.ShowMainForm = false then application.Terminate
else Action := CaFree;
end;
Note that you may have to use
procedure WMQueryEndSession(var Message: TMessage); message WM_QUERYENDSESSION;
See previous emails this list as refers.
Alistair+
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
