社区
Windows SDK/API
帖子详情
托盘的菜单实现问题,打印机监控问题,高手请进!!!急!!!!!在线等待!
swxwy
2003-08-20 09:54:10
1、本人做了个托盘程序,但不知道怎么把菜单应用到工具栏上的托盘图标,也就是对托盘点击鼠标左键或右键出来相应的菜单,象我们用的金山和瑞星只要我们点击托盘就有相应的操作选项。(我不是用控件实现的,我是用API函数实现的托盘)
2、请问有没人做过网络打印机监控系统,可以根据用户名,计算机IP来监控打印信息,处理打印信息,那位大哥指点一下,另开帖子高分回报!
...全文
45
1
打赏
收藏
托盘的菜单实现问题,打印机监控问题,高手请进!!!急!!!!!在线等待!
1、本人做了个托盘程序,但不知道怎么把菜单应用到工具栏上的托盘图标,也就是对托盘点击鼠标左键或右键出来相应的菜单,象我们用的金山和瑞星只要我们点击托盘就有相应的操作选项。(我不是用控件实现的,我是用API函数实现的托盘) 2、请问有没人做过网络打印机监控系统,可以根据用户名,计算机IP来监控打印信息,处理打印信息,那位大哥指点一下,另开帖子高分回报!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
chenquan
2003-08-20
打赏
举报
回复
1.我给你答案
//制作托盘
unit tp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls,ShellApi, Menus, StdCtrls;
const
ICON_ID = 1;
My_ICONEVENT = WM_USER + 1;
type
TMyTest = class(TForm)
Image1: TImage;
pop1: TPopupMenu;
showform: TMenuItem;
N1: TMenuItem;
Memo1: TMemo;
Button1: TButton;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure showformClick(Sender: TObject);
private
procedure InitIcon;
procedure UnInstallIcon;
procedure IConOnclick(var Myss:TMessage);message My_ICONEVENT;
procedure WMSysCommand(var Sysss: TWMSysCommand);message WM_SYSCOMMAND;
public
end;
var
MyTest: TMyTest;
implementation
{$R *.dfm}
procedure TMyTest.WMSysCommand(var Sysss: TWMSysCommand); //拦截系统消息
begin
with Sysss do
begin
if (CmdType and $FFF0 = SC_MINIMIZE) or (CmdType and $FFF0 = SC_CLOSE) then
begin
ShowWindow(MyTest.Handle,SW_HIDE);
Exit;
end;
inherited;
end;
end;
procedure TMyTest.ICononclick(var Myss:TMessage);
var p: TPoint;
begin
if (Myss.lParam = WM_RBUTTONDOWN) or (Myss.lParam = WM_LBUTTONDBLCLK) then
begin
GetCursorPos(p);
pop1.Popup(p.x,p.y);
end;
end;
procedure TMyTest.InitIcon;
Var MyNotify:TNotifyIconData;
begin
MyNotify.cbSize:=Sizeof(MyNotify);
MyNotify.Wnd:=handle;
MyNotify.uID := ICON_ID;
MyNotify.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
MyNotify.uCallbackMessage:=My_ICONEVENT;
MyNotify.hIcon :=Image1.Picture.Icon.Handle;
MyNotify.szTip :='MyTest';
Shell_NotifyIcon(NIM_ADD,@MyNotify);
end;
procedure TMyTest.FormCreate(Sender: TObject);
begin
InitIcon;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
//设置应用程序状态栏目不显示
end;
procedure TMyTest.N1Click(Sender: TObject);
begin
close;
end;
procedure TMyTest.UnInstallIcon; //卸载图标
var IconData: TNotifyIconData;
begin
IconData.cbSize := SizeOf(IconData);
IconData.Wnd := Handle;
IconData.uID := ICON_ID;
Shell_NotifyIcon(NIM_DELETE,@IconData);
end;
procedure TMyTest.FormDestroy(Sender: TObject);
begin
UnInstallIcon;
end;
procedure TMyTest.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
ShowWindow(MyTest.Handle,SW_HIDE);
end;
procedure TMyTest.showformClick(Sender: TObject);
begin
ShowWindow(MyTest.Handle,SW_SHOWNORMAL);
SetForegroundWindow(application.handle);//激活应用程序为前台,此处可以省掉
end;
end.
Electron实战专题
Electron允许用Web技术开发跨平台桌面应用。本套餐深入介绍关于Electron的各种技术,包括但不限于Electron安装、Electron对话框、Electron
菜单
、数据存储,在Electron中编译SQLite本地模块,
托盘
等
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分
急
求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望
高手
帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6:VBA请教怎
编程
高手
箴言
本书是作者十余年编程生涯中的技术和经验的总结。内容涵盖了从认识CPU、Windows运行机理、 编程语言的运行机理,到代码的规范和风格、分析方法、调试方法和内核优化,内有作者对许多
问题
的认知过程和透彻的分析,以及优秀和精彩的编程经验。 第1章 程序点滴 1.1 程序≠软件(1) 1.1 程序≠软件(2) 1.2
高手
是怎样练成的(1) 1.2
高手
是怎样练成的(2) ...
网络维护汇总经典
问题
集
问:我是小区宽带用户,原先使用LAN接入方式(拥有固定IP,开机会自动连上网络)。后来改为虚拟拨号方式上网(PPPoE)就出
问题
了。故障表现为,开机上网几分钟后,有时会出现无流量的现象,而且此时无法断开网络连接,注销也无效,只有重启计算机才能恢复正常。此故障除使用Windows Server 2003系统外,用其它系统均正常。请问是什么原因?" m7 e, o- F" M, T! f, k5
C#实例.net_经典例子400个
转载自:http://www.cnblogs.com/huangf714/p/5876133.html 一共470多例winform 界面特效的源码。 窗体与界面设计... 9 实例001 带历史信息的
菜单
10 实例002
菜单
动态合并 12 实例003 像开始
菜单
一样漂亮的
菜单
... 14 实例004 任务栏
托盘
菜单
15 实例005 可以拉伸的
菜单
界...
Windows SDK/API
1,183
社区成员
22,335
社区内容
发帖
与我相关
我的任务
Windows SDK/API
Delphi Windows SDK/API
复制链接
扫一扫
分享
社区描述
Delphi Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章