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;
|
