卸载时询问是否删除或是保留注册信息,可以使安装程序更加人性化。
界面预览:
在[Code]段添加如下代码:
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
if MsgBox('您是否要删除注册信息?', mbConfirmation, MB_YESNO) = IDYES then
RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\My Prog')
end;
使用时请将代码中红色部分替换为实际要保留的注册表信息。
如果想要 卸载时询问是否保留注册信息,可以把代码中蓝色部分改为 IDNO。
如果想要删除 文件或文件夹 ,可使用以下代码:
//删除 {app} 文件夹中的My Prog.exe
DeleteFile(ExpandConstant('{app}\My Prog.exe'));
//删除 {app} 文件夹及其中所有文件
DelTree(ExpandConstant('{app}'), True, True, True);
//删除 {app} 文件夹中的所有文件,但保留它本身
DelTree(ExpandConstant('{app}'), False, True, True);