Delphi如何获得窗口的名字？

转载于 2011-04-15 23:00:00 发布 · 1.1k 阅读

文章标签：

#delphi #integer #list #function

delphi 专栏收录该内容

18 篇文章

订阅专栏

本文介绍如何利用WindowsAPI中的EnumWindows函数枚举所有窗口，并通过GetWindowText函数获取每个窗口的标题信息。代码示例展示了如何将获取到的窗口标题添加到TStrings对象中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用WindowsAPI EnumWindows可以实现你想要的功能。
EnumWindows枚举所有窗口，用GetWindowText获得标题。
具体代码如下：
function EnumWndProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
var
wndTitle: array[0..255] of Char;
begin
//获取窗口名称
if GetWindowText(hwnd, wndTitle, 255) > 0 then
begin
//参数lParam转换为TStrings，添加窗口标题
TStrings(lParam).Add(wndTitle);
end;

//返回True则继续下一个窗口，否则停止
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStrings;
begin
List := Memo1.Lines;
EnumWindows(@EnumWndProc, Integer(List));
end;