Правила форума
OvrInitEMS (процедура) (модуль Overlay)Язык:
Русский
English
OvrInitEMS (процедура) (модуль Overlay)
Загружает оверлейный файл в EMS, если это возможно.
Объявление
Procedure OvrInitEMS;
Режим
Real, Protected
Замечания
В случае возникновения ошибки, ее код хранится в переменной OvrResult.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры OvrInitEMS }
uses Overlay;
begin
OvrInit('EDITOR.OVR');
if OvrResult <> ovrOk then
begin
WriteLn('Ошибка инициализации диспетчера оверлеев.');
Halt(1);
end;
OvrInitEMS;
case OvrResult Of
ovrIOError :
WriteLn('Ошибка ввода/вывода оверлейного файла.');
ovrNoEMSDriver :
WriteLn('Драйвер EMS не установлен.');
ovrNoEMSMemory :
WriteLn('Недостаточно EMS-памяти.');
else
WriteLn('Использую EMS для ускорения оверлейных переключений.');
end;
end.
begin
OvrInit('EDITOR.OVR');
if OvrResult <> ovrOk then
begin
WriteLn('Ошибка инициализации диспетчера оверлеев.');
Halt(1);
end;
OvrInitEMS;
case OvrResult Of
ovrIOError :
WriteLn('Ошибка ввода/вывода оверлейного файла.');
ovrNoEMSDriver :
WriteLn('Драйвер EMS не установлен.');
ovrNoEMSMemory :
WriteLn('Недостаточно EMS-памяти.');
else
WriteLn('Использую EMS для ускорения оверлейных переключений.');
end;
end.
::
::
::
