TInputDirWizardPage未创建选定目录，数据库安装失败求助

嘿，我一眼就看出问题所在了：TInputDirWizardPage只是个让用户选路径的UI组件，它不会自动帮你创建用户输入的新目录！所以当你直接启动数据库安装程序时，目标路径还不存在，安装自然就炸了。

核心修复：启动安装前手动创建目录 #

你只需要在按钮点击事件里，先检查并创建用户选择的目录，再执行数据库安装逻辑就行。Inno Setup自带的CreateDir函数非常好用，它会自动创建所有缺失的父目录，不用你一层一层手动建。

给你修改后的ButtonOnClick代码：

procedure ButtonOnClick(Sender: TObject);
var 
  Params: string;
  ScriptPath: string;
  ResultCode: Integer;
  TargetDir: string;
begin
  // 先拿到用户在目录选择页选的路径
  TargetDir := Page1.Values[0];
  
  // 检查目录是否存在，不存在就创建
  if not DirExists(TargetDir) then
  begin
    if not CreateDir(TargetDir) then
    begin
      MsgBox('创建目录失败：' + TargetDir + '，请检查你的权限是否足够。', mbError, MB_OK);
      Exit; // 创建失败就直接退出，别往下走了
    end;
  end;

  // 这里放你原来的数据库安装逻辑
  ScriptPath := ExpandConstant('{app}\db_install_script.sql');
  Params := '-U sa -P your_password -d master -i "' + ScriptPath + '" -o "' + TargetDir + '\install_log.txt"';
  
  if not Exec('sqlcmd.exe', Params, '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
  begin
    MsgBox('数据库安装出错啦！错误代码：' + IntToStr(ResultCode), mbError, MB_OK);
  end;
end;

额外的优化建议 #

• 权限保障：如果用户选的是需要管理员权限的目录（比如C:\Program Files下的子文件夹），记得在你的[Setup]段里加上这句，确保安装程序以管理员身份运行：

  PrivilegesRequired=admin
  

• 提前校验路径：可以给Page1加个OnValidate事件，提前检查用户输入的路径是否合法，避免无效路径：

  procedure Page1Validate(Sender: TWizardPage);
  var
    SelectedDir: string;
  begin
    SelectedDir := Page1.Values[0];
    if Trim(SelectedDir) = '' then
    begin
      MsgBox('请选择一个有效的数据库存储目录哦！', mbError, MB_OK);
      // 可以给个默认路径，比如安装目录下的Database文件夹
      Page1.Values[0] := ExpandConstant('{app}\Database');
    end;
  end;
  

这样改完之后，用户选的新目录会在数据库安装前被创建出来，安装失败的问题应该就解决啦！

内容的提问来源于stack exchange，提问作者Andrea Artoni