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.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //