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;