主题:不用CRT补丁的ReadKey和Delay在哪
林记
[专家分:1680] 发布于 2005-08-22 22:14:00
老是安装CRT补丁好麻烦呀,有没有不用补丁的ReadKey和Delay
回复列表 (共6个回复)
沙发
阿Ben [专家分:2200] 发布于 2005-08-22 22:18:00
Function ReadKey : char; assembler;
Asm
mov ah,08h
int 21h
End;
板凳
阿Ben [专家分:2200] 发布于 2005-08-22 22:18:00
Procedure Delay(ms : Word); Assembler;
Asm
mov ax, 1000;
mul ms;
mov cx, dx;
mov dx, ax;
mov ah, $86;
int $15;
end;
3 楼
林记 [专家分:1680] 发布于 2005-08-22 22:29:00
不错很有用,谢谢了
4 楼
lzl1403 [专家分:1670] 发布于 2005-08-22 23:08:00
哗!怎么专问一些楼主已经知道了答案的问题呢?
也好,让大家也知道一下,共同学习。
5 楼
阿Ben [专家分:2200] 发布于 2005-08-22 23:36:00
请问谁有Clrscr的源代码??(不能用任何Unit)
6 楼
林记 [专家分:1680] 发布于 2005-08-22 23:39:00
直接写屏:
如无意外,应该是
k:pointer;
k:=Mem[B800:0000];
fillcahr(k^,屏幕大小(忘了多大了),0);
我来回复