Forum: Sonstige Fragen zu Delphi
by fuchsle,
14. Nov 2011
Ich gehe davon aus, dass hiermit
Memo1.Lines := SLOut;
der Inhalt von Memo1 mit den Daten von SLOut überschrieben wird und dadurch immer "geleert" wird.
In meinem speziellen Fall ist es gewünscht, dass immer nur der aktuelle Inhalt geladen wird.
Daher ist es mir nicht negativ aufgefallen.
Forum: Sonstige Fragen zu Delphi
by fuchsle,
14. Nov 2011
Habe es nochmals probiert.
Geht einwandfrei.
Vielen Dank.
Forum: Sonstige Fragen zu Delphi
by fuchsle,
14. Nov 2011
Danke. Sieht gleich besser aus.
Forum: Sonstige Fragen zu Delphi
by fuchsle,
10. Nov 2011
Habe den Aufruf nun so modifiziert, da es Fehlermeldungen gab durch Verwendung von TStringList und TStrings.
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
Forum: Sonstige Fragen zu Delphi
by fuchsle,
9. Nov 2011
Hallo zusammen,
die Suchfunktion ist mir bekannt :( und ich habe auch schon einige Beiträge gefunden.
Bevorzugt wird von mir die Lösung mit der Funtion GetConsoleOutput, welche hier bekannt sein dürfte.
function TForm1.GetConsoleOutput(const Command: string; Output,
Errors: TStringList): Boolean;
var
StartupInfo: TStartupInfo;