delphi 模拟键盘法对当前窗口鼠标左键单击最小化怎么做？

向窗口发送按键序列：ALT+空格，N。第一个组合键发出后，窗口左上角将d出系统菜单，N是最小化的菜单快捷键。

以上方法是对于标准窗口，它会响应“ALT+空格”事件，如果对于非标准窗口，则不能模拟键盘，而需要模拟鼠标，也就是控制鼠标指针移动到窗口标题栏右上角的最小化按钮上，再发送左键单击事件。

详情请查阅MSDN之SendInput；对于模拟鼠标，需要注意绝对坐标和相对坐标的概念和转换方法，在MSDN中亦有描述。

在 Delphi 语言中，实现让窗口最小化至系统托盘，最简单的办法是使用控件，在高版本的 Delphi 中提供了 TTrayIcon 控件，低版本可以下载安装 CnPack 小组提供的免费开源组件包中的 TCnTrayIcon 控件。

编写实现步骤如下：

1、在窗体中添加两个控件，CnTrayIcon 和 PopupMenu：

2、设置相关的属性

PopMenu 的设置如上图中示例，通常要有“显示主窗口”功能，其他的根据需要。

cnTrayIcon 的属性设置：

3、编写代码：

4、运行效果截图

当最小化程序窗口后，会在系统托盘区显示出图标。

当鼠标移动到程序图标上，显示提示信息（Hint）:

在托盘图标上点击右键，d出菜单：

---