FindWindow和FindWindowEx的语法和用法

1 函数原型：

　　HWND FindWindow

　　(

　　LPCSTR lpClassName,

　　LPCSTR lpWindowName 

　　);

2  参数表：

　　lpClassName

　　指向一个以null结尾的、用来指定类名的字符串或一个可以确定类名字符串的原子。如果这个参数是一个原子，那么它必须是一个在调用此函数前已经通过 GlobalAddAtom函数创建好的全局原子。这个原子（一个16bit的值），必须被放置在lpClassName的低位字节中，lpClassName的高位字节置零。

　　lpWindowName

　　指向一个以null结尾的、用来指定窗口名（即窗口标题）的字符串。如果此参数为NULL，则匹配所有窗口名。

3  返回值：

　　如果函数执行成功，则返回值是拥有指定窗口类名或窗口名的窗口的句柄。

　　如果函数执行失败，则返回值为 NULL 。可以通过调用 GetLastError函数获得更加详细的错误信息。
4 使用方法

  //测试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;