《Findwindow函数与FindWindowEx函数用法》由会员分享，可在线阅读，更多相关《Findwindow函数与FindWindowEx函数用法（2页珍藏版）》请在金锄头文库上搜索。
1、 Findwindow 函数与 FindWindowEx 函数用法FindWindow(lpClassName, 窗口的类名lpWindowName: PChar 窗口的标题): HWND; 返回窗口的句柄; 失败返回 0/FindWindowEx 比 FindWindow 多出两个句柄参数:FindWindowEx(Parent: HWND; 要查找子窗口的父窗口句柄Child: HWND; 子窗口句柄ClassName: PChar; WindowName: PChar ): HWND;如果 Parent 是 0, 则函数以桌面窗口为父窗口, 查找桌面窗口的所有子窗口;如果 是 HWND_
2、MESSAGE, 函数仅查找所有消息窗口;子窗口必须是 Parent 窗口的直接子窗口;如果 Child 是 0, 查找从 Parent 的第一个子窗口开始;如果 Parent 和 Child 同时是 0, 则函数查找所有的顶层窗口及消息窗口.-/测试 1: 试着找找新建程序主窗口的句柄varh: HWND;begin现在我们知道窗口的标题是: Form1、窗口的类名是: TForm1h := FindWindow(TForm1, Form1);ShowMessage(IntToStr(h); 656180; 这是随机, 每次启动窗口肯定不一样 假如不知道类名h := FindWindow(n
3、il, Form1);ShowMessage(IntToStr(h); 656180假如不知道标题名h := FindWindow(TForm1, nil);ShowMessage(IntToStr(h); 656180其实这个窗口的句柄不就是 Self.Handle 吗ShowMessage(IntToStr(Handle); 656180end;-/测试 2: 找计算器窗口的句柄( 先打开计算器)varh: HWND;begin如果不是简体中文系统, 这样可能不灵h := FindWindow(nil, 计算器);ShowMessage(IntToStr(h); 1508334最好这样 , 但你得提前知道计算器窗口的类名是: SciCalch := FindWindow(SciCalc, nil);ShowMessage(IntToStr(h); 1508334end;
