Programm extern ausführen

[lbccaleb]

versuchs mal damit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  output, errors: TStringList; 
begin 
   output := TStringList.Create; 
   try 
     errors:=TStringList.Create; 
     if GetConsoleOutput('cmd /K '+Edit1.Text, output, errors) then 
       label1.caption := output.ValueFromIndex[5]; 
   finally 
     output.free; 
     errors.free; 
   end; 
end;

[Ari]

Vielen vielen Dank, es funktioniert jetzt!!

Danke danke und nochmals danke

[Harry M.]

Delphi-Quellcode:

     if GetConsoleOutput('cmd /K '+Edit1.Text, output, errors) then 
       label1.caption := output.ValueFromIndex[5]
       else
       label1.caption := errors.text;

Zwecks eventueller Fehler, ne

[Ari]

Och mist...heut ist mir ein Fehler aufgefallen:

hatte RunCaptured('e:', 'scip.exe', '-c "read prog.zpl"') benutzt und wie erwartet funktionierte die ganze Geschichte auf einem anderen Computer wieder nicht..

Übrigens läuft das ganze über meinen USB-Stick, dachte also daran, einfach per c:\windows\explorer (müsste der arbeitsplatz sein..eigentlich o.O) meinen USB-Stick "anzusprechen" - aber der wird auch bei jedem PC anders benannt, G, Q, F, wie auch immer.

Dann hab ich nach Befehlen gesucht, die einfach auf das Verzeichnis verweisen, in dem mein Delphi-Programm selbst sich befindet, also das aktuelle Verzeichnis. "chdir" und "cd" hab ich ausprobiert aber das ging auch nicht (geht nur in cmd?)

Zuletzt wollte ich das durch eine Eingabe des Verzeichnisses in ein Edit-Fenster laufen lassen, aber dort wird angezeigt, dass der Verzeichnisname ungültig sei.

Könntet ihr mir bitte noch einmal helfen?

edit: also RunCaptured scheint nur das Laufwerk zu brauchen, nicht mal den kompletten Pfad..

edit2: achja, hier der link zu runcaptured selbst.. http://www.freelists.org/archives/sd.../msg00001.html das hab ich so eingesetzt und an sich funktionierts (aber halt nur auf meinem pc)

[Olli]

Wenn du die Ausgabe nicht abfangen musst, hilft auch ShellExecuteAndWait ... (hier der Direktlink zu meinem damaligen Beitrag)

[Ari]

Mit Ausgabe abfangen meinst du, dass Delphi Zeilen aus dem ausgeführten Programm ausliest? Brauche das Einlesen/Abfangen leider nach wie vor..

[Ari]

Habs jetzt rausgefunden muss dafür nur
RunCaptured('.\', 'scip.exe', '-c "read prog.zpl quit"')

Nochmal danke

[Dschingis]

Ich bedanke mich ebenfalls. Habe beim Lesen einiges kapiert und gelernt.

Danke an alle beteiligten.

Dschingis