Procedure GetModeRange(Drv: Integer; var Min, Max: Integer); мұндағы Drv – адаптер типі; Min – ең төменгі режим нөмірі қайтарылатын, Integer типті айнымалы; Мах – ең жоғарғы режим нөмірі қайтарылатын integer типті айнымалы.
Егер Drv параметрінің мəні дұрыс көрсетілмесе, онда проце-дура екі айнымалыға да –1 мəнін қайтарады. Процедураны шақырар алдында экранның графикалық жұмыс режимін ор-натпаса да болады. Келесі программа экранға барлық адаптер-лердің атын жəне жұмыс режимдерінің нөмірін шғарады.
Uses Graph;
var
D,L,H: Integer;
const
N:array [1..11] of String [8]= (‘CGA’, ‘MCGA’, ‘EGA’, ‘EGA64’, ‘EGAMono’, ‘IBM8514’, ‘HercMono’, ‘ATT400’, ‘VGA’, ‘PC 3270’, ‘Қате’);
begin
WriteLn(‘Адаптер Мин. Макс.'); for D:=1 to 11 do
begin
GetModeRange(D, L, H);
WriteLn(N[D], L:7, H:10)
end
end.
