function FileUsed(FileName:String):Boolean; var
HFileRes:Hfile; begin
Result:=False; If not FileExists(FileName) then
Exit; HfileRes:=CreateFile(Pchar(FileName),GENERIC_READ OR
GENERIC_WRITE,0,NIL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
Result:=(HFileRes=INVALID_HANDLE_VALUE); iF NOT Result
then CloseHandle(HFileRes); end;
