Kommandozeilen Programm innerhalb von Delphi

[lorus]

habs ausprobiert

Delphi-Quellcode:

procedure TForm1.BtnWriteCmdClick(Sender: TObject);
begin
  FWriteToStdIn('ping google.de' + #13#10);
  FWriteToStdIn('ping google.de' + #13#10);
end;

Ergebnis:

google wird gepingt .. 4 antworten und anschließend wird google nochmal gepingt ..


edit: Es ist gleich noch eine Frage aufgekommen
Die Sonderzeichen die übergeleitet werden, werden in der Memobox nicht so wie im cmd
dargestellt. Wie könnte man es erreichen, das das Memo den selben Zeichensatz verwendet, wie
das cmd?