!-----------------------------------------------------------------------------------------------
IsFileUsed PROCEDURE(cFileName)

IsOk        BYTE(True)
hf          SHORT
csFile      CSTRING(255)

  CODE
  IF IsFile(CLIP(cFileName)) = True
    csFile = CLIP(cFileName)
    hf = _lopen(csFile,OF_SHARE_EXCLUSIVE)
    IF hf >= 0
      IsOk = False
    END
    IF _lclose(hf).
  ELSE
    IsOk = False
  END
  RETURN(IsOk)