怎么将窗口最小化到托盘

Posted 2023-04-14

参考技术A PowerMenu
是一个
Windows
的辅助软件，功能不是非常多，可是却非常的实用！而体积也仅100多KB而已～，就是将任何程序最小化到托盘中，这样，在工作时打开一堆软件就不会把任务栏撑满了。。呵呵～小小的提高了工作效率～
它的功能包括：
1、设置任何Windows窗口的半透明度
2、使任何Windows窗口置顶
3、设置进程的优先级别
4、最小化任何Windows窗口到右下角托盘中
　　使用方法非常的简单，运行PowerMenu后，在任务栏右键就会出现额外菜单，PowerMenu的所有功能都在这里了～虽然它是英文版，但就这么几个简单的e文应该难不到各位吧。。。所以我也不考虑汉化它了，就给大家说说每个单词的意思就可以了～
　　第一个Priority是指设置进程的优先级，其实这个功能一般是用不到的～呵呵。。。它的子菜单是优先级别而已，RealTime（实时）是最高，Lowest是最低，Normal是正常，一般无特殊需要还是Normal好了～
　　第二个TranSparency是半透明度，按自己的喜欢设置吧～
　　第三个AlwaysOnTop是指将窗口“总是置顶”，不怕被别的程序挡住这个窗口了～
　　最后一个是Minimize
To
Tray就是将窗口最小化到右下角的托盘，也是我最喜欢的一个功能哟～呵呵～
　　其实类似PowerMenu的软件还有几个，如
TrayIt
，AlltoTray等… 参考技术B 最小化到托盘是需要软件本身支持的
系统的窗口是不支持的
最多只能象上面说的那样
最小化到任务栏

delphi trayIcon控件，如何实现窗口最小化的时候到系统托盘

type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  end;
 
  ......
   
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  inherited;
  if Msg.CmdType = SC_MINIMIZE then // 窗口收到最小化消息
  begin
    Application.Minimize; // 最小化程序
    ShowWindow(Application.Handle, SW_HIDE); // 隐藏任务栏图标
  end;
end;

记得在TrayIcon的单击或双击事件中还原窗口，否则你就看不见程序了，只能用任务管理器结束了。

 

响应Application的消息事件，如果是最小化消息就显示图标、隐藏主窗口和Application。