Findwindow函数与FindWindowEx函数用法

Findwindow函数与FindWindowEx函数用法

FindWindow(

lpClassName, {窗口的类名}

lpWindowName: PChar {窗口的标题}

): HWND; {返回窗口的句柄; 失败返回0}

//FindWindowEx比FindWindow多出两个句柄参数:

FindWindowEx(

Parent: HWND; {要查找子窗口的父窗口句柄}

Child: HWND; {子窗口句柄}

ClassName: PChar; {}

WindowName: PChar {}

): HWND;

{

如果Parent 是0, 则函数以桌面窗口为父窗口, 查找桌面窗口的所有子窗口; 如果是HWND_MESSAGE, 函数仅查找所有消息窗口;

子窗口必须是Parent 窗口的直接子窗口;

如果Child 是0, 查找从Parent 的第一个子窗口开始;

如果Parent 和Child 同时是0, 则函数查找所有的顶层窗口及消息窗口.

}

--------------------------------------------------------------------------------

//测试1: 试着找找新建程序主窗口的句柄

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;

--------------------------------------------------------------------------------

//测试2: 找计算器窗口的句柄(先打开计算器)

var

h: HWND;

begin

{如果不是简体中文系统, 这样可能不灵}

h := FindWindow(nil, '计算器');

ShowMessage(IntToStr(h)); {1508334}

{最好这样, 但你得提前知道计算器窗口的类名是: SciCalc} h := FindWindow('SciCalc', nil);

ShowMessage(IntToStr(h)); {1508334}

end;