Größe und Position eines Konsolenfensters festlegen

[x303]

Guten Vormittag

Ich programmiere erst seit 3 - 4 Wochen in Delphi und komme recht gut klar. Nun habe ich jedch meine erste Frage.

Wie kann ich die Größe als auch die Position des Fesnters in Delphi festlegen?
Google und Co. haben in diesem Fall nur wenig geholfen. Ich möchte die Werte nicht in der Registry ändern müssen, wie zum Beispiel mit der "Procedure": TRegistry, sofern das möglich ist.

Vielen Dank schon Mal im Vorraus.

MFG, x303

P.S.: Vielleicht sollte ich noch erwähnen, dass ich Lazarus als IDE und somit FreePascal als Complier nutze.

[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. :gruebel: