Installation inno安装程序询问用户是否卸载文件

在安装过程中，我添加了包含以下文件的文件夹：
资料来源：{#DBPath}；DestDir:“{app}\DataBase”
我希望在卸载时，inno安装程序会询问用户是否
是否删除文件

我该怎么做？

---

谢谢，Avi。

如果你想保留文件夹，那么你应该添加

uninseneveruninstall

标志，指示inno安装程序不要 在卸载过程中删除此文件夹。然后可以使用Pascal脚本有条件地删除此文件夹

以下是如何做到这一点：

[Files]
Source: {#DBPath}; DestDir: {app}\DataBase; Flags: uninsneveruninstall

[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
  begin
    if MsgBox('Do You Want To Delete DataBase Folder?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES then
    //this is the msg that will display after uninstall,change is as you prefer 
    begin
        DelTree(ExpandConstant('{app}\DataBase'), True, True, True);
    end;
  end;
end;

---

如果您想保留文件夹，则应添加

uninseneveruninstall

标志，指示inno安装程序不要 在卸载过程中删除此文件夹。然后可以使用Pascal脚本有条件地删除此文件夹

以下是如何做到这一点：

[Files]
Source: {#DBPath}; DestDir: {app}\DataBase; Flags: uninsneveruninstall

[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
  begin
    if MsgBox('Do You Want To Delete DataBase Folder?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES then
    //this is the msg that will display after uninstall,change is as you prefer 
    begin
        DelTree(ExpandConstant('{app}\DataBase'), True, True, True);
    end;
  end;
end;

可能的重复可能的重复