在Console中如何清屏？ ( 积分: 50 )

如题，如何在console中实现诸如DOS里面的cls命令的结果？？

用winexec调用cls命令就行了，Winexec('cmd&nbsp;/c&nbsp;cls',&nbsp;SW_HIDE);<br><br>下面这个程序模拟cmd环境，当然有些命令是执行不了的<br><br>program&nbsp;Project1;<br><br>{$APPTYPE&nbsp;CONSOLE}<br><br>uses<br>&nbsp;&nbsp;SysUtils,&nbsp;Windows;<br><br>var<br>&nbsp;&nbsp;S:&nbsp;string;<br>begin<br>&nbsp;&nbsp;repeat<br>&nbsp;&nbsp;&nbsp;&nbsp;Readln(S);&nbsp;&nbsp;//读取Dos命令<br>&nbsp;&nbsp;&nbsp;&nbsp;Windows.WinExec(PChar('cmd&nbsp;/c&nbsp;'&nbsp;+&nbsp;S),&nbsp;SW_HIDE);&nbsp;//调用cmd.exe执行该命令<br>&nbsp;&nbsp;until&nbsp;LowerCase(S)&nbsp;=&nbsp;'exit';&nbsp;&nbsp;//如果是exit就结束程序了<br>end.

接受答案了.