MMF und FindWindow

[Sprint]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  ...
  private
    { Private-Deklarationen }
    WndMsg: UINT;
    procedure AppMsg(var Msg: TMsg; var Handled: Boolean);
  ...
  end;

Delphi-Quellcode:

{--------------------------------------------------------------------------------------------------}

procedure TForm1.FormCreate(Sender: TObject);
begin

  Application.OnMessage := AppMsg;
  WndMsg := RegisterWindowMessage('{950D0522-8C50-4FB7-BB30-734E5F6AE7D4}');

end;

{--------------------------------------------------------------------------------------------------}

procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean);
begin

  if Msg.message = WndMsg then
  begin
    ShowMessage('test');
    Handled := True;
  end else
    Handled := False;

end;

{--------------------------------------------------------------------------------------------------}

procedure TForm1.Button1Click(Sender: TObject);
begin

  PostMessage(HWND_BROADCAST, WndMsg, 0, 0);

end;

{--------------------------------------------------------------------------------------------------}