[El Sanchez]

AlekseyPopovv,

читать дальше »

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    if (CurUninstallStep = usDone) then
    begin
        if Beauty.Checked then
            RegDeleteKeyIncludingSubkeys(HKCR, 'bmp_auto_file\shell\Beauty Guide');
            RegDeleteKeyIncludingSubkeys(HKCR, 'jpegfile\shell\Beauty Guide');
            RegDeleteKeyIncludingSubkeys(HKCR, 'pngfile\shell\Beauty Guide');
            RemoveDir(ExpandConstant('{group}'));
            
            if MsgBox('Удалить Ваши настройки Beauty Guide?',mbconfirmation, mb_yesno) = IDYES then
                DelTree(ExpandConstant('{userappdata}\BeautyGuide'), True, True, True);
                
            if MsgBox('Удалить плагины Beauty Guide?',mbconfirmation, mb_yesno) = IDYES then
            begin
                DeleteFile(ExpandConstant('{pf32}\Tint Guide\Photo Plugins\BeautyGuidePlugin.8bf'));
                DeleteFile(ExpandConstant('{pf}\Tint Guide\Photo Plugins64\BeautyGuidePlugin64.8bf'));
                RemoveDir(ExpandConstant('{pf32}\Tint Guide\Photo Plugins'));
                RemoveDir(ExpandConstant('{pf32}\Tint Guide'));
                RemoveDir(ExpandConstant('{pf}\Tint Guide\Photo Plugins64'));
                RemoveDir(ExpandConstant('{pf}\Tint Guide'));
            end;
            MsgBox('Программа {#MyAppNameBeauty} {#MyAppBeautyVersion} удалена!',mbconfirmation, mb_ok);
        end;
        
        if Brightness.Checked then
        begin
            RegDeleteKeyIncludingSubkeys(HKCR, 'bmp_auto_file\shell\Brightness Guide');
            RegDeleteKeyIncludingSubkeys(HKCR, 'jpegfile\shell\Brightness Guide');
            RegDeleteKeyIncludingSubkeys(HKCR, 'pngfile\shell\Brightness Guide');
            RemoveDir(ExpandConstant('{group}'));
            
            if MsgBox('Удалить Ваши настройки Brightness Guide?',mbconfirmation, mb_yesno) = IDYES then
                DelTree(ExpandConstant('{userappdata}\BrightnessGuide'), True, True, True);

            if MsgBox('Удалить плагины Brightness Guide?',mbconfirmation, mb_yesno) = IDYES then
            begin
                DeleteFile(ExpandConstant('{pf32}\Tint Guide\Photo Plugins\BrightnessGuidePlugin.8bf'));
                DeleteFile(ExpandConstant('{pf}\Tint Guide\Photo Plugins64\BrightnessGuidePlugin64.8bf'));
                RemoveDir(ExpandConstant('{pf32}\Tint Guide\Photo Plugins'));
                RemoveDir(ExpandConstant('{pf32}\Tint Guide'));
                RemoveDir(ExpandConstant('{pf}\Tint Guide\Photo Plugins64'));
                RemoveDir(ExpandConstant('{pf}\Tint Guide'));
            end;
            MsgBox('Программа {#MyAppNameBrightness} {#MyAppBrightnessVersion} удалена!',mbconfirmation, mb_ok);
        end;
    end;
end;