Findwindow函数与FindWindowEx函数用法.doc

《Findwindow函数与FindWindowEx函数用法.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Findwindow函数与FindWindowEx函数用法FindWindow(lpClassName,{窗口的类名}lpWindowName:PChar{窗口的标题}):HWND;{返回窗口的句柄;失败返回0}//FindWindowEx比FindWindow多出两个句柄参数:FindWindowEx(Parent:HWND;{要查找子窗口的父窗口句柄}Child:HWND;{子窗口句柄}ClassName:PChar;{}WindowName:PChar{}):HWND;{如果Parent是0,则函数以桌面窗口为父窗口,查找桌面窗口的所有子窗口;如

2、果是HWND_MESSAGE,函数仅查找所有消息窗口;子窗口必须是Parent窗口的直接子窗口;如果Child是0,查找从Parent的第一个子窗口开始;如果Parent和Child同时是0,则函数查找所有的顶层窗口及消息窗口.}--------------------------------------------------------------------------------//测试1:试着找找新建程序主窗口的句柄varh:HWND;begin{现在我们知道窗口的标题是:Form1、窗口的类名是:TForm1}h:=FindWindow('

3、TForm1','Form1');ShowMessage(IntToStr(h));{;这是随机,每次启动窗口肯定不一样}{假如不知道类名}h:=FindWindow(nil,'Form1');ShowMessage(IntToStr(h));{}{假如不知道标题名}h:=FindWindow('TForm1',nil);ShowMessage(IntToStr(h));{}{其实这个窗口的句柄不就是Self.Handle吗}ShowMessage(IntToStr(Handle));{}end;----------------------------

4、----------------------------------------------------//测试2:找计算器窗口的句柄(先打开计算器)varh:HWND;begin{如果不是简体中文系统,这样可能不灵}h:=FindWindow(nil,'计算器');ShowMessage(IntToStr(h));{}{最好这样,但你得提前知道计算器窗口的类名是:SciCalc}h:=FindWindow('SciCalc',nil);ShowMessage(IntToStr(h));{}end;