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

相关文章推荐

冷静的豌豆 · 设置控制台字体颜色及获取字体大小_c语言获取 ...· 2 月前 ·

力能扛鼎的咖啡 · I need help with ...· 10 月前 ·

忐忑的领带 · android子进程崩溃父进程会崩溃吗-掘金· 1 年前 ·

谦虚好学的火柴 · Oracle中把一张表查询结果插入到另一张表 ...· 1 年前 ·

大方的黄花菜 · JavaScript数组常用方法解析和深层次 ...· 1 年前 ·

大方的铁板烧 · 我的微软outlook账户一直被别人登录 ...· 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);

推荐文章

冷静的豌豆 · 设置控制台字体颜色及获取字体大小_c语言获取控制台字体大小

2 月前

力能扛鼎的咖啡 · I need help with RegConnectRegistry - CodeProject

10 月前

忐忑的领带 · android子进程崩溃父进程会崩溃吗-掘金

1 年前

谦虚好学的火柴 · Oracle中把一张表查询结果插入到另一张表中 - Agoly - 博客园

1 年前

大方的黄花菜 · JavaScript数组常用方法解析和深层次js数组扁平化_51CTO博客_js数组扁平化方法

1 年前

大方的铁板烧 · 我的微软outlook账户一直被别人登录 - Microsoft Community

1 年前

回答 2

Stack Overflow用户

Stack Overflow用户