nno setup 程序卸载[Code]段求助。

ldflmh

我纯小白一个，下面的命令，只对第一条有用，后面两条都是直接删除了，不受判断控制，要怎么写才对呢。
[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;