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

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);

推荐文章

豁达的西装 · 控制台工具实用工具函数和选择器 - Microsoft Edge Developer documentation | Microsoft Learn

2 月前

飘逸的核桃 · Android（java）学习笔记133：Eclipse中的控制台不停报错Can't bind to local 8700 for debugger - 鸿钧老祖

1 月前

伤情的墨镜 · 斗罗：震惊开局被唐三暗恋_(甘齐教授)小说最新章节全文免费在线阅读下载-QQ阅读

2 年前

酒量大的风衣 · 省发展改革委副主任支安宇带队赴兰考县付楼村开展帮扶调研活动_委领导_河南省发展和改革委员会

2 年前

酒量大的风衣 · 中华人民共和国司法部

2 年前

飘逸的冰淇淋 · 用于可穿戴智能纺织品的复合导电纤维研究进展

2 年前

爱运动的鸡蛋面 · 第22话一堂是我的了 - 都市超级神尊 - 包子漫画

2 年前

回答 2

Stack Overflow用户

Stack Overflow用户