系统托盘图标例子程序

【文件属性】：

文件名称：系统托盘图标例子程序

文件大小：3KB

文件格式：RAR

更新时间：2012-10-18 10:20:24

系统托盘

inherited; if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标 getcursorpos(mousept); //获取光标位置 popupmenu1.popup(mousept.x, mousept.y); //在光标位置弹出选单 end; if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标 //显示应用程序窗口 ShowWindow(Handle, SW_SHOW); //在任务栏上显示应用程序窗口 ShowWindow(Application.handle, SW_SHOW); SetWindowLong(Application.Handle, GWL_EXSTYLE, not (GetWindowLong(Application.handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW)); end; message.Result := 0;

【文件预览】：
系统托盘图标
----Unit1.dfm(697B)
----Project1.dpr(188B)
----Unit1.pas(4KB)
----Project1.res(876B)