winapi - Pascal - 将背景设置为白色（不是灰色，纯白色）

Question

是否可以将 Pascal 中的控制台背景设置为纯白色？我不满意

TextBackground(White);

如果有任何改变，我可以使用 WinApi 函数。我知道控制台中的背景可以设置为纯白色（不是灰色）。我曾经看过它的程序。我认为这是批处理脚本。但我想在控制台中实现它。任何技巧都可以。如果没有其他办法，它可以是非常低的水平。

更新。我找到了批处理命令。

"COLOR arg"

我知道我可以通过使用在 C++ 中使用它

System("COLOR fc");

但我在 Pascal 中找不到任何“系统”命令。

score 0 · Accepted Answer

您可以将背景更改为白色，然后将 textcolor 更改为闪烁并清除屏幕。

TextBackground(white); TextColor(Blink); Crt.ClrScr;

score 0 · Accepted Answer

霍奇，你是对的。

如果我打电话TextBackground(White);或者TextBackground(White);这会变成灰色。

对于纯白色需要 write TextAttr:=$f0;，其中 $ f _ 是背景颜色（例如白色），而 $_ 0是文本颜色（例如黑色）。

score 0 · Accepted Answer

您可以使用此代码

swapvectors;  exec('cmd','/c color f0');  swapvectors;

这是设置控制台窗口颜色的命令提示符

要使用此代码，您必须使用 DOS 单元。

对不起我的英语，我是学生。

score -1 · Accepted Answer

右键单击 CMD 窗口顶部 -> 属性 -> 颜色 -> 选择任何你想要的。

也试试TextBackground(15);

4 回答 4