更改控制台大小开发者社区

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

踢足球的火龙果 · [Prevent Colab from ...· 7 月前 ·

直爽的围巾 · Can't create new site ...· 9 月前 ·

爱玩的充电器 · 會場售票-共融世界-2025宜蘭綠色博覽會· 9 月前 ·

热心肠的鸡蛋 · 合肥地铁8号线，预计月底开通！· 1 年前 ·

含蓄的爆米花 · 米利暗_百度百科· 1 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 TVP

文章/答案/技术大牛

发布

uses
  Windows;
  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;

procedure SetConsoleWindow(NewWidth : integer;NewHeight : integer);
  Rect: TSmallRect;
  Coord: TCoord;
  begin { SetConsoleWindow }
  Coord.X := NewWidth;
  Coord.y := NewHeight;
  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), Coord);

推荐文章

踢足球的火龙果 · [Prevent Colab from sleeping] · GitHub

7 月前

直爽的围巾 · Can't create new site (and know why) - Support - Local Community

9 月前

爱玩的充电器 · 會場售票-共融世界-2025宜蘭綠色博覽會

9 月前

热心肠的鸡蛋 · 合肥地铁8号线，预计月底开通！

1 年前

含蓄的爆米花 · 米利暗_百度百科

1 年前

回答 2

Stack Overflow用户

Stack Overflow用户