Правила форума
Ovrinems.PASЯзык:
Русский
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.
::
::
::
