客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
1 // Code By Shaoyun 2010-03-16
2 3 unit Unit1; 4 5 interface 6 7 uses 8 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 9 Dialogs, ShellAPI; 10 11 const 12 WIM_NID=WM_USER + 1001; 13 14 type 15 TForm1 = class(TForm) 16 procedure FormCreate(Sender: TObject); 17 procedure FormDestroy(Sender: TObject); 18 private 19 { Private declarations } 20 public 21 { Public declarations } 22 procedure ProcessNotifyMessage(var msg:TMessage);message WIM_NID; 23 end; 24 25 var 26 Form1: TForm1; 27 NotifyIcon : TNotifyIconData; 28 29 implementation 30 31 {$R *.dfm} 32 33 procedure TForm1.FormCreate(Sender: TObject); 34 begin 35 with NotifyIcon do 36 begin 37 cbSize:= SizeOf(TNotifyIconData); 38 Wnd:= Handle; 39 uID := 1; 40 uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; 41 uCallbackMessage := WIM_NID; 42 hIcon := Application.Icon.Handle; 43 end; 44 StrPCopy(NotifyIcon.szTip,Application.Title); 45 Shell_NotifyIcon(NIM_ADD,@NotifyIcon); 46 end; 47 48 procedure TForm1.ProcessNotifyMessage(var msg:TMessage); 49 begin 50 case msg.LParam of 51 WM_LBUTTONDBLCLK: Form1.Visible := not Form1.Visible; 52 WM_RBUTTONUP: ShowMessage('你点击了右键！'); 53 end; 54 end; 55 56 procedure TForm1.FormDestroy(Sender: TObject); 57 begin 58 Shell_NotifyIcon(NIM_DELETE,@NotifyIcon); 59 end; 60 61 end. |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论