home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / ARTLSRC.RAR / VPUSROS2.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  776b  |  31 lines
  1. { OS/2 specific implementation of the functions declared in VpUsrLow }
  2.  
  3. function SysLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): Longint;
  4. var
  5.   lock,
  6.   unlock: FileLock;
  7. begin
  8.   with lock do
  9.     begin
  10.       lOffset:= _LockStart;
  11.       lRange:= _LockLength;
  12.     end;
  13.   FillChar(unlock, sizeof(FileLock), 0);
  14.   SysLockFile := DosSetFileLocks(tFileRec(_F).Handle, unlock, lock, 1000, 0);
  15. end;
  16.  
  17. function SysUnLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): Longint;
  18. var
  19.   lock,
  20.   unlock: FileLock;
  21. begin
  22.   with unlock do
  23.     begin
  24.       lOffset := _LockStart;
  25.       lRange := _LockLength;
  26.     end;
  27.   fillchar(lock,sizeof(FileLock),0);
  28.   SysUnLockFile := DosSetFileLocks(tFileRec(_F).Handle, unlock, lock, 1000, 0);
  29. end;
  30.  
  31.