更改控制台大小

Question

Delphi中的简单问题。我创建了一个控制台应用程序，如果控制台窗口的高度少于 80 行，我需要将其高度更改为 80 行。这需要从代码中完成，并且实际上是在代码内有条件的。 （即，当发生错误时，它会增加控制台的大小，以便整个（巨大的）错误报告可见。）
请记住，这是一个控制台应用程序！当它启动时，它使用默认控制台，我需要更改它！

Answer 1

调用 SetConsoleWindowInfo() 时，传递到控制台的 Left 和 Top 值至少需要为 1，而不是 0。问题已解决。

我现在这样做：

uses
  Windows;

var
  Rect: TSmallRect;
  Coord: TCoord;
begin
  Rect.Left := 1;
  Rect.Top := 1;
  Rect.Right := 80;
  Rect.Bottom := 60;
  Coord.X := Rect.Right + 1 - Rect.Left;
  Coord.y := Rect.Bottom + 1 - Rect.Top;
  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), Coord);
  SetConsoleWindowInfo(GetStdHandle(STD_OUTPUT_HANDLE), True, Rect);
end;

Answer 2

procedure SetConsoleWindow(NewWidth : integer;NewHeight : integer);

var
  Rect: TSmallRect;
  Coord: TCoord;
  begin { SetConsoleWindow }
  Coord.X := NewWidth;
  Coord.y := NewHeight;
  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), Coord);
  Rect.Left := 0;   //  must be zero
  Rect.Top := 0;
  Rect.Right := Coord.X - (Rect.Left + 1);
  Rect.Bottom := Coord.y - (Rect.Top + 1);
  SetConsoleWindowInfo(GetStdHandle(STD_OUTPUT_HANDLE), True, Rect);
  end; { SetConsoleWindow }