| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> delphi >> kong zhi tai shu chu " yan se " zi

kong zhi tai shu chu " yan se " zi

2006-12-17 07:40:54 编辑來源:互联网 评论
 
 
 
本文为【控制台输出"颜色"字】的拼音翻译版
  kong zhi tai shu chu " yan se " zi
  
  kong zhi tai shu chu " yan se " zi kong zhi tai cheng xu dan tiao de hei se di tiao , bai se zi gei ren yi zhong ya yi de gan jiao , dan shi xi tong shi ti gong gei wo men
  api lai xian shi bu tong de yan se 。 xia mian shi yi duan dai ma 。
  program Project1;
  {$APPTYPE CONSOLE}
  uses
  SysUtils, Windows;
  var
  consolehwnd : THandle;
  i : Integer;
  begin
  consolehwnd := GetStdHandle(STD_OUTPUT_HANDLE);// qu de shu chu ju bing - STD_INPUT_HANDLE shu ru
  SetConsoleTitle('http://www.pggpjj.com');// she zhi console windowtitle
  SetConsoleTextAttribute(consolehwnd,FOREGROUND_BLUE);// she zhi shu chu zi ti yan se --
  Writeln(' wo shi P ge !!');
  SetConsoleTextAttribute(consolehwnd,FOREGROUND_RED);
  Writeln(' wo de ren sheng ge yan ');
  SetconsoleTextAttribute(consolehwnd,FOREGROUND_GREEN);
  Writeln(' zi ji de ming yun zi ji ba wo ');
  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(' zou zi ji de lu rang bie ren qu shuo ba !');
  end;
  SetConsoleTextAttribute(consolehwnd,RGB(100,200,255));// zhe shi di se
  Writeln('-- pan guo guang --- zhe jiang hai yang xue yuan --A02 dian qi (1)-QQ:68848864');
  Readln;
  end.
  ----------------
  zi ji ke yi kan yi xia , zi ji yong yi xia mian de 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...

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

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

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
kong zhi tai shu chu " yan se " zi kong zhi tai shu chu " yan se " zi kong zhi tai cheng xu dan tiao de hei se di tiao , bai se zi gei ren yi zhong ya yi de gan jiao , dan shi xi tong shi ti gong gei wo men api lai xian shi bu tong de yan se 。 xia mian shi yi duan dai ma 。 program Project1; {$APPTYPE CONSOLE} uses SysUtils, Windows; var consolehwnd : THandle; i : Integer; begin consolehwnd := GetStdHandle(STD_OUTPUT_HANDLE);// qu de shu chu ju bing - STD_INPUT_HANDLE shu ru SetConsoleTitle('http://www.pggpjj.com');// she zhi console windowtitle SetConsoleTextAttribute(consolehwnd,FOREGROUND_BLUE);// she zhi shu chu zi ti yan se -- Writeln(' wo shi P ge !!'); SetConsoleTextAttribute(consolehwnd,FOREGROUND_RED); Writeln(' wo de ren sheng ge yan '); SetconsoleTextAttribute(consolehwnd,FOREGROUND_GREEN); Writeln(' zi ji de ming yun zi ji ba wo '); 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(' zou zi ji de lu rang bie ren qu shuo ba !'); end; SetConsoleTextAttribute(consolehwnd,RGB(100,200,255));// zhe shi di se Writeln('-- pan guo guang --- zhe jiang hai yang xue yuan --A02 dian qi (1)-QQ:68848864'); Readln; end. ---------------- zi ji ke yi kan yi xia , zi ji yong yi xia mian de 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';
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
桌球宝贝_性感在蔓延(3)
桌球宝贝_性感在蔓延(2)
银杏树下清纯女孩(9)
银杏树下清纯女孩(8)
痞子的甘南日记
疑是银河落九天
雪域坝上四——纯美色
冬日恋歌——西城杨柳弄轻柔
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
 
©2005- 王朝网络 版权所有