delphi Console 清屏代码

本文整理自网络，侵删。

 
//清屏  调用：ClearConsoleScreen; 即可
 function ClearConsoleScreen: boolean;
const
  BUFSIZE = 0*0;
var
  Han,Dummy: LongWord;
  buf: string;
  coord: TCoord;
begin
  Result := false;
  Han := GetStdHandle(STD_OUTPUT_HANDLE);
  if Han <> INVALID_HANDLE_VALUE then
  begin
    if SetConsoleTextAttribute(han, FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE) then
    begin
      SetLength(buf,BUFSIZE);
      FillChar(buf[1],Length(buf),' ');
      if WriteConsole(han,PChar(buf),BUFSIZE,Dummy,nil) then
      begin
        coord.X := 0;
        coord.Y := 0;
        if SetConsoleCursorPosition(han,coord) then
          Result := true;
      end;
    end;
  end;
end;
 

相关阅读 >>

Delphi7 中tstringlist的delimiter delimitedtext有bug，字符串分割有问题

Delphi 回车符 换行符

Delphi memo 过滤重复字符 indexof

Delphi删除文件

Delphi 子界判断的举例

Delphi 在win32程序中显示dos调试窗口

Delphi 实现简易语音发音（基于tts方式）

Delphi 我的电脑连接到 internet 了吗？

Delphi中根据程序名称判断是否多开

Delphi fdmemtable1内存表字段排序

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

转载请注明出处：木庄网络博客 » delphi Console 清屏代码