[serg aka lain]

А есть что-то подобное чтоб удалить в реестре всю ветку с подразделами »

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin  
  if CurUninstallStep = usPostUninstall then
    RegDeleteKeyIncludingSubkeys(HKCU, 'Software\SafelyRemove');
end;