ovrinems.pas

{Ovrinems.PAS}
 
{ Пример программы для процедуры 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.