Einzelnen Beitrag anzeigen

WladiD

Registriert seit: 27. Jan 2006
Ort: Celle
135 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Externes programm starten und warten bis dieses "bereit" ist

  Alt 10. Mai 2011, 20:31
Schaue dir mal die Komponente TJvShellHook aus der JVCL an.

Das Event OnShellMessage kannst du dann verarbeiten:

Delphi-Quellcode:
procedure TForm1.ShellHookDispatcher(Sender:TObject; var Message:TMessage);
begin
   case Message.WParam of
      HSHELL_WINDOWCREATED:
         // Fenster erstellt
      HSHELL_WINDOWACTIVATED,
      HSHELL_RUDEAPPACTIVATED:
         // Der nächste Sprung hierher nach
         // HSHELL_WINDOWCREATED bedeutet,
         // dass das Fenster bereit ist...
   end;
end;
In Message.LParam ist stets das Window-Handle enthalten.

Achso, die obige Prozedur muss nur aktiviert werden, bevor du das externe Programm startest.
Waldemar Derr
  Mit Zitat antworten Zitat