Abfangen einer Message ans eigene Programm

[Luckie]

@Chakotay: Man kann auch die WndProc überschreiben, dann kommt man auch an alle Nachrichten dran.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...;
  public
    { Public-Deklarationen }
  protected
    procedure WndProc(var msg: TMessage); override;
  end;

[..]

procedure TForm1.WndProc(var msg: TMessage);
begin
  case msg.Msg of
    SPM_PROGRESS:  // selbst definierte Nachricht1
      begin
        ...;
      end;
    SPM_DONE:  // selbst definierte Nachricht2
      begin
        ...;
      end;
  end;
  inherited;
end;