Inno setup Inno安装程序-在卸载程序中创建一个复选框,可以选择删除自定义页面中的文件

Inno setup Inno安装程序-在卸载程序中创建一个复选框,可以选择删除自定义页面中的文件,inno-setup,uninstallation,pascalscript,Inno Setup,Uninstallation,Pascalscript,我使用以下代码为卸载程序创建了自定义页面:我想创建一个复选框,允许我选择删除自定义页面中的某些文件(在卸载过程之前)。我正在尝试使用以下代码: NewCheckBox1:=TNewCheckBox.Create(UninstallProgressForm); 使用NewCheckBox1 do 开始 父项:=第一页; 左:=NewStaticText1.左; 顶部:=NewStaticText1.Top+NewStaticText1.Height+8; 宽度:=NewStaticText1.宽度

我使用以下代码为卸载程序创建了自定义页面:我想创建一个复选框,允许我选择删除自定义页面中的某些文件(在卸载过程之前)。我正在尝试使用以下代码:

NewCheckBox1:=TNewCheckBox.Create(UninstallProgressForm);
使用NewCheckBox1 do
开始
父项:=第一页;
左:=NewStaticText1.左;
顶部:=NewStaticText1.Top+NewStaticText1.Height+8;
宽度:=NewStaticText1.宽度;
高度:=ScaleY(30);
描述:='Eliminar partidas guardadas';
结束;
但我不知道如何将此代码链接到卸载中删除附加文件夹的操作

例如:


只需检查中复选框的值,并最终调用

var
新复选框1:TNewCheckBox;{全局变量}
过程CurUninstallStep已更改(CurUninstallStep:TUninstallStep);
开始
如果CurUninstallStep=usUninstall,则{或uspostunstall}
开始
如果NewCheckBox1.选中,则
开始
日志(“删除文件夹”);
如果DelTree(ExpandConstant({userappdata}\My Program'),True,True,True),则
开始
日志(“已删除文件夹”);
结束
其他的
开始
MsgBox('删除文件夹时出错',mbError,MB_OK);
结束;
结束;
结束;
结束;