又是在找高手 ........你去http://jinesc.6600.org/myweb/main.asp?room=1020&page=1
里头去看看, 有N多解决方法
里头去看看, 有N多解决方法
解决方案 »
- 如何定义这样的数组呢?请问高手
- 关于winsock
- 右键快捷菜单问题???
- 我是这样理解scalewidth和scaleheight的,请大家看看觉得对不对?谢谢了
- 请问:发送邮件除了MAPI之外,还有其他更好的方法吗?不用outlook
- 小弟巨菜 求助 !
- 运行时总是显示用户定义类型未定义 已经添加ADO 知道的帮忙解答一下 谢谢了
- treeview如何初始化的时候不选中任何节点,包括父节点和子节点都不被选中
- 问个SHELL的问题,非常奇怪!
- 使用WebBrowser 控件一些叶面总是弹出脚本错误,可用ie来看就没事
- 为什么程序不能发布成可执行文件?
- 请问:ActiveReport报表,最新版本是多少?在那里可以找到?
WM_TrayMessage=WM_User+100; protected
procedure AppMinimized(Sender: TObject);
procedure WMTrayMessage(var msg:TMessage);message WM_TrayMessage;uses ShellApivar
NID:TNotifyIconData{点击了任务栏的图标}
procedure TMainForm.WMTrayMessage(var msg:TMessage);
var
p:TPoint;
begin
if msg.LParam=WM_LButtonDown then
begin
ShowWindow(Application.Handle,SW_Show);
Application.Restore;
end
else if msg.LParam=WM_RButtonDown then
begin
GetCursorPos(p);
pmTray.Popup(p.x,p.y);
end;
end;{应用程序最小化时图标显示在任务栏}
procedure TMainForm.AppMinimized(Sender:TObject);
begin
NID.cbSize:=SizeOf(TNotifyIconData);
NID.hIcon:=Application.Icon.Handle;
NID.szTip:= '彩虹2.0 Beta ';
NID.uCallbackMessage:=WM_TrayMessage;
NID.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
NID.uID:=0;
NID.Wnd:=Handle;
Shell_NotifyIcon(NIM_ADD,@NID);
ShowWindow(Application.Handle,SW_Hide);
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnMinimize:=AppMinimized;
AppMinimized(nil);
end;procedure TMainForm.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE,@NID);
end;