如何检测是否单击了 Windows 开始（Orb）按钮？

Question

在 Delphi 中，是否可以检测用户何时单击 Windows 的“开始”按钮（左下角调出菜单的按钮）？

我尝试创建自己的“开始”菜单，因此当单击“开始”按钮时，它将显示我的菜单而不是 Windows 的菜单。

我的想法是，当 Windows 启动时，我的应用程序将在系统托盘中自动运行，并检测用户何时单击“开始”按钮然后显示我的菜单。

我看到类似的问题，但在 C# 中： How to detect when the Windows start menu / start screen opens? , 但如何在 Delphi 中做到这一点？

Answer 1

找到解决方案使用 mousehook .. 1st 获取开始按钮大小和 position

_handle := FindWindow('Shell_TrayWnd', nil);
_Start.Handle := FindWindowEx(_handle, 0, 'Start', nil);
GetWindowRect(_Start.Handle, _Start.Rect);

然后使用 mousehook 检查鼠标指针是否点击了开始按钮：

if (ms.X >= Start.Rect.Left)
and (ms.X <= Start.Rect.Right)
and (ms.Y >= Start.Rect.Top)
and (ms.Y <= Start.Rect.Bottom) then dowhatiwant ......

无论 TASKBAR POSITION 在左下角或右上角，它总会找到开始按钮 position..