Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Windows-Konsolenfenster positionieren? (https://www.delphipraxis.net/152490-windows-konsolenfenster-positionieren.html)

devidespe 24. Jun 2010 11:59

Windows-Konsolenfenster positionieren?
 
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

Bummi 24. Jun 2010 12:07

AW: Windows-Konsolenfenster positionieren?
 
Liste der Anhänge anzeigen (Anzahl: 1)
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz