Для инициализации графического режима с автоматическим распознаванием драйвера и режима, достаточно присвоить переменной, отвечающей за драйвер, константу Detect или 0. Присваивать какое-либо значение переменной режима в этом случае не требуется. Третий параметр указывает путь к файлу (например, EGAVGA) с расширением bgi. Если этот файл находится в текущем каталоге, то путь может быть пустым (‘’).
Ошибки, которые могут возникнуть при инициализации графического режима, анализируют с помощью функции GraphResult. Эта функция генерирует соответствующий код ошибки. Код ошибки равен нулю, если инициализация прошла успешно.
Для выхода из графического режима используется стандартная процедура без параметров CloseGraph. Она восстанавливает режим, существовавший до инициализации графики.
Пример 1. При частой работе с графикой процесс инициализации удобно оформить отдельной процедурой.
Uses Graph;
Var Driver, Mode:integer;
Procedure GrInit;
Begin
Driver:=Detect; { автораспознавание драйвера }
InitGraph (Driver, Mode, ‘’);
If GraphResult<>0 then
begin
Writeln ('Ошибка инициализации!');
Writeln ('Работа программы прервана');
Halt (1) { остановить выполнение программы с кодом завершения – 1 }
End
End;
Begin
GrInit; { графические действия }
Readln;
CloseGraph
End.