closegrf.pas

Пример программы для процедуры CloseGraph.

Код примера
{Closegrf.PAS} 
 
{ Пример программы для процедуры CloseGraph } 
 
  Uses Graph;
 
  Var Gd, Gm : Integer; 
  Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
  If GraphResult <> grOk Then Halt(1);
  Line(0, 0, GetMaxX, GetMaxY);
  ReadLn;
 CloseGraph;   { Закрываем графику }
End.

Скачать closegrf.pas