Anwendungsweite User-Message senden

[shmia]

Delphi-Quellcode:

var
  I: Integer;
begin
  for I := 0 to Screen.CustomFormCount - 1 do
    with Screen.CustomForms[I] do
      if HandleAllocated { and IsWindowVisible(Handle) and
        IsWindowEnabled(Handle) } then
        PostMessage(Handle, WM_MY_USER, 0, 0);
end;

Ich habe IsWindowVisible und IsWindowEnabled mal auskommentiert; kommt nur auf deine Situation an, ob das benötigt wird oder nicht.