Größe und Position eines Konsolenfensters festlegen

[turboPASCAL]

Hi,

das funktioniert nur bedingt da die Console nur eine bestimmte Maximalgrösse haben kann.

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows;

procedure SetConsoleSize(W, H: Word);
var
  _coord: COORD;
  _sr: _SMALL_RECT;
  hConsole: THandle;
begin
  hConsole := GetStdHandle(STD_OUTPUT_HANDLE);

  _coord.X := 80;
  _coord.Y := 1000;

  SetConsoleScreenBufferSize(hConsole, _coord);

  _sr.Left := 0;
  _sr.Top  := 0;
  _sr.Right := W;
  _sr.Bottom := H;

  SetConsoleWindowInfo(hConsole, TRUE, _sr);
end;

begin
   SetConsoleSize(20, 40);

  readln;
end.

Ob so das auch mit FreePascal unter Linux funktioniert kann ich nicht sagen.