1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Vytvorená stránka „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 pro...“
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.
[[Category:Overlay]]
;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.
[[Category:Overlay]]
