delphi api 窗口句柄

在Delphi中，窗口句柄（Handle）是一个非常重要的概念，它代表了操作系统中一个窗口的唯一标识，通过窗口句柄，我们可以对窗口进行各种操作，如获取窗口信息、发送消息、改变窗口样式等，下面将详细解释如何在Delphi中获取和使用窗口句柄。

窗口句柄基础

窗口句柄是一个整数类型的值，用于唯一标识操作系统中的一个窗口，在Delphi编程中，我们可以通过调用Windows API函数或使用Delphi封装好的VCL组件来获取窗口句柄。

获取窗口句柄的方法

使用FindWindow函数

FindWindow函数用于查找与指定类名或窗口名匹配的顶级窗口的句柄，其函数原型如下：

function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;

lpClassName：指向一个以null结尾的字符串，表示要查找的窗口类名，如果设置为nil，则忽略类名。

lpWindowName：指向一个以null结尾的字符串，表示要查找的窗口标题。

返回值是找到的窗口的句柄，如果没有找到则返回0。

示例代码：

var
  hwnd: HWND;
begin
  hwnd := FindWindow(nil, '记事本'); // 查找标题为'记事本'的窗口句柄
  if hwnd <> 0 then
    Writeln('找到窗口句柄: ', hwnd);
end;

使用FindWindowEx函数

FindWindowEx函数用于在指定的父窗口中查找与指定类名和窗口名匹配的子窗口的句柄，其函数原型如下：

function FindWindowEx(hWndParent: HWND; hMSG: HWND; lpClassName, lpWindowName: PChar): HWND; stdcall;

hWndParent：父窗口的句柄，如果设置为0，则表示查找所有顶级窗口。

hMSG：子窗口的句柄，用于从这个子窗口之后开始查找，如果设置为0，则表示从第一个子窗口开始查找。

lpClassName和lpWindowName：同FindWindow函数。

返回值是找到的子窗口的句柄，如果没有找到则返回0。

示例代码：

var
  hwndParent: HWND;
  hwndChild: HWND;
begin
  hwndParent := FindWindow(nil, '无标题 记事本'); // 先找到父窗口句柄
  hwndChild := FindWindowEx(hwndParent, 0, 'Edit', nil); // 在父窗口中查找类名为'Edit'的子窗口句柄
  if hwndChild <> 0 then
    Writeln('找到子窗口句柄: ', hwndChild);
end;

3. 使用EnumChildWindows函数

EnumChildWindows函数用于枚举指定父窗口的所有子窗口，其函数原型如下：

function EnumChildWindows(hWndParent: HWND; lpEnumFunc: TEnumChildProc; lParam: LPARAM): BOOL; stdcall;

hWndParent：父窗口的句柄。

lpEnumFunc：指向一个应用程序定义的回调函数，该函数在枚举每个子窗口时被调用。

lParam：传递给回调函数的用户定义参数。

返回值是一个布尔值，表示枚举是否成功。

示例代码中的回调函数可能如下所示：

function EnumChildProc(ahWND: HWND; param: LPARAM): boolean; stdcall;
begin
  Writeln('子窗口句柄: ', ahWND);
  Result := True; // 继续枚举下一个子窗口
end;

然后在主程序中调用EnumChildWindows：

var
  hwndParent: HWND;
begin
  hwndParent := FindWindow(nil, '无标题 记事本'); // 先找到父窗口句柄
  if hwndParent <> 0 then
    EnumChildWindows(hwndParent, @EnumChildProc, 0);
end;

利用窗口句柄进行操作

一旦获取了窗口句柄，我们就可以通过调用其他Windows API函数对窗口进行各种操作了。

发送消息

使用SendMessage或PostMessage函数可以向指定窗口发送消息，这两个函数的原型分别如下：

function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
function PostMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;

hWnd：接收消息的窗口的句柄。

Msg：要发送的消息标识符。

wParam和lParam：消息的附加参数。

SendMessage函数会等待消息处理完成后才返回，而PostMessage函数则会立即返回，不等待消息处理完成。

示例代码（发送一个关闭消息）：

var
  hwnd: HWND;
begin
  hwnd := FindWindow(nil, '记事本'); // 查找标题为'记事本'的窗口句柄
  if hwnd <> 0 then
    SendMessage(hwnd, WM_CLOSE, 0, 0); // 发送关闭消息
end;

改变窗口样式

使用SetWindowLong函数可以改变指定窗口的样式，其函数原型如下：

function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): LONG; stdcall;

hWnd：要改变样式的窗口的句柄。

nIndex：指定要改变的窗口属性索引，GWL_STYLE表示窗口样式。

dwNewLong：新的属性值。

返回值是原来的属性值。

示例代码（去除窗口边框）：

var
  hwnd: HWND;
  style: Longint;
begin
  hwnd := FindWindow(nil, '记事本'); // 查找标题为'记事本'的窗口句柄
  if hwnd <> 0 then
  begin
    style := GetWindowLong(hwnd, GWL_STYLE); // 获取当前样式
    SetWindowLong(hwnd, GWL_STYLE, style and not WS_BORDER); // 去除边框样式
  end;
end;

在Delphi中，通过调用Windows API函数或使用Delphi封装好的VCL组件，我们可以方便地获取和使用窗口句柄，无论是查找顶级窗口还是子窗口，还是对窗口进行各种操作，都离不开窗口句柄的使用，掌握好窗口句柄的相关知识和技巧，对于提高Delphi程序的开发效率和功能实现具有重要意义。