VCL Forms程序中如何让特定类所有窗体实例接收自定义PostMessage？

这个问题我之前做VCL多窗体程序时也碰到过，刚好有几个精准适配需求的方案，分场景给你拆解清楚：

分情况处理：本进程内发送 vs 跨进程发送 #

1. 本进程内发消息：用全局实例列表精准推送 #

既然是同一个进程，我们可以自己维护一个线程安全的全局列表，跟踪所有TFrmTest的实例，这样发消息时直接遍历列表就行，高效又不会错：

• 给TFrmTest加OnCreate事件，创建时把自己加入全局列表；
• 加OnDestroy事件，销毁时从列表里移除自己；
• 发消息的时候，遍历列表给每个实例的窗口句柄发PostMessage。

示例代码：

// 全局线程安全列表，用来存所有TFrmTest实例
var
  FrmTestInstances: TThreadList;

// TFrmTest的创建事件
procedure TFrmTest.FormCreate(Sender: TObject);
var
  List: TList;
begin
  List := FrmTestInstances.LockList;
  try
    List.Add(Self);
  finally
    FrmTestInstances.UnlockList;
  end;
end;

// TFrmTest的销毁事件
procedure TFrmTest.FormDestroy(Sender: TObject);
var
  List: TList;
begin
  List := FrmTestInstances.LockList;
  try
    List.Remove(Self);
  finally
    FrmTestInstances.UnlockList;
  end;
end;

// 本进程内给所有TFrmTest发消息的方法
procedure SendCustomTestToAllLocalForms;
var
  List: TList;
  I: Integer;
  Frm: TFrmTest;
begin
  List := FrmTestInstances.LockList;
  try
    for I := 0 to List.Count - 1 do
    begin
      Frm := TFrmTest(List[I]);
      if IsWindow(Frm.Handle) then
        PostMessage(Frm.Handle, WM_CUSTOMTEST, 0, 0);
    end;
  finally
    FrmTestInstances.UnlockList;
  end;
end;

这种方式完全避开了遍历系统窗口的开销，只给目标窗体发消息，非常高效。

2. 跨进程发消息：枚举系统窗口匹配类名 #

如果消息是从其他进程发过来的，那肯定没法直接访问目标进程的窗体列表，这时候就得用系统API枚举所有顶层窗口，筛选出类名为TFrmTest的窗口，逐个发消息：

核心是用EnumWindows配合GetClassName来做筛选，示例代码如下：

// 枚举窗口的回调函数，负责检查窗口类名并发送消息
function EnumWindowsProc(Wnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
  ClassName: array[0..255] of Char;
begin
  Result := True; // 保持枚举继续
  if GetClassName(Wnd, ClassName, SizeOf(ClassName)) > 0 then
  begin
    // 匹配到TFrmTest类的窗口就发消息
    if StrComp(ClassName, 'TFrmTest') = 0 then
    begin
      PostMessage(Wnd, WM_CUSTOMTEST, 0, 0);
    end;
  end;
end;

// 跨进程给所有TFrmTest发消息的方法
procedure SendCustomTestToAllRemoteForms;
begin
  EnumWindows(@EnumWindowsProc, 0);
end;

小提示：

• 如果你的TFrmTest是MDI子窗口这种非顶层窗口，得改用EnumChildWindows来枚举子窗口；
• 要是只想给某个特定进程的窗体发消息，可以用GetWindowThreadProcessId获取窗口所属进程ID，再加一层判断；
• 这个方法是系统级的，跨进程完全安全，刚好符合你的需求。

3. 统一调用逻辑（兼容两种场景） #

如果你的消息发送代码可能在本进程或其他进程执行，可以把两种逻辑结合起来：比如先尝试用全局列表发（本进程内），如果检测到是跨进程调用，自动切换到枚举窗口的方式。当然，要是嫌麻烦，直接用枚举窗口的方式也能覆盖两种场景，只是本进程内用全局列表会更高效一点。

为啥不推荐用HWND_BROADCAST？ #

可能有人会想到用PostMessage(HWND_BROADCAST, WM_CUSTOMTEST, 0, 0)广播消息，但这个方法会把消息发给所有顶层窗口，不仅效率低，还可能让其他无关程序收到消息（万一别的程序也用了相同的自定义消息ID），所以精准枚举窗口才是更稳妥的选择。

内容的提问来源于stack exchange，提问作者Marcoscdoni