求解，清屏问题

Question

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

Answer 1

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: 问题如果解决就请及时结贴。