代码如下:PROGRAM t001(input,output);
USES
crt,graph;
VAR
gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
bar(100,100,200,200);
delay(1000)
end.
USES
crt,graph;
VAR
gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
bar(100,100,200,200);
delay(1000)
end.
解决方案 »
- 请教,delphi程序中如何调用Zebra打印机的ZPL指令,来打印条形码
- 木马的驱动.
- 提示缺少运行时包
- 有谁知道HemisphereButton 控件的下载地址吗?
- 有没有一本关于WIN API 函数的书
- 安装组件提示: a class named TImagePanel already exists.
- 问题:异常类和自定义异常类构造函数的实现代码写在程序的什么部位?
- 用UDP如何进行系统广播,在广域网中,而非局域内,如同QQ那样,所有的在线用户都能收到
- 如何制作delphi的安装程序???
- 超级简单问题,大家快来拿分啊!!!!!!!!!!!!!!!!!!!!!!
- 路过的,过来看看啊
- 请问下,组件Action在哪里呀,,我怎么一直找不着呀
initgraph(gd,gm,''); //传入的参数有问题
===============================================================================
initgraph(gd,gm,''); {调用initgraph过程,PathToDriver缺省则表示在当前目录中寻找《-------这个很重要,一般也可以写成 initgraph(gd,gm,'c:\tp\bgi'); 当然如果你是如此安装的话。}
================================================================================