xwindows.txt

我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面

unit xWindows;

const
  DEFAULT_FOCUSRECT_WIDTH = 3; //缺省的窗口虚线外框宽度


//系统中有许多窗口存在，有些属于VCL，有些来自API、MFC、OWL等。输入Handle
//及进程编号(不限于本进程)，FindVCLControl返回拥有此窗口的TWinControl组件，
//若窗口不属于VCL组件，返回nil。
function FindVCLControl(Handle: HWND; ProcessID: DWORD = 0): TWinControl;

//本函数与FindVCLControl类似，只是返回布尔值。
function IsVCLControl(Handle: HWND; ProcessID: DWORD = 0): Boolean;

//输入窗口及坐标，返回该坐标上，最上层可视子窗口。
//ParentWnd：要搜寻的最上层子窗口的窗口句柄；
//pt：相对于该窗口客户端区域的坐标；
function FindTopMostWindow(ParentWnd: HWND; Pt: TPoint): HWND;


//用于为窗口或TControl组件绘制宽度为Width的虚线框，此虚线框以XOR方式和
//原有背景结合，所以再调用一次会消除虚线框，适合于焦点窗口选择界面。
procedure DrawAnyFocusRect(DC: HDC; R: TRect; Width: Integer = DEFAULT_FOCUSRECT_WIDTH);
procedure DrawWindowFocusRect(Wnd: HWND; Width: Integer = DEFAULT_FOCUSRECT_WIDTH);
procedure DrawControlFocusRect(Control: TControl; Width: Integer = DEFAULT_FOCUSRECT_WIDTH);