delphi - 如何在Delphi上获取事件表单的ClassName(可能来自另一个应用程序)？

Question

如何在 Delphi 上获取事件表单的 ClassName(可能来自另一个应用程序)？

似乎 Application.ActiveFormHandle 仅返回 Application 的事件形式。

Answer 1

我相信您正在寻找的窗口句柄是由 GetForegroundWindow 返回的。

要获取类名，请将该窗口句柄传递给 Windows API 函数 GetClassName 。这是该 API 函数的 Delphi 包装器:

function GetWindowClassName(Window: HWND): string;
const
  MaxClassNameLength = 257;//256 plus null terminator
var
  Buffer: array [0..MaxClassNameLength-1] of Char;
  len: Integer;
begin
  len := GetClassName(Window, Buffer, Length(Buffer));
  if len=0 then
    RaiseLastOSError;
  SetString(Result, Buffer, len);
end;

我使用了长度为 256 的缓冲区，因为窗口类名称不允许长于该长度。