home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / ARTLSRC.RAR / VPUSRW32.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  465b  |  13 lines

  1. { Win32 specific implementation of the functions declared in VpUsrLow }
  2.  
  3. function SysLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): LongInt;
  4. begin
  5.   SysLockFile := Word(Windows.LockFile(tFileRec(_F).handle, _LockStart, 0, _LockLength, 0));
  6. end;
  7.  
  8. function SysUnLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): LongInt;
  9. begin
  10.   SysUnLockFile := Word(Windows.UnLockFile(tFileRec(_F).handle, _LockStart, 0, _LockLength, 0));
  11. end;
  12.  
  13.