Japp, so geht' s. Ich habe die Funktion mal schnell umgeschrieben(TStringlist -> TStrings, UniqueString, etc.), Fehler vorbehalten.
...
Damit kann der Aufruf vereinfacht werden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
GetConsoleOutput('cmd /c dir c:\', Memo1.Lines, nil);
end;
Habe den Aufruf nun so modifiziert, da es Fehlermeldungen gab durch Verwendung von TStringList und TStrings.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
SLOut, SLErr: TStringList;
I: Integer;
begin
SLOut := TStringList.Create;
SLErr := TStringList.Create;
if GetConsoleOutput('cmd /c dir c:\', SLOut, SLErr) then
begin
for I := 0 to SLOut.Count - 1 do
begin
Memo1.Lines.Add(SLOut.Strings[I]);
end;
end;
end;
Bin mir jedoch nicht sicher, ob es da noch eine elegantere Lösung gibt, aber es funktioniert.
Vielen Dank für die Unterstützung.