Shellexecute Ergebnis im Memo Objekt ausgeben

[JimmyB]

Hallo,
ich bin seit ein paar Wochen neu mit Delphi unterwegs, dachte eigentlich dass was ich machen möchte ist einfach, bekomme es aber nicht auf die Reihe.

Ich möchte mit Shellexecute ein externes Kommandozeilen Programm ausführen.
Das Ergebnis soll in einem Memo Objekt ausgegeben werden.

Als einfaches Beispiel:

Filename := 'dir'; //"dir" dient hier nur als Beispielprogramm
ShellExecute(handle,'open',PChar(filename), '','',SW_SHOW);

Was müsste ich machen um die Ausgabe von "dir" in einem Memo Objekt darzustellen?

Viele Grüße
JimmyB

[Der schöne Günther]

Hallo und Herzlich Willkommen

Das ist wirklich viel schwieriger als es klingt.
Wir müssen erst einmal klären was du genau willst. Mit "Ergebnis" meinst du wahrscheinlich nicht den "Rückgabecodes" eines Prozesses, sondern das, was das Programm in die Windows-Konsole schreibt, würde man es doppelklicken oder per Konsole aufrufen. Richtig?

Wenn ja, dann ist ShellExecute(..) bereits das falsche Werkzeug für die Mission. Es ist praktisch dazu gedacht, ein "Benutzer vor dem PC doppelklickt Element XY" zu simulieren. Es bietet keine Möglichkeiten, die "Standardausgabe stdOut" des Programms (welches du starten willst) so "abzufangen", dass du es z.B. in einer Memo anzeigen könntest.

Die richtigen Tools hierfür wären in der Regel das etwas unhandliche CreateProcess(..) und ein vorheriges Erstellen einer "Pipe", um die Standard-Ausgabe deines Konsolenprozesses "aufzufangen".

Im Internet gibt es viele fertige Lösungen, wenn du z.B. "delphi capture console output" in die Suchmaschine deines Vertrauens eingibst. Wenn man den Anspruch hat das wirklich zu verstehen ist schon einiges an Arbeit nötig, vor allem wenn man sich mit Dingen wie Pipes oder stdIn/stdOut noch nicht beschäftigt hat.

[JimmyB]

Hallo,

lieben Dank mit den richtigen Weg zu zeigen. Du hast es richtig wiedergeben, dass ich Rückgabecodes in ein Memo Objekt ausgeben möchte.
Ich mache mich auf die Suche nach Beispielen.

Viele Dank
JimmyB

[relocate]

Ich habe vor Äonen das hier benutzt, ob das heute noch geht weiß ich nicht (keine neue Delphi Version).

https://www.delphipraxis.net/80089-%...riable-ip.html

[Maekkelrajter]

Hier findest du die Routine 'GetConsoleOutput' mit einer kleinen, aber wichtigen Ergänzung: Vor dem 'CreateProcess' muss die muss die Zeile 'UniqueString(Command);' eingefügt werden. Damit läuft sie bei mir unter Delphi 10.4 / Windows 10

Gruß LP

[hoika]

Hallo,
eine Suche nach
ShellExecuteEx und Pipes sollten Dir helfen .