| 订阅 | 在线投稿
分享
 
 
 

控制台输出"颜色"字

来源:互联网网民  宽屏版  评论
2006-12-17 07:40:54

控制台输出"颜色"字

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

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

 
特别声明:以上内容(如有图片或视频亦包括在内)为网络用户发布,本站仅提供信息存储服务。
 
控制台输出"颜色"字 控制台输出"颜色"字 控制台程序单调的黑色底调,白色字给人一种压抑的感觉,但是系统是提供给我们 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';
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有