您所在位置：主题：[讨论]TP&的清屏又一解
qihuan
[专家分：0] 发布于 2005-07-13 10:35:00
首先在程序首部加上下边两条调用DOS单元：
{$M 8192,0,0}
uses dos;
然后就可以在需要清屏的地方用这条命令即可：
Exec(GetEnv('COMSPEC'), '/C ' + 'cls');
[em72]
[url=http://mikepj.blogcn.com][img]http://www.friendshipgd.com/qh/sth/sign_mikepj.gif[/img][/url]
{$M 8192,0,0}
uses dos;
然后就可以在需要清屏的地方用这条命令即可：
Exec(GetEnv('COMSPEC'), '/C ' + 'cls');
[em72]
[url=http://mikepj.blogcn.com][img]http://www.friendshipgd.com/qh/sth/sign_mikepj.gif[/img][/url]