Delphi - 从 Program Files 文件夹 Win7 生成文件

Question

最近我遇到了一个文件创建问题，当我的 delphi 应用程序使用开始菜单或桌面快捷方式执行时，即使它以管理员身份运行。如果我以管理员身份直接从其文件夹中运行它，则没有问题。

基本上我已经创建了一个使用 zipforge 存档器构建 SFX 存档的 delphi 32 位 GUI 程序。如果我从例如运行程序C:\myProgramFolder，应用程序运行正常并将存档构建到指定的输出文件夹，但是，当我使用快捷方式运行它时，我得到 I/O 105。我想这应该是与 Win7 安全策略有关的问题，但也许有人曾经处理过这种问题，所以我会非常感谢任何建议。

这是一个导致 I/O 105 的过程：

quickfix.ini 是一个用于为 SFX 存根提供显示信息的文件，这就是它存在的原因

procedure TfrmMain.Buildinstaller1Click(Sender: TObject);
var
  presentPath: string;
begin
  presentPath := ExtractFilePath(Application.ExeName);
  SynEdit1.Lines.SaveToFile(presentPath + '\quickfix.ini');
  CopyFile(pchar(presentPath + '\quickfix.ini'),
      pchar(edSourcePath.Text + '\quickfix.ini'), false);
  CopyFile(pchar(presentPath + '\bin\Uninstall.exe'),
      pchar(edSourcePath.Text + '\Uninstall.exe'), false);
  DeleteFile(presentPath + '\quickfix.ini');
  if (edSourcePath.Text <> '') and (edOutPutPath.Text <> '') then begin
    saveExe.InitialDir := edOutPutPath.Text;
    if saveExe.Execute() then begin
      frmProgress.Show;
      try
        // this is a line where the problem begins
        with archiver do begin
          TempDir := GetTempDirectory;
          FileName := saveExe.FileName;
          OpenArchive(fmCreate);
          BaseDir := edSourcePath.Text;
          AddFiles('*.*');
          CloseArchive();
        end;
      except
        on E: Exception do begin
          writeln('Exception: ', E.Message);
          Readln;
          frmProgress.ProgressBar1.Position := 0;
          frmProgress.Close;
        end;
      end;
    end;
    MessageDlg('QuickFix install successfully built!', mtInformation,
        [mbOk], 0);
    frmProgress.Close;
  end else begin
    MessageDlg('Source and/or output path not set. Please review.',
        mtInformation, [mbOk], 0);
  end;
end;

Answer 1

自从 10 年前发布的 Vista 启用 UAC 以来，即使是管理员用户也默认使用受限权限运行。只有在运行提升的进程时，该进程的用户令牌才会获得管理员权限。

程序文件文件夹具有安全设置，这意味着标准用户无法对其进行写入。您需要将文件保存到程序文件文件夹以外的文件夹中。应用程序数据文件夹是一个显而易见的选择。

如果这个一般性答案不能完全解释您的问题，那么请提供一个完整的程序来准确地演示您的场景。

Answer 2

我强烈建议您检查您的防病毒日志，看看您的应用程序是否可能被您的防病毒软件阻止。

我还建议您检查 Windows 事件日志，看看您的应用程序是否可能没有被 Windows DEP（数据执行保护）阻止。

在这两种情况下，最可能的原因是您的未经过数字签名的程序正在生成可执行文件，因此可能被检测为潜在危险的应用程序。

顺便说一句，您的程序在执行过程中可能还会创建一些临时文件吗？如果是，该文件是否可能存储在您的应用程序文件夹中？

编辑：根据新信息，您声称您的程序在直接运行时工作正常，但在从快捷方式运行时失败。我强烈建议您检查快捷方式 WorkingDirectoy 参数。

您还应避免手动添加路径分隔符“\”，因为您的路径可能已经包含一个。因此，请改用 IncludeTrailinPathDelimiter 方法，该方法会自动检查分隔符是否已经存在，如果不存在则添加它。

所以而不是：

SynEdit1.Lines.SaveToFile(presentPath + '\quickfix.ini');

你应该使用

SynEdit1.Lines.SaveToFile(IncludeTrailingPathDelimiter(presentPath) + 'quickfix.ini');