delphi - Delphi 嵌套类中的 EnumWindows

Question

我在使用嵌套类中的回调函数的 EnumWindows 函数时遇到一些问题:

TProcessWatch = class(TObject)
private
  ...
  type
    TProcessInfo = class(TObject)
    private
    type
      PEnumCallbackParam = ^TEnumCallbackParam;
      TEnumCallbackParam = class
        A : Integer;
        ...
      end;
    private
      FOwner : TProcessWatch;
      function FEnumWindowsCallback(hWindow : HWND; lParam : LPARAM) : BOOL; export;
      procedure SomeProc;
      ...
    end;
private
  FProcesses : TProcessInfo;
  ...
public
  ...

在 SomeProc 中，有一个对 EnumWindows 的调用

EnumCallbackParam := TEnumCallbackParam.Create;
try
  EnumCallbackParam.A := 0;
  EnumWindows(@TProcessWatch.TProcessInfo.FEnumWindowsCallback, LongInt(@EnumCallbackParam));
  ...
finally
  EnumCallbackParam.Free;
end;

这是一个 FEnumWindowsCallback 函数列表:

function TProcessWatch.TProcessInfo.FEnumWindowsCallback(hWindow: HWND;
  lParam : LPARAM): BOOL; export;
var
  CallbackParam : PEnumCallbackParam;
begin
  CallbackParam := Pointer(lParam); // A is inaccessible
  Result := True;
  ...
end;

在运行时，当调用 EnumWindows 时，FEnumWindowsCallback 始终接收 hWindow = 0 并且 lParam 指向达到无法获得的值(value)。

如果回调函数在表单中声明为私有(private)，那么所有这些都可以正常工作，但是当我尝试在嵌套类中将此函数设为私有(private)时，它就出错了。

为什么？以及如何使其发挥作用？目标是使 FEnumWindowsCallback 和所有其他涉及的函数在 TProcessWatch 中私有(private)化。

Answer 1

回调声明错误。应该是:

class function EnumWindowsCallback(hWindow: HWND; 
  lParam: LPARAM): BOOL; static; stdcall; 

您使用了错误的调用约定和实例方法。

其他评论:

• EnumCallbackParam 已经是一个指针。您可以将其作为参数传递。
• 转换为 LPARAM 而不是 LongInt，以便您的代码在编译为 64 位时也能正常工作。
• export 关键字在 32 位或 64 位 Delphi 中没有任何意义。它被忽略，您不应该使用它，因为它会增加困惑并且可能会造成困惑。