为什么CreateFile在网络驱动器上失败

Question

我有一个行为非常奇怪的安装...每次我们尝试在网络驱动器上复制某些内容时，我们都会使用如下代码检查可访问性：

procedure TForm1.TestAccess;
var fn : string;
    hdl : THandle;
    res : boolean;
    dir : string;
    flags : Cardinal;
begin
     dir := edDir.Text;
     flags := FILE_FLAG_DELETE_ON_CLOSE or FILE_FLAG_NO_BUFFERING or FILE_ATTRIBUTE_HIDDEN; 
     fn := FindUnusedFileName( IncludeTrailingPathDelimiter( dir ) + IntToStr( Random(10000) ) + '.tst' );

     memLog.Lines.Add('Try to create file: ' + fn);

     hdl := CreateFile( PChar(fN), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_DELETE, nil, CREATE_NEW,
                        flags, 0 );

     res := hdl <> INVALID_HANDLE_VALUE;
     if not res then
     begin
          memLog.Lines.Add('Error: ' + SysErrorMessage(GetLastError));
     end
     else
         memLog.Lines.Add('Success');

     if res then
        CloseHandle(hdl);
end;

其中 memLog 是 TMemo 并且edDir 只是一个编辑字段。

现在这是奇怪的部分...我在该系统上被拒绝访问，这意味着上传在大多数情况下都会失败（大多数情况下是这里的奇怪部分）。

另一件事是，在第一次尝试中我使用了 JvDirectoryEdit 控件。在这种情况下，结果是双重的...如果我在没有反斜杠的情况下输入目录（UNC 路径），我也会被拒绝访问。如果我输入最后一个反斜杠，并且弹出组合框窗口，显示该文件夹中的内容（也称为目录），它终于可以工作了！

所以...首先：有人知道问题可能是什么吗？我这里有什么问题吗？

Answer 1

我过去曾使用此过程来检查目录是否仅阅读，也许很有用：

 FUNCTION DirRO(NomeCartella : String) : Boolean;
      VAR VarFile : TextFile;
          NomCart : String;
    BEGIN
          Result := False;
          If NomeCartella[Length(NomeCartella)]='\'
             Then NomCart := NomeCartella
             Else NomCart := NomeCartella+'\';

          Try AssignFile(VarFile,NomCart+'^ghi.kol');
              {$I-}
              Rewrite(VarFile);
              {$I-}
              If IOResult<>0 Then
                 Begin
                 Result := True;
                 Exit;
                 End;
              CloseFile(VarFile);
              Erase(VarFile);
              Except Result := True;
          End;
    END;