kenter1643

TeeChart 在Delphi 7.0中的安装 | DGScreenSpy_0.1.1c远程控制用delphi做的

2008-04-03

关闭到托盘

private
    { Private declarations }
    SessionEnding,wc: Boolean;
    procedure WMQueryEndSession(var Message: TMessage); message WM_QUERYENDSESSION;


procedure TForm1.WMQueryEndSession(var Message: TMessage);
begin
  SessionEnding := false;
  Message.Result := 1;
end;



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 //CanClose := (wc or SessionEnding);
 CanClose := SessionEnding;
  if not CanClose then
  begin
    CoolTrayIcon1.HideMainForm;
    CoolTrayIcon1.IconVisible := True;
    CoolTrayIcon1.ShowBalloonHint('KK网络电视','Come On Baby!我在这里等你噢!',bitInfo, 10);
  end;
end;