求解，清屏问题

[linyi012]

求解在delphi中用console application，我要使用清屏怎么办？

[酣酣]

不知道！
帮你顶！

[linyi012]

有人帮忙吗？

[s11ss]

uses Windows;
procedure ClearScreen; //清屏 
var sbi: TConsoleScreenBufferInfo; 
   h: hwnd; 
   Cord: _COORD; 
   R: Cardinal; 
begin 
 h := GetStdHandle(STD_OUTPUT_HANDLE); 
 GetConsoleScreenBufferInfo(h, sbi); 
 Cord.X := 0; 
 Cord.Y := 0; 
 FillConsoleOutputCharacter(h, ' ', sbi.dwSize.X * sbi.dwSize.Y, Cord, R); 
 SetConsoleCursorPosition(h, Cord); 
end; 

ps: 问题如果解决就请及时结贴。