（4）JVCL之一键获取所有活动窗口的标题与句柄

D-Nolan

已于 2022-04-14 17:35:32 修改

阅读量258

点赞数

分类专栏： JVCL/JCL 文章标签： delphi

于 2022-04-14 17:33:34 首次发布

本文链接：https://blog.csdn.net/gust2013/article/details/124177378

版权

JVCL/JCL 专栏收录该内容

16 篇文章 3 订阅 ¥69.90 ¥99.00

订阅专栏

本文介绍如何利用JVCL库在Delphi中通过EnumWindows函数和EnumWindowsProc回调函数，轻松获取所有活动窗口的标题和句柄。

摘要由CSDN通过智能技术生成

自己用代码也能实现，底层原理就是EnumWindows函数和一个EnumWindowsProc回调函数。

这里JCL帮我们做了下封装，方便以后一键调用。

function EnumWindowsProc(Handle: THandle; LParam: TStrings): Boolean; stdcall;
var
  St: array [0..256] of Char;
  St2: string;
begin
  if Windows.IsWindowVisible(Handle) then
  begin
    GetWindowText(Handle, St, Length(St));
    St2 := St;
    if St2 <> '' then
      TStrings(LParam).AddObject(St2, TObject(Handle));
  end;
  Result := True;
end;

procedure GetVisibleWindows(List: TStrings);
begin
  List.BeginUpdate;
  try
    List.Clear;
    EnumWindows(@EnumWindowsProc, LPARAM(List));
  finally
    List.EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S : TStringlist;
  i : integer;
begin
  S

了解本专栏