一个操作DOS窗口屏幕信息的例子

清除DOS控制台屏幕的过程。
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;