控制台输出'颜色'字

控制台程序单调的黑色底调，白色字给人一种压抑的感觉，但是系统是提供给我们

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

[url=http://www.pggpjj.com/up/pggpjj/1.jpg][/url]