FindWindow&&FindWindowEx
2013年09月10日
⁄ 综合
⁄ 共 1216字 ⁄ 字号
小 中 大
-
FindWindow(
-
lpClassName, {窗口的类名}
-
lpWindowName: PChar {窗口的标题}
-
): HWND; {返回窗口的句柄; 失败返回 0}
-
-
-
FindWindowEx(
-
Parent: HWND; {要查找子窗口的父窗口句柄}
-
Child: HWND; {子窗口句柄}
-
ClassName: PChar; {}
-
WindowName: PChar {}
-
): HWND;
-
{
-
如果 Parent 是 0, 则函数以桌面窗口为父窗口, 查找桌面窗口的所有子窗口;
-
如果 是 HWND_MESSAGE, 函数仅查找所有消息窗口;
-
子窗口必须是 Parent 窗口的直接子窗口;
-
如果 Child 是 0, 查找从 Parent 的第一个子窗口开始;
-
如果 Parent 和 Child 同时是 0, 则函数查找所有的顶层窗口及消息窗口.
-
}
-
-
-
-
var
-
h: HWND;
-
begin
-
{现在我们知道窗口的标题是: Form1、窗口的类名是: TForm1}
-
h := FindWindow('TForm1', 'Form1');
-
ShowMessage(IntToStr(h)); {656180; 这是随机, 每次启动窗口肯定不一样}
-
-
{假如不知道类名}
-
h := FindWindow(nil, 'Form1');
-
ShowMessage(IntToStr(h)); {656180}
-
-
{假如不知道标题名}
-
h := FindWindow('TForm1', nil);
-
ShowMessage(IntToStr(h)); {656180}
-
-
{其实这个窗口的句柄不就是 Self.Handle 吗}
-
ShowMessage(IntToStr(Handle)); {656180}
-
end;
-
-
-
-
var
-
h: HWND;
-
begin
-
{如果不是简体中文系统, 这样可能不灵}
-
h := FindWindow(nil, '计算器');
-
ShowMessage(IntToStr(h)); {1508334}
-
-
{最好这样, 但你得提前知道计算器窗口的类名是: SciCalc}
-
h := FindWindow('SciCalc', nil);
-
ShowMessage(IntToStr(h)); {1508334}
-
end;