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程序将自身可执行文件拷贝到u盘的代码

如何用Delphi实现子目录级的文件查询

Delphi 程序运行提示 “database login”对话框，让输入adoconnection1 的username和password

Delphi 删除字符串重复的符号只保留一个

Delphi 通过u盘方式加密

Delphi 10.2 新特性之―tfdbatchmovejsonwriter

Delphi搜索字符串在流中的位置

Delphi 如何将颜色值转换为html格式？

Delphi makeuniquefilename 创建文件名如果已经存在自动更改文件名

processid, process handle, window handle 之间的互相转换

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

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