Windows-Konsolenfenster positionieren?

[Bummi]

auf Deine Frage direkt habe ich leider keine Antwort, aber vielleicht möchtest Du ja die Konsolenausgabe direkt ine einem Memo in Deinem Programm anzeigen?

Delphi-Quellcode:

implementation
uses ConsoleThread;
{$R *.dfm}

var
  cs:TConsoleThread;

Procedure TheCallBack(s:AnsiString);
var
  ansi:WideString;
begin
  Setlength(ansi,length(s));
  OemToChar (@s[1],@ansi[1]);
  ansi := StringReplace(StringReplace(ansi,#9689,#10,[rfReplaceAll]),#9834,#13,[rfReplaceAll]);
  Form1.Memo1.Text:=Form1.Memo1.Text+ansi;
  Form1.Memo1.Perform(EM_LineScroll, 0 , Form1.Memo1.Lines.Count-1);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

//   cs:=TConsoleThread.Create('Ping 192.168.1.1', '','',TheCallBack);
   cs:=TConsoleThread.Create('cmd /C CD \|dir'#13#10, '','',TheCallBack);  // ACHTUNG CMD nur so


   cs.Resume;
end;