Hallo,

ich rufe einen externen Befehl auf, indem ich nicht das normale ShellExecute, sondern ShellExecuteAndWait verwende. Dabei handelt es sich etwa um folgenden Befehl:

dir *.txt /s

Besteht irgendeine Möglichkeit, das aufklappende Windows-Konsolenfenster zu positionieren? Ideal wäre etwa eine Positionierung direkt unter meinem Hauptformular, welches ich extra für die Ausführung des Befehls oben mittig zentriere. Direkt darunter soll das Konsolenfenster erscheinen.

Ich habe nichts entsprechendes gefunden.

Danke für die Hilfe, Devid

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?

zusammenfalten · markieren

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;