Messages abfangen/mitlesen

[Schwedenbitter]

Danke für die ausführlich Antwort!

Zitat von Medium:

Da du uns leider deinen Testcode nicht gezeigt hast, ...

Es gibt keinen "Testcode" als solches. Ich habe folgenden Code mehrfach gefunden und gehe deshalb davon aus, dass er so erst einmal korrekt ist:

Delphi-Quellcode:

Var
   bRet            : Integer;
   Msg            : Winapi.Windows.TMsg;

Begin

      { your program logic }   // [1]

   Repeat
      bRet:= Integer(GetMessage(Msg, 0, 0, 0));
      If (bRet = -1) Then
      Begin
         // error      [2]
         Break;
      End
      Else
      Begin
         //   [3]
         TranslateMessage(Msg);
         // [4]
         DispatchMessage(Msg);
         // [5]
      End
      //   [6]
   Until (bRet = 0);
End.

1. fällt aus, weil es nur genau einmal ausgeführt wird.
2. fällt aus, weil hier nur Fehler behandelt werden.
3. wenn ich hier
   Delphi-Quellcode:

   With TStringList.Create Do
   Try
      SaveToFile('Ich_Lebe.txt');
   Finally
      Free;
   End;

   einfüge, wird die Datei trotzdem nicht erzeugt.
4. Siehe 3.
5. Siehe 3.
6. Siehe 3.

Meine Vorstellung war/ist, dass ich in Msg die Messages mitlausche. Damit sollte ich merken, wenn mein VCL Programm mir etwas mitteilt.

Aber ich greife den Vorschlag gern auf und es sieht mir auch einfacher aus, es über ein VCL-Programm zu machen, dessen Fenster einfach nicht sichtbar ist. So gesehen eine gut Idee - hätte ich auch selbst drauf kommen können Von der Theorie her würde mich aber der Weg über ein Konsolen-Programm dennoch interessieren.