用Delphi做的窗口置顶小工具对EXCEL等无窗口句柄的无效

[踏雪无痕]

我用Delphi做的窗口置顶小工具，对有窗口句柄的任何程序都有效，包括网页，各种播放器等等，但是对OFFICE办公软件，例如:EXCEL却没有效果，我百度了一下，原因出在windowfrompoint只能获取有窗口的句柄，无窗口的句柄获取不到，或者说获取到的不是真实的窗口句柄，以至于，设置置顶效果无效。

请大神指教，感谢！

部分代码：
if GetCursorPos(Point) then {如果能获取点}
begin
HWND := WindowFromPoint(Point); // 取鼠标点击的窗体句柄
ReleaseCapture; // 终止捕获鼠标输入
end;
if HWND <> Handle then
begin
if GetWindowRect(HWND, Rc) then
begin
SetWindowPos(HWND, HWND_TOPMOST, Rc.Left, Rc.Top, Rc.Right - Rc.Left, Rc.Bottom - Rc.Top, SWP_SHOWWINDOW);
end;
end

[lyhoo163]

编写了一个小程序。经检测Office的窗体都不能通过获取鼠标获取窗体的句柄。
建议：
1、试试通过控件获取父控件直到窗口句柄；
2、通过获取Word和EXCEl句柄后，均能置顶；
3、通过其它方式，一定要获取窗口的句柄（不能中控件的句柄），才能置顶。