| 订阅 | 在线投稿
分享
 
 
 

控制台输出"颜色"字

2006-12-17 07:40:54 编辑來源:互联网 国际版 评论
 
 
本文为【控制台输出"颜色"字】的汉字拼音对照版显示拼音
  kongzhitaishuchu"yanse"zi

  

  kongzhitaishuchu"yanse"zi kongzhitaichengxudantiaodeheiseditiaobaisezigeirenyizhongyayideganjiaodanshixitongshitigonggeiwomen

  apilaixianshibutongdeyansexiamianshiyiduandaima

  program Project1;

  {$APPTYPE CONSOLE}

  uses

   SysUtils, Windows;

  var

  consolehwnd : THandle;

  i : Integer;

  begin

  consolehwnd := GetStdHandle(STD_OUTPUT_HANDLE);//qudeshuchujubing STD_INPUT_HANDLEshuru

  SetConsoleTitle('http://www.pggpjj.com');//shezhiconsole windowtitle

  SetConsoleTextAttribute(consolehwnd,FOREGROUND_BLUE);//shezhishuchuzitiyanse--

  Writeln('woshiPge!!');

  SetConsoleTextAttribute(consolehwnd,FOREGROUND_RED);

  Writeln('woderenshenggeyan');

  SetconsoleTextAttribute(consolehwnd,FOREGROUND_GREEN);

  Writeln('zijidemingyunzijibawo');

  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('zouzijidelurangbierenqushuoba!');

  end;

  SetConsoleTextAttribute(consolehwnd,RGB(100,200,255));//zheshidise

  Writeln('panguoguangzhejianghaiyangxueyuan--A02dianqi(1)QQ:68848864');

  Readln;

  end.

  ----------------

  zijikeyikanyixiazijiyongyixiamiandeapi

  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...

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

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

网络安全治理:国家安全保障的主要方向是打击犯罪,而不是处置和惩罚受害者

来源:中国青年报 新的攻击方法不断涌现,黑客几乎永远占据网络攻击的上风,我们不可能通过技术手段杜绝网络攻击。国家安全保障的主要方向是打击犯罪,而不是处置和惩罚...

 
 
 
>>返回首页<<
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 
 热帖排行
 
美女灿烂的笑容(二)
美女灿烂的笑容(一)
...雨秋
欧洲
 
 
王朝网络微信公众号
微信扫码关注本站公众号wangchaonetcn
 
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
©2005- 王朝网络 版权所有