RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

delphi Console 清屏代码

作者:admin 来源: 日期:2018/2/2 23:17:14 人气: 标签:

//清屏  调用: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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料