Question

越来越多的用户抱怨他们无法安装/启动我的应用程序。

有什么问题：

使用System.SYSUTILS.ForceDirectories(...)构建的目录结构由4个目录组成，这些目录首先不存在。当应用程序第一次启动时会发生这种情况。在某些机器上，这似乎是不可能的，因为ForceDirectories() returns False。

我确切地知道错误发生的位置（以下只是一个代码片段）：

if ( not TDirectory.Exists(self.TempInstallPath) ) then
begin
    if (System.SYSUTILS.ForceDirectories(self.TempInstallPath)) then
      begin
        uGlobalFiles.DeleteDirectoryContents(self.TempInstallPath, self.GetLoggingFunc());
        if ( not self.copyDatabase(source) ) then
          raise TCopyDatabase_Exception.Create('Database could not be copied to: ' + sLineBreak + self.TempInstallPath);
      end
      else
      begin
        raise TPathCouldNotBeCreated_Exception.Create('adding a new directory failed with error: ' + sLineBreak + SysErrorMessage(GetLastError)
                + sLineBreak
                + 'destination folder: ' + self.TempInstallPath
                + sLineBreak
                + 'local user folder:' + self.LocaluserPath
                + sLineBreak
                + 'session time stamp:' + self.TimeStamp);
      end;
end;

使用的路径：

有充分理由我决定在用户的Local AppData文件夹中创建路径和信息。我从注册表中获取了值：

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

到目前为止我做了什么： 到目前为止，我无法重现确切的错误。我试图取得用户的所有权，但这显示了不同的错误。还要乱搞该目录中的特殊权限 - 拒绝“创建文件夹”等 - 一切都无济于事。

在这些情况下，我有什么遗漏或可以做的吗？

非常感谢帮助，非常感谢！

UPDATE1

现在我得到了本地用户文件夹：

function GetShellFolder(CSIDLFolder : integer) : string;
begin
SetLength(Result, MAX_PATH);
  SHGetSpecialFolderPath(0, PChar(Result), CSIDLFolder, false);  // (CSIDL_LOCAL_APPDATA -- FOLDERID_LocalAppData)
  SetLength(Result, StrLen(PChar(Result)));
  if (Result <> '') then
    Result  := IncludeTrailingBackslash(Result);
end;

UPDATE2

由于我已经使用了SysErrorMessage（GetLastError），我知道错误消息，字面上说没有错误。我也知道（来自客户）第一个文件夹（在4个要创建的文件夹中）被创建为隐藏文件夹，其他文件夹根本没有创建。不过，她可以使用上下文菜单创建文件夹。

UPDATE3

UPDATE1 中提到的更改解决了错误。由于没有任何内容存储在注册表中：

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

该程序试图直接写入C：\ Program Files ...（可执行文件的路径），其中一些用户没有写入权限。

我接受了Andre Ruebel的解决方案，但是评论的每个人都教会了我这个问题。感谢大家。

UPDATE4

总结一下。问题确实是提取本地用户路径的方式。对于此特定用户，注册表项没有任何价值。因此，数据被复制到安装目录，该目录位于Program Files ...

下

简而言之：应用程序数据需要用户没有特权的读/写访问权限，因此发生了错误。再次感谢所有答案，他们引导我走向正确的方向。

Answer 1

使用

var
  P: array [0 .. max_path] of Char;
begin
  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, @P[0]);
end;

获取Appdata目录。如果强制资源功能失败，请使用

SysErrorMessage(getlasterror)

获取有意义的错误消息。

无法使用System.SYSUTILS.ForceDirectories创建文件夹

1 个答案: