如何通过代码实现Lazarus控制台窗口的最大化？

嘿，刚好之前在Lazarus开发控制台程序时折腾过窗口最大化的需求，结合你已经有的窗口属性修改代码，给你分享几个实用的实现方案——都是基于Windows API的（毕竟控制台窗口在Windows下是系统层面的对象）：

方案一：用系统API直接调用最大化指令 #

这是最简洁的方法，通过GetConsoleWindow获取控制台窗口句柄，再用ShowWindow发送最大化命令，代码很直观：

首先确保你的项目引用了Windows单元，然后添加这个自定义函数：

uses
  Windows;

procedure MaximizeConsoleWindow;
var
  ConsoleHandle: HWND;
begin
  // 获取当前控制台窗口的句柄
  ConsoleHandle := GetConsoleWindow;
  if ConsoleHandle <> 0 then
  begin
    // 发送最大化指令
    ShowWindow(ConsoleHandle, SW_MAXIMIZE);
    // 可选：强制刷新窗口，确保最大化状态生效
    UpdateWindow(ConsoleHandle);
  end;
end;

使用方式 #

如果想程序启动时就自动最大化，直接在主程序入口调用：

begin
  MaximizeConsoleWindow;
  // 你的业务代码开始执行
  Writeln('控制台已最大化！');
  Readln;
end.

如果是需要在运行中触发最大化（比如响应某个输入指令），把MaximizeConsoleWindow调用放在对应的逻辑分支里就行。

方案二：手动设置窗口尺寸适配屏幕（进阶） #

如果你需要更精细的控制（比如不想用系统默认的最大化，而是自己定义铺满屏幕），可以结合GetSystemMetrics获取屏幕尺寸，再用SetWindowPos调整窗口：

procedure FullScreenConsoleWindow;
var
  ConsoleHandle: HWND;
  ScreenWidth, ScreenHeight: Integer;
begin
  ConsoleHandle := GetConsoleWindow;
  if ConsoleHandle <> 0 then
  begin
    // 获取屏幕的宽高（不含任务栏）
    ScreenWidth := GetSystemMetrics(SM_CXSCREEN);
    ScreenHeight := GetSystemMetrics(SM_CYSCREEN);
    // 设置窗口位置和尺寸为全屏
    SetWindowPos(ConsoleHandle, HWND_TOP, 0, 0, ScreenWidth, ScreenHeight, SWP_SHOWWINDOW);
  end;
end;

这个方法适合需要自定义窗口边界的场景，比如你想保留部分屏幕空间的情况。

注意事项 #

• 以上方案仅适用于Windows平台，因为依赖Windows API；如果是跨平台控制台程序，Linux/macOS下的窗口控制逻辑完全不同，需要单独处理。
• 如果你的控制台窗口是通过代码手动创建的（而非系统默认的控制台），需要替换GetConsoleWindow为你创建窗口时保存的句柄。

内容的提问来源于stack exchange，提问作者CatCalledBlep