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

控制台输出"颜色"字

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';
󰈣󰈤
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
 
王朝网络微信公众号
微信扫码关注本站公众号 wangchaonetcn
 
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味著赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
© 2005- 王朝網路 版權所有