好吧,我一直在试验 Delphi 中的 Win32 API,但我不确定在哪里可以查看使用它们的示例……看看 MSDN 如何只显示 C++ 示例。
我已经翻阅了 Delphi 7 的帮助文件,嗯......我有点困惑,所以我将粘贴我找到的工作代码和帮助文件显示的代码,我不明白它是如何转换成我的工作代码的......除非我使用的代码有些被屠杀了。
所以这是我现在使用 SetConsoleTextAttribute 函数试验的代码
----我知道的代码可以工作并改变颜色----
begin
SetConsoleTextAttribute(GetStdHandle(
STD_OUTPUT_HANDLE),
FOREGROUND_RED OR
BACKGROUND_BLUE);
Writeln('Red text on a blue background !');
ReadLn;
end.
----------结束工作代码----------
--------现在这里是来自官方delphi文档的片段-----
BOOL SetConsoleTextAttribute(
HANDLE hConsoleOutput, // handle of console screen buffer
WORD wAttributes // text and background colors
);
参数
hConsole输出
标识控制台屏幕缓冲区。句柄必须具有 GENERIC_READ 访问权限。
w属性
指定前景色和背景色属性。可以指定以下值的任意组合:FOREGROUND_BLUE、FOREGROUND_GREEN、FOREGROUND_RED、FOREGROUND_INTENSITY、BACKGROUND_BLUE、BACKGROUND_GREEN、BACKGROUND_RED 和 BACKGROUND_INTENSITY。例如,以下值组合在黑色背景上生成白色文本:
FOREGROUND_RED | FOREGROUND_GREEN | FOREGROUND_BLUE
------结束Delphi帮助------
有人能告诉我我脑袋里的哪个汽缸没有开火吗?