我纯小白一个,下面的命令,只对第一条有用,后面两条都是直接删除了,不受判断控制,要怎么写才对呢。
[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
if MsgBox('您是否要删除个人配置信息?', mbConfirmation, MB_YESNO) = IDYES then
RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\aaa')
RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\bbb')
DelTree(ExpandConstant('{app}'), True, True, True);
end;
自己解决了。。。
[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
if MsgBox('您是否要删除个人配置信息?', mbConfirmation, MB_YESNO) = IDYES then
begin
RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\aaa')
RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\bbb')
DelTree(ExpandConstant('{app}'), True, True, True);
end
end;