文档介绍:踏雪无痕
查找标题已知的窗口句柄,遍历窗口控件句柄
分类: C++ 2011-11-21 16:59 464人阅读评论(0) 收藏举报
有了回调函数的概念及上面的例子,我们可以继续了。其实想要找到一个标题已知的窗口句柄,用一个API函数就可以
了:FindWindow.
其函数原形是:
function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;
lpClassName:,.
lpWindowName:窗口标题.
调用方式举例:
var wndhwnd:HWND;
wndhwnd:=FindWindow(nil,'某窗口标题');
if wndhwnd<>0 then  file://找到此窗口句柄.
begin
  xxxxx
end
else begin
  MessageBox(,'没找到该窗口句柄','提示',0);
end;
有了这个窗口句柄,就离我们的初始目的不远了:控制其他窗体上的窗口控件.
同样,:EnumChildWindows.
其函数原形是:
function EnumChildWindows(hWndParent: HWND; lpEnumFunc: TFNWndEnumProc;
  lParam: LPARAM): BOOL; stdcall;
.
我们再举一个实际的例子,,然后调用FindWindow函数
,我们在一个Memo里显示该窗口上所有的窗口控件.
同样先编写回调函数.
function  EnumChildWndProc(AhWnd:LongInt;
  AlParam:lParam):boolean;stdcall;
var
  WndClassName: array[0..254] of Char;
  WndCaption: array[0..254] of Char;
begin
  GetClassName(AhWnd,wndClassName,254);
  GetWindowText(aHwnd,WndCaption,254);
  with do
  begin
    ( string(wndClassName));
    ( string(wndCaption));
    ('-------');
  end;
  result:=true;
end;
然后在一事件里调用EnumChildWindows函数.
procedure (Sender: TObject);
v