NAS ForceDirectories

Question

我似乎无法在Windows 10 64位上的NAS分区上调用ForceDirectories()。

我可以使用Windows资源管理器在NAS上创建一个文件夹。

procedure TForm3.Button1Click(Sender: TObject);
var
  tempDir: String;
begin
  tempDir := 'z:\ttt\ttttest';
  if NOT DirectoryExists(tempDir) then
    if System.SysUtils.ForceDirectories(tempDir) then
      ShowMessage('Dir: ' + tempDir + ' Forced alright')
    else
      ShowMessage('Dir: ' + tempDir + ' Force FAILED with error : '+ IntToStr(GetLastError));
end; 

Z:是西部数据网络附加存储，在所有其他方面都可以正常工作。

代码每次都会返回错误3。

相同的代码在本地驱动器上正常工作。

Answer 1

您正在以管理员身份运行IDE。这意味着您的流程也以管理员身份运行。并且似乎以管理员身份运行时，映射到NAS驱动器的驱动器不可用。

我的建议是不要以管理员身份运行IDE。