控制台程序单调的黑色底调，白色字给人一种压抑的感觉，但是系统是提供给我们
api来显示不同的颜色。下面是一段代码。
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
consolehwnd : THandle;
i : Integer;
begin
consolehwnd := GetStdHandle(STD_OUTPUT_HANDLE);//取得输出句柄－ STD_INPUT_HANDLE输入
SetConsoleTitle(\'http://www.pggpjj.com\');//设置console windowtitle
SetConsoleTextAttribute(consolehwnd,FOREGROUND_BLUE);//设置输出字体颜色--
Writeln(\'我是P哥!!\');
SetConsoleTextAttribute(consolehwnd,FOREGROUND_RED);
Writeln(\'我的人生格言\');
SetconsoleTextAttribute(consolehwnd,FOREGROUND_GREEN);
Writeln(\'自己的命运自己把握\');
SetConsoleTextAttribute(consolehwnd,FOREGROUND_BLUE);
for i := 1 to 10 do
case i of
1: Writeln(\' * \');
2: Writeln(\' ***\');
3: Writeln(\' *****\');
4: Writeln(\' *******\');
5: Writeln(\'[]D [] []\\/[] []D\');
6: Writeln(\' *******\');
7: Writeln(\' *****\');
8: Writeln(\' ***\');
9: Writeln(\' *\');
10:writeln(\'走自己的路让别人去说吧!\');
end;
SetConsoleTextAttribute(consolehwnd,RGB(100,200,255));//这是底色
Writeln(\'－－潘国光－－－浙江海洋学院--A02电气(1)－QQ:68848864\');
Readln;
end.
----------------
自己可以看一下，自己用一下面的api
function SetConsoleActiveScreenBuffer; external kernel32 name \'SetConsoleActiveScreenBuffer\';
function SetConsoleCP; external kernel32 name \'SetConsoleCP\';
function SetConsoleCtrlHandler; external kernel32 name \'SetConsoleCtrlHandler\';
function SetConsoleCursorInfo; external kernel32 name \'SetConsoleCursorInfo\';
function SetConsoleCursorPosition; external kernel32 name \'SetConsoleCursorPosition\';
function SetConsoleMode; external kernel32 name \'SetConsoleMode\';
function SetConsoleOutputCP; external kernel32 name \'SetConsoleOutputCP\';
function SetConsoleScreenBufferSize; external kernel32 name \'SetConsoleScreenBufferSize\';
function SetConsoleTextAttribute; external kernel32 name \'SetConsoleTextAttribute\';
function SetConsoleTitle; external kernel32 name \'SetConsoleTitleA\';
function SetConsoleTitleA; external kernel32 name \'SetConsoleTitleA\';
function SetConsoleTitleW; external kernel32 name \'SetConsoleTitleW\';
function SetConsoleWindowInfo; external kernel32 name \'SetConsoleWindowInfo\';
最新评论