delphi中用什么函数可以判断一个文件是否正在被使用??

解决方案 »

  1.   

    找到了
    function   IsFileInUse(fName:string):boolean;   
      var   
            HFileRes:HFILE;   
      begin   
            Result:=False;   
            if   not   FileExists(fName)   then   
                  Exit;   
            HFileRes:=CreateFile(PChar(fName),   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;