| 導購 | 订阅 | 在线投稿
分享
 
 
 

控制台輸出"顔色"字

來源:互聯網網民  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- 王朝網路 版權所有