社区
Windows SDK/API
帖子详情
托盘的菜单实现问题,打印机监控问题,高手请进!!!急!!!!!在线等待!
swxwy
2003-08-20 09:54:10
1、本人做了个托盘程序,但不知道怎么把菜单应用到工具栏上的托盘图标,也就是对托盘点击鼠标左键或右键出来相应的菜单,象我们用的金山和瑞星只要我们点击托盘就有相应的操作选项。(我不是用控件实现的,我是用API函数实现的托盘)
2、请问有没人做过网络打印机监控系统,可以根据用户名,计算机IP来监控打印信息,处理打印信息,那位大哥指点一下,另开帖子高分回报!
...全文
49
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.
我在CSDN参与的3000个帖子
2:100分
急
求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望
高手
帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,...
编程
高手
箴言
编程语言的运行机理,到代码的规范和风格、分析方法、调试方法和内核优化,内有作者对许多
问题
的认知过程和透彻的分析,以及优秀和精彩的编程经验。 第1章 程序点滴 1.1 程序≠软件(1) 1.1 程序≠软件(2) ...
网络维护汇总经典
问题
集
后来改为虚拟拨号方式上网(PPPoE)就出
问题
了。故障表现为,开机上网几分钟后,有时会出现无流量的现象,而且此时无法断开网络连接,注销也无效,只有重启计算机才能恢复正常。此故障除使用Windows Server 2003系统...
C#实例.net_经典例子400个
一共470多例winform 界面特效的源码。 窗体与界面设计...... 实例001 带历史信息的
菜单
10 实例002
菜单
动态合并 12 ...实例003 像开始
菜单
一样漂亮的...实例004 任务栏
托盘
菜单
15 实例005 可以拉伸的
菜单
界...
整理
菜单
是程序开发中经常使用的界面元素,合理利用
菜单
不但可以使用户非常方便的操作程序的功能,更能使效率提高,适应人性化的潮流。下面通过几个应用实例,介绍
菜单
设计的方法和技术。 实例001 带历史信息的
菜单
...
Windows SDK/API
1,183
社区成员
22,335
社区内容
发帖
与我相关
我的任务
Windows SDK/API
Delphi Windows SDK/API
复制链接
扫一扫
分享
社区描述
Delphi Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章