vimvim
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Помогите пожалуйста разобраться с InnoSetup Upgrade, возникли следующие трудности: - при повторной установке программы инсталлятор предлагает перечень действий(удалить, перезаписать и т.д.), при удалении в SILENT режиме он не полностью удаляет файлы, а только те которые прописаны в деинсталяторе. мне нужно чтобы он удалял автоматически содержимое папки(допусти я закидал в нее доп. файлы вручную, он их не удаляет ), а не предлагал вручную отмечать какие файлы нужно доп. удалить. насколько я понял ето относиться к етой части кода: Function NextButtonClick(CurPageID: Integer): Boolean; Begin Result:= True if (CurPageID = wpSelectDir) and (Pos(Uppercase(ExpandConstant('{win}')), Uppercase(ExpandConstant('{app}'))) > 0) then Result:= MessageBox(StrToInt(ExpandConstant('{wizardhwnd}')), ExpandConstant('{cm:SysDirSelect}'), 'Установка в системную папку', MB_YESNO or $30) = idYes; if CurPageID = UnInstallPage.ID then begin Result:= true; RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppName")}_is1', 'UninstallString', VolumeName) if UnChoice[0].Checked then if not Exec(RemoveQuotes(VolumeName), '/NORESTART', '', sw_ShowNormal, ewWaitUntilTerminated, errCode) or (errCode <> 0) then if not WizardSilent then MessageBox(0, ExpandConstant('{cm:ErrorUninstall}'), '{#SetupSetting("AppName")}', MB_OK or $10) if UnChoice[1].Checked then Exec('explorer', ExpandConstant('{reg:HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppName")}_is1,InstallLocation}'),'', sw_Show, ewNoWait, errCode); end; End; |