怎么让PC虚拟机易语言最小化到托盘 这样在托盘很烦人

来源：蜘蛛抓取(WebSpider) 时间：2015-06-28 20:10 标签： delphi 最小化到托盘
本帖子已过去太久远了，不再提供回复功能。将VMware Workstation最小化到系统托盘,在后台运行虚拟机
我的图书馆
将VMware Workstation最小化到系统托盘,在后台运行虚拟机
&&&& 一般在虚拟机里建好环境后都是在后台提供服务，所以最小化VMware Workstation后偌大一个长条占据了有限的任务栏(Taskbar)空间着实令人不爽。好在VM6支持关闭后在后台运行的虚拟机,Edit&Preferences&Workspace,把Run powered on virtual machine in background after close 选中.当关闭VMware Workstation 的时候，即可在后台运行,任务栏的程序就不见了。
TA的最新馆藏查看: 6695|回复: 10
如何让程序单击最小化按钮后直接托盘显示，不在任务栏和屏幕左下角显示？
阅读权限30
在线时间 小时
结帖率： (8/8)
如何让程序单击最小化按钮后直接托盘显示，不在任务栏和屏幕左下角显示？
不要说让我移动屏幕外啊
这个才是最小化隐藏的源码
2楼的只是置托盘
回答提醒：如果本帖被关闭无法回复，您有更好的答案帮助楼主解决，请发表至
可获得加分喔。友情提醒：本版被采纳的主题可在
帖子申请荣誉值，获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。快捷通道： →
阅读权限20
在线时间 小时
结帖率： (0/1)
.子程序 __启动窗口_位置被改变
.如果真 (位置 ＝ 2)
& & 置托盘图标 (, )
& & _启动窗口.可视 ＝ 假
复制代码这个才是最小化隐藏的源码
2楼的只是置托盘
您可以选择打赏方式支持他
阅读权限10
在线时间 小时
结帖率： (2/2)
很简单的代码！
置托盘图标 (, )
希望采纳！
您可以选择打赏方式支持他
阅读权限30
在线时间 小时
结帖率： (8/8)
我是要单击最小化按钮后托盘显示
您可以选择打赏方式支持他
阅读权限70
在线时间 小时
结帖率： (2/4)
本帖最后由 w 于
21:29 编辑
专业点的是拦截消息
我以前好像发过源码不知道在哪里了
您可以选择打赏方式支持他
阅读权限30
在线时间 小时
结帖率： (0/1)
地板是正解
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
结帖率： (1/4)
属定制软件范畴!
您可以选择打赏方式支持他
阅读权限120
在线时间 小时
结帖率： (4/10)
怎么都不行捏？　　　　　哎哟～
您可以选择打赏方式支持他
阅读权限30
在线时间 小时
新手正在学习 感谢高手们 这个我收下了 路过
您可以选择打赏方式支持他
阅读权限50
在线时间 小时
结帖率： (1/1)
又学了一招！
您可以选择打赏方式支持他
精易论坛 - 有你更精彩 /1
限时优惠活动最后一天。
用易语言接单、做项目、找工作、创业，不是梦！
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
防范网络诈骗，远离网络犯罪
违法和不良信息举报电话，企业QQ： ，邮箱：@
Powered by
粤公网安备 25窗口最小化到托盘|窗口最小化到托盘(Iconize)下载 v2.0.0.4绿色版_ - pc6下载站在MFC中怎样将窗口最小化到托盘并恢复
所谓的“托盘”，在Windows系统界面中，指的就是下面任务条右侧，有系统时间等等的标志的那一部分。在程序最小化或挂起时，但有不希望占据任务栏的时候，就可以把程序放到托盘区。
1、最小化的原理：首先要将窗口隐藏，然后 在右下角绘制图标。
2、恢复的原理：将窗口显示，再将托盘中的图片删除。
二、代码实现
1、自定义消息WM_SHOWTASK： #define WM_SHOWTASK (WM_USER +1)
2、在MFC的::OnSysCommand(UINT nID, LPARAM lParam)函数体中增加一个命令响应
if(nID==SC_MINIMIZE) ToTray(); //最小化到托盘的函数
3、在BEGIN_MESSAGE_MAP(CMy2009Dlg,
CDialog)和END_MESSAGE_MAP()中间中添加如下代码
ON_MESSAGE(WM_SHOWTASK,OnShowTask)
其中WM_SHOWTASK是消息名，OnShowTask是自己定义的消息响应函数，后面有说明。
4、最小化到托盘函数
void CMyDlg::ToTray()
NOTIFYICONDATA
nid.cbSize=(DWORD)sizeof(NOTIFYICONDATA);
nid.hWnd=this-&m_hW nid.uID=IDR_MAINFRAME;
nid.uFlags=NIF_ICON|NIF_MESSAGE|NIF_TIP ;
nid.uCallbackMessage=WM_SHOWTASK;//自定义的消息名称
nid.hIcon=LoadIcon(AfxGetInstanceHandle(),MAKEINTRESOURCE(IDR_MAINFRAME));
strcpy(nid.szTip,"程序名称"); //信息提示条
Shell_NotifyIcon(NIM_ADD,&nid); //在托盘区添加图标
ShowWindow(SW_HIDE); //隐藏主窗口
5、恢复界面函数
在头文件中定义消息响应函数afx_msg LRESULT OnShowTask(WPARAM wParam,LPARAM
//wParam接收的是图标的ID，而lParam接收的是鼠标的行为
LRESULT CMyDlg::OnShowTask(WPARAM wParam,LPARAM lParam)
if(wParam!=IDR_MAINFRAME)
switch(lParam)
case WM_RBUTTONUP://右键起来时弹出快捷菜单，这里只有一个“关闭”
{ LPPOINT lpoint=new tagPOINT;
::GetCursorPos(lpoint);//得到鼠标位置
menu.CreatePopupMenu();//声明一个弹出式菜单
//增加菜单项“关闭”，点击则发送消息WM_DESTROY给主窗口将程序结束。
menu.AppendMenu(MF_STRING,WM_DESTROY,"关闭"); //确定弹出式菜单的位置
menu.TrackPopupMenu(TPM_LEFTALIGN,lpoint-&x,lpoint-&y,this);
//资源回收
HMENU hmenu=menu.Detach();
menu.DestroyMenu();
case WM_LBUTTONDBLCLK://双击左键的处理
{ this-&ShowWindow(SW_SHOW);//显示主窗口
DeleteTray();
6、删除托盘图标函数
void CMyDlg::DeleteTray()
NOTIFYICONDATA
nid.cbSize=(DWORD)sizeof(NOTIFYICONDATA);
nid.hWnd=this-&m_hW
nid.uID=IDR_MAINFRAME;
nid.uFlags=NIF_ICON|NIF_MESSAGE|NIF_TIP ;
nid.uCallbackMessage=WM_SHOWTASK;//自定义的消息名称
nid.hIcon=LoadIcon(AfxGetInstanceHandle(),MAKEINTRESOURCE(IDR_MAINFRAME));
strcpy(nid.szTip,"程序名称"); //信息提示条为“计划任务提醒”
Shell_NotifyIcon(NIM_DELETE,&nid); //在托盘区删除图标
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。

我要回帖

更多关于 delphi 最小化到托盘 的文章

 

随机推荐