回 帖 发 新 帖 刷新版面

主题:不用CRT补丁的ReadKey和Delay在哪

老是安装CRT补丁好麻烦呀,有没有不用补丁的ReadKey和Delay

回复列表 (共6个回复)

沙发

Function ReadKey : char; assembler;
Asm
  mov ah,08h
  int 21h
End;

板凳

Procedure Delay(ms : Word); Assembler;
Asm
  mov ax, 1000;
  mul ms;
  mov cx, dx;
  mov dx, ax;
  mov ah, $86;
  int $15;
end;

3 楼

不错很有用,谢谢了

4 楼

哗!怎么专问一些楼主已经知道了答案的问题呢?
也好,让大家也知道一下,共同学习。

5 楼

请问谁有Clrscr的源代码??(不能用任何Unit)

6 楼

直接写屏:
如无意外,应该是
k:pointer;

k:=Mem[B800:0000];
fillcahr(k^,屏幕大小(忘了多大了),0);

我来回复

您尚未登录,请登录后再回复。点此登录或注册