自己写了一个,测试了一下可行,但不知道会有哪些特殊情况会认错<br>function IsWindowEx(<br> const AHWND : HWND<br> ):Boolean;<br>//判断是否是Window<br>var<br> hStyle : HWND;<br>begin<br> Result := False;<br> if not IsWindow(AHWND) then Exit;<br> hStyle := GetWindowLong(AHWND,GWL_STYLE);<br> Result :=<br> hStyle and WS_SYSMENU = WS_SYSMENU)<br> or (hStyle and WS_POPUP = WS_POPUP);<br>end;