OvrInitEMS

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Zavede ovrlejový soubor do paměti EMS, pokud je to možné.

Deklarace
procedure OvrInitEMS;
Režim
Reálný
Poznámky
Případné chyby jsou oznamovány v proměnné OvrResult.


Viz také
OvrGetBuf
OvrInit
OvrSetBuf


Vzorový příklad

{ Ovrinems.PAS }
{ Vzorový příklad pro OvrInitEMS: Pouze v reálném režimu }
uses Overlay;
begin
  OvrInit('EDITOR.OVR');
  if OvrResult <> ovrOk then
  begin
    Writeln('Inicializace správce ovrlejí selhala.');
    Halt(1);
  end;
  OvrInitEMS;
  case OvrResult of
    ovrIOError: Writeln('V/V chyba souboru ovrlejí.');
    ovrNoEMSDriver: Writeln('Driver EMS není nainstalován.');
    ovrNoEMSMemory: Writeln('Nedostatek paměti EMS.');
    else Writeln('Používá se EMS pro rychlé vyměňování ovrlejí.');
  end;
end.