我的程序用了托盘技术.但是当关闭WINDOWS时,总是不能关闭我的程序.
能否判断windows给程序的关闭消息
能否判断windows给程序的关闭消息
解决方案 »
- 紧急求救....关于ACM控件的使用...
- 怎样用SQL删除access2000数据库中表的主键?
- 如何判断一个字符串在另一个字符串的最后一个位置
- 动态连接库 问题
- 请问如何判断listbox里的ScrollBar是否已经显示!
- 菜单project->OPtions里面有个version info。这个如何使用呢?
- 如果有这样一本书??up有分!!!
- 司南 <[email protected]> 请来
- 我想让标题栏左边的图标不停的变,用Timer imagelist怎么实现,给10分
- use ADOQuery1.SQL 怎么选择日期?(Acsess数据库)
- MDI窗口问题
- 求救:怎样获取光驱的盘符号
的是怎么回事~~~~
我记得Master Delphi3 中讲过, windows关闭时触发的事件和 点击×触发的事件不一样,如果没记错的话,前者触发OnCloseQuery,后者OnClose,所以在OnCloseQuery加入关闭试试。
procedure TForm1.RemoveTrayIcon;
var
icon: NOTIFYICONDATA;
begin
icon.cbSize := sizeof(NOTIFYICONDATA);
icon.uID := 200;
icon.Wnd := Handle;
Shell_NotifyIcon(NIM_DELETE, @icon);
end;//此为移动托盘过程。
在onclose里调用就好了: RemoveTrayIcon
用
procedure WMQueryEndsession(Var Msg:TMessage);Message WM_QueryEndSession;procedure Tclient.WMQueryEndsession(var Msg: TMessage);
begin
client.Close;
Msg.Result := 1;
end;
捕获到该消息后退出你的程序