Aus eigener Anwendung Konsolenfenster starten und schließen

[t.roller]

Das geht z.B. so:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var res : hWnd;
begin
   Res := FindWindow('ConsoleWindowClass',NIL);
   PostMessage(Res, WM_CLOSE, 0,0);
end;

Sind mehrere ConsoleWindows vorhanden, muss der Befehl mehrmals aufgerufen werden:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var res : hWnd;
begin
repeat
   Res := FindWindow('ConsoleWindowClass',NIL);
   PostMessage(Res, WM_CLOSE, 0,0);
until res=0;
end;