Einzelnen Beitrag anzeigen

nytaiceman

Registriert seit: 15. Dez 2005
Ort: Schweiz, Bern
58 Beiträge
 
Delphi XE3 Professional
 
#1

Messages einer DLL abfangen

  Alt 7. Jun 2011, 15:50
Hallo zusammen,

Ich benutze eine Funktion einer DLL, das funktioniert soweit einwandfrei.

Die DLL selbst gibt aber Messages als Messagebox aus. Diese Texte würde ich aber gerne weiterverwenden (z.B. in ein Logfile etc).

Ich habe versucht, mittels einer generellen Message Abfrage, an den Text zu kommen, das ist mir aber noch nicht ganz gelungen, weil ich damit nur eine Messagenummer erhalte, nicht aber den Text der angezeigt wird:

Delphi-Quellcode:
type
  TForm1 = class(TForm)
  ...
protected
    procedure WndProc(var Message: TMessage); override;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation
{$R *.dfm}
 ...

// === Receive ALL Messages send to my Form =========================
procedure TForm1.WndProc(var Message: TMessage);
begin
 WriteLog('Messaging',Message.msg); // Write Message to Logfile
end;
Wie komme ich an den eigentlichen Text der in der aufgerufenen MessageBox angezeigt wird?
Oder ist das gar kein Messageevent?

Danke bereits im voraus.
Einfach ist nur einfach, wenn Einfach auch einfach ist!
Vermeintlich einfache Workarounds führen irgendwann zu Problemen!
  Mit Zitat antworten Zitat