Section courante

A propos

Section administrative du site

  1. Unit Overlay;
  2.  
  3. {$D-,I-,S-}
  4.  
  5. INTERFACE
  6.  
  7. const
  8.   ovrOk = 0;
  9.   ovrError = -1;
  10.   ovrNotFound = -2;
  11.   ovrNoMemory = -3;
  12.   ovrIOError = -4;
  13.   ovrNoEMSDriver = -5;
  14.   ovrNoEMSMemory = -6;
  15.  
  16. const
  17.   OvrResult: Integer = 0;
  18.   OvrEmsPages: Word = 0;
  19.   OvrTrapCount: Word = 0;
  20.   OvrLoadCount: Word = 0;
  21.   OvrFileMode: Byte = 0;
  22.  
  23. Type
  24.   OvrReadFunc = Function(OvrSeg:Word):Integer;
  25.  
  26. Var
  27.   OvrReadBuf: OvrReadFunc;
  28.  
  29. Procedure OvrInit(FileName:String);
  30. Procedure OvrInitEMS;
  31. Procedure OvrSetBuf(Size:LongInt);
  32. Function  OvrGetBuf:LongInt;
  33. Procedure OvrSetRetry(Size:LongInt);
  34. Function  OvrGetRetry: LongInt;
  35. Procedure OvrClearBuf;

Dernière mise à jour : Dimanche, le 20 avril 2014