home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / ARTLSRC.RAR / VPUSRLOW.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  680b  |  35 lines
  1. unit VpUsrLow;
  2.  
  3. {
  4.   This unit contains user contributions for VpSysLow which we didn't want
  5.   to put into VpSysLow to prevent it from becoming unmaintainable.
  6. }
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils,
  12.   {$IfDef Os2}   Os2Base, Os2Def; {$Endif}
  13.   {$IfDef Win32} Windows;         {$Endif}
  14.   {$IfDef Linux} Linux;           {$Endif}
  15.  
  16. function SysLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): Longint;
  17. function SysUnLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): Longint;
  18.  
  19. implementation
  20.  
  21. {$IfDef Os2}
  22.   {$I VpUsrOs2.pas}
  23. {$Endif}
  24.   
  25. {$IfDef Win32}
  26.   {$I VpUsrW32.pas}
  27. {$endif}
  28.   
  29. {$IfDef Linux}
  30.   {$I VpUsrLnx.pas}
  31. {$endif}
  32.  
  33. end.
  34.  
  35.