Листинг 043. Инициализация и закрытие графического режима

ProgramUseGraphics2; {заголовок программы, имя программы – UseGraphics2}

Uses {начало раздела подключения модулей}

Graph; {подключение модуля Graph}

Var {начало раздела описания переменных}

GraphDriver, GraphMode: Integer;

{описание двух целочисленных переменных: GraphDriver – для передачи в качестве параметра, определяющего номер графического драйвера, и GraphMode – для передачи в качестве параметра, определяющего номер графического режима}

Begin {начало раздела описания логики программы}

GraphDriver := Detect;

{присвоение переменной GraphDriver значения 0 с использованием константы Detect модуля Graph для наглядности}

GraphMode := 0; {присвоение переменной GraphMode значения 0, определяющего необходимый графический режим – 640х480х16 цветов}

InitGraph(GraphDriver, GraphMode, ' ');

{вызов процедуры InitGraph, автоматически определяющей драйвер, подходящий для видеоустройства, установленного на компьютере; запускающей драйвер; и инициализирующей графический режим с номером 0}

CloseGraph;{закрываем графический режим}

End.{конец раздела описания логики программы}

Теперь пользователь не сможет увидеть результат работы нашей программы, так как графический режим закрывается сразу же после установки (хотя иногда это и может занять несколько секунд). Для того, чтобы можно было ознакомиться с установленным режимом, организуем в программе паузу до нажатия пользователем любой клавиши. Для этого необходимо воспользоваться функцией ReadKey, рассмотренной ранее. Отметим, что функция ReadKey находится в модуле CRT, который необходимо подключить вместе с модулем Graph. Для этого в разделе подключения модулей Uses их нужно указать через запятую (в любом порядке).