Console in Delphiprogramm?

[sakura]

Hier mal ein Anfang, den Rest überlasse ich Deiner Experimentierfreudigkeit

Erstelle ein Form mit einem Panel und einem Button (ausserhalb des Panels).

In und um den Button OnClick Handler kommt folgender Code:

Delphi-Quellcode:

function GetConsoleWindow: HWND; stdcall; external kernel32 name 'GetConsoleWindow';
function SetConsoleDisplayMode(hConsoleOutput: HWND; dwFlags: DWORD; lpNewScreenBufferDimensions: PCOORD): BOOL; stdcall; external kernel32 name 'SetConsoleDisplayMode';

procedure TForm1.Button1Click(Sender: TObject);
begin
   if AllocConsole then
   begin
     Windows.SetParent(GetConsoleWindow, Panel1.Handle);
     ShowWindow(GetConsoleWindow, SW_MAXIMIZE);
     SetWindowText(GetConsoleWindow, 'Mein Console Window');
     Button1.SetFocus;
   end;
end;

......