home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
vp21beta.zip
/
ARTLSRC.RAR
/
VPUSRW32.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
2000-08-15
|
465b
|
13 lines
{ Win32 specific implementation of the functions declared in VpUsrLow }
function SysLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): LongInt;
begin
SysLockFile := Word(Windows.LockFile(tFileRec(_F).handle, _LockStart, 0, _LockLength, 0));
end;
function SysUnLockFile(var _F; _LockStart: LongInt; _LockLength: LongInt): LongInt;
begin
SysUnLockFile := Word(Windows.UnLockFile(tFileRec(_F).handle, _LockStart, 0, _LockLength, 0));
end;