只是一个API函数就可以了,很简单的
解决方案 »
- 300分求VPN拨号问题,问题解决后加分!
- 請教各位交叉表的問題,感謝!!!
- 急求如何使用ADOconnection联接到SQL Server 数据库?静态联接也可.看看我哪里做错了?
- 如果用WordApplication1打开一个带密码的Word文件?
- 如何把设置保存问一个文件,下次使用软件的时候再读入,变成上次关闭的样子
- 怎样把字符串中的信息转换为程序代码???
- 香港即时科研集团Linux认证培训怎么样?有哪位知情的好心人给指点一下??必有重谢!!!
- 求教ehlib6.3中TDBGrideh控件的一个问题
- 有关messagedlg函数的问题!
- Delphi 4.0能否完全兼容Delphi 3.0程序,如果不能有何区别?
- 文本框中(RichEdit做的)的行列怎么转换为屏幕坐标,也就是得到光标(非鼠标)的坐标
- 程序图标问题。
var
lpData: PNotifyIconDataA;
begin
if Message.WParam = SC_ICON then
begin
//Èç¹ûÓû§×îС»¯´°¿ÚÔò½«´°¿ÚÒþ²Ø²¢ÔÚÈÎÎñÀ¸ÉÏÌí¼Óͼ±ê
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;
//SizeOf(PNotifyIconDataA);
lpData.Wnd := MainForm.Handle;
lpData.hIcon := Application.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID :=0;
lpData.szTip := '±¾µØÍø»°Îñ²ÎÊý»ã×ܳÌÐò';
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,lpData);
dispose(lpData);
MainForm.Visible := False;
end
else
begin
//Èç¹ûÊÇÆäËüµÄSystemCommandÏûÏ¢Ôòµ÷ÓÃϵͳȱʡ´¦Àíº¯Êý´¦ÀíÖ®¡£
DefWindowProc(Handle, Message.Msg, Message.WParam, Message.LParam);
end;
//
end;procedure TMainForm.WMBarIcon(var Message :TMessage);
var
pt:TPOINT;
begin //»ñÈ¡Êó±êµÄÔÚÆÁÄ»ÉϵÄλÖÃ
GetCursorPos(pt); case Message.LParam of
WM_LBUTTONDOWN:
begin
RestoreWindow;
end;
WM_RBUTTONDOWN:
begin
PopupMenu.Popup(pt.x,pt.y); //ÊÍ·ÅÊó±êÓÒ¼ü
end;
end;
end;