不用CRT补丁的ReadKey和Delay在哪

您所在位置：社区首页 — PASCAL语言讨论区 — 不用CRT补丁的ReadKey和Delay在哪

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

林记 [专家分：1680] 发布于 2005-08-22 22:14:00

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

沙发

阿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);

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