windows - 收集所有事件窗口类名

Question

许多程序(True Transparancy 和其他程序)可以在后台窗口类名称中全部激活或运行，如下所示:

Delphi 7 对象检查器名称是 tpropertyinspector
Opera 主窗口类名称是 operawindowclass
等

那么如何在Delphi中获取任何打开的窗口类名呢？

Answer 1

调用 EnumWindows 获取所有顶级窗口。然后调用 GetClassName 找出每个窗口的窗口类名。如果您还希望探测子窗口，请在每个顶级窗口上调用 EnumChildWindows。

像这样调用 GetClassName:

var
  ClassName: string;
  len: Integer;
...
SetLength(ClassName, 256);
len := GetClassName(window, PChar(ClassName), Length(ClassName));
if len=0 then
  RaiseLastOSError;
SetLength(ClassName, len);