控制台輸出"顔色"字

控制台輸出"顔色"字

控制台輸出"顔色"字 控制台程序單調的黑色底調,白色字給人一種壓抑的感覺,但是系統是提供給我們

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;varconsolehwnd : THandle;i : In...查看完整版>>控制台輸出'顔色'字
 
使用MessageFormat控制輸出
  Printf是很多C語言程序員喜歡的工具,當他們轉而使用Java時他們非常的失望。Java有一個替代的方法但是那個方法和C語言的printf() 函數的原理不一樣。幸運的是,早期的Java庫的開發者熟悉到創建一個更合適Java的工...查看完整版>>使用MessageFormat控制輸出
 
輸出圖形中有的地方有顔色而有的沒有?
輸出圖形中有的地方有顔色而有的沒有? 出現輸出紙張上有的地方有墨水顔色、有的地方沒有墨水顔色,說明噴墨墨盒在工作中沒有在打印紙張上噴射足夠份量的墨水。此時你首先應該檢查一下當前墨盒中是否還有墨水,或...查看完整版>>輸出圖形中有的地方有顔色而有的沒有?
 
控制輸出字符串的長度,可以區別中英文
研究了2小時怎麽控制輸出文章標題中的中英文,給大家鐵出來 函數在下面,是方法是: strvalue("複請Email通知如果不填寫則取注冊Email",26) 這裏26是指26個英文字母,也就是13個漢字 function strlen(...查看完整版>>控制輸出字符串的長度,可以區別中英文
 
控制輸出字符串的長度,可以區別中英文(ASP)
strvalue("複請Email通知如果不填寫則取注冊Email",26) 這裏26是指26個英文字母,也就是13個漢字 function strlen(str) dim p_len p_len=0 strlen=0 if trim(str)<>"" then p_len=len...查看完整版>>控制輸出字符串的長度,可以區別中英文(ASP)