serg_aka_lain
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [Tasks] Name: "uninstallable"; Description: "Создать деинсталлятор"; [Code] procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep = ssDone then begin if IsTaskSelected('uninstallable') = False then begin DeleteFile(ExpandConstant('{uninstallexe}')); DeleteFile(ExpandConstant('{app}') + '\unins000.dat'); RegDeleteKeyIncludingSubkeys(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My Proga_is1'); end; end; end; Если чекбокс отмечен, то деинсталлятор создаётся, если не отмечен то удаляются ключ реестра и Unins000.exe , Unins000.dat | Всего записей: 340 | Зарегистр. 13-01-2007 | Отправлено: 00:15 26-05-2008 | Исправлено: serg_aka_lain, 00:36 26-05-2008 |
|