Delphi控制台程序怎么清屏

本文整理自网络，侵删。

 
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  Windows,SysUtils;
 
  var
  i:Integer;
  nConsoleHandle : Integer;
  lwWritten : Longword;
  Coord : TCoord;
begin
  try
    Coord.X := 0;
    Coord.Y := 0;
    nConsoleHandle := GetStdHandle(STD_OUTPUT_HANDLE);
    for I := 1 to 12  do Writeln(IntToStr(i));   //输出,用于测试
    Sleep(1000);
    FillConsoleOutputCharacter(nConsoleHandle, #32, 80*24, Coord, lwWritten); //清空
    SetConsoleCursorPosition(nConsoleHandle, Coord); //将光标设置在第一行
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
 
Delphi,WidowsXP下调试通过.
 

相关阅读 >>

Delphi datasnap传输流/文件问题

Delphi根据进程名强制关闭进程

Delphi xe5 Delphi 解析 json

Delphi整理六（数据与记录）

Delphi程序与chm帮助关联的简单实现

Delphi遍历进程并获取进程路径

Delphi 搜索某个字的位置 [带重复]

Delphi中实现dbgrid列宽度自动调整

实现拖动无标题窗口的5种方法

Delphi检查是否在64位windows环境中运行？

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi控制台程序怎么清屏