level 9
猎火电脑工作室
楼主
犇勿入。
禁任何膜拜。
正常情况下Free Pascal只能设置暗色背景(0~7),近日楼主通过查找资料,找到了一种方法来设置亮色背景。
示例代码如下:
uses Dos;
var f:text;
BEGIN
assign(f,*game.bat*);
rewrite(f);
writeln(f,*@echo off*);
writeln(f,*@color F0*);//F为背景,0为前景
writeln(f,*echo 测试*);//要输出的内容必须在bat内输出,在Pascal内输出还是原来的颜色
writeln(f,*@del game.bat && exit*);//删除并不显示“找不到批处理文件”
close(f);
exec(*game.bat*,**);
readln;
END.
颜色属性由两个十六进制数字指定 —— 第一个为背景,第二个则为前景。每个数字可以为以下任何值之一:
0 = 黑色 8 = 灰色
1 = 蓝色 9 = 淡蓝色
2 = 绿色 A = 淡绿色
3 = 湖蓝色 B = 淡浅绿色
4 = 红色 C = 淡红色
5 = 紫色 D = 淡紫色
6 = 黄色 E = 淡黄色
7 = 白色 F = 亮白色
例如:“COLOR FC”在亮白色上产生亮红色。
2014年08月24日 05点08分
1
禁任何膜拜。
正常情况下Free Pascal只能设置暗色背景(0~7),近日楼主通过查找资料,找到了一种方法来设置亮色背景。
示例代码如下:
uses Dos;
var f:text;
BEGIN
assign(f,*game.bat*);
rewrite(f);
writeln(f,*@echo off*);
writeln(f,*@color F0*);//F为背景,0为前景
writeln(f,*echo 测试*);//要输出的内容必须在bat内输出,在Pascal内输出还是原来的颜色
writeln(f,*@del game.bat && exit*);//删除并不显示“找不到批处理文件”
close(f);
exec(*game.bat*,**);
readln;
END.
颜色属性由两个十六进制数字指定 —— 第一个为背景,第二个则为前景。每个数字可以为以下任何值之一:
0 = 黑色 8 = 灰色
1 = 蓝色 9 = 淡蓝色
2 = 绿色 A = 淡绿色
3 = 湖蓝色 B = 淡浅绿色
4 = 红色 C = 淡红色
5 = 紫色 D = 淡紫色
6 = 黄色 E = 淡黄色
7 = 白色 F = 亮白色
例如:“COLOR FC”在亮白色上产生亮红色。