![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Скрипты Inno Setup. Помощь и советы [часть 7]
|
Ветеран Сообщения: 1274 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] |
|
Отправлено: 11:48, 10-03-2014 |
Ветеран Сообщения: 862
|
Профиль | Отправить PM | Цитировать diman_21Ru, может попробовать запустить с правами админа?
|
------- Отправлено: 18:21, 16-04-2014 | #431 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() Новый участник Сообщения: 46
|
Приветствую всех! Проблема образовалась, не могу сам разобраться, подскажите в чем глюк?!
function InitializeSetup(): Boolean; var ResultCode: Integer; // Содержит код ошибки GetPath: String; // Путь к программе Message : integer; oldVer: string; begin if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Sandboxie','UninstallString', GetPath) // Получаем путь к программе then begin GetPath := RemoveQuotes(GetPath); RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Sandboxie','DisplayVersion', oldVer); Message := MsgBox('Найдена установленная версия {#MyAppName} '+oldVer+'! Удалить?', mbConfirmation, MB_YESNO);// Выводим сообщение if Message = IDYES then Exec('taskkill', '/f /im {#MyAppExeName}', '', SW_HIDE, ewWaitUntilTerminated, ResultCode); Exec(GetPath, '', '', SW_SHOW,ewWaitUntilTerminated, ResultCode); Result := True // Установка программы будет продолжена end end; В реестре прописано: |
Отправлено: 18:51, 16-04-2014 | #432 |
Ветеран Сообщения: 862
|
Профиль | Отправить PM | Цитировать Stealthmax,
[Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application AppId=wwwwwwwwwwwwww [code ] function UninstallMyApp(): Boolean; var Buff: String; i: Integer; begin Result := not RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1', 'UninstallString', Buff ); if not Result then Result := not FileExists(RemoveQuotes(Buff)); if not Result then if MsgBox('Перед установкой необходимо удалить предыдущую версию приложения. Продолжить?', mbError, MB_YESNO) = IDYES then try Exec(RemoveQuotes(Buff), '', ExtractFilePath(RemoveQuotes(Buff)), SW_SHOW, ewWaitUntilTerminated, i); finally Result := not RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1', 'UninstallString', Buff ); if not Result then MsgBox('Удаление завершилось неудачей, бывай!', mbError, MB_OK); end; end; function InitializeSetup(): Boolean; begin Result := UninstallMyApp(); end; |
------- Отправлено: 19:44, 16-04-2014 | #433 |
![]() Новый участник Сообщения: 46
|
Цитата habib2302:
Тут непонятная проблема с извлечением строки реестра, которая идет с параметром "UninstallString"="C:\Windows\Installer\SandboxieInstall64.exe" /remove, а для Inno по аналогии идет просто "UninstallString"=C:\Program Files\MyApp_is1\unins000.exe, т.е. при вызове Exec('Path','/SILENT','') подставляем дополнительный параметр и все прекрасно работает. Скорей всего это и есть загвоздка. Не знаю как это обойти, получается что извлекает строку, но как-то не так её выполняет. При вызове из обычной командной строки данного фрагмента тоже все нормально, запускает стандартное удаление. |
|
Отправлено: 19:45, 16-04-2014 | #434 |
Ветеран Сообщения: 862
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 21:19, 16-04-2014 | #435 |
Ветеран Сообщения: 862
|
Профиль | Отправить PM | Цитировать с утра до вечера ни одного ответа на мое сообщение
|
------- Отправлено: 22:34, 16-04-2014 | #436 |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
Цитата habib2302:
DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID") }_is1,InstallLocation|{pf}\My Program} Работает по следующему принципу: DefaultDirName={Если запись в реестре не найдена|Берем путь отсюда} Вывод напрашивается сам собой: записи в реестре нет, или указана она здесь не верно. ----------------------------------------------------------------------------------------- Цитата habib2302:
|
|||
Отправлено: 22:51, 16-04-2014 | #437 |
![]() Старожил Сообщения: 217
|
Профиль | Отправить PM | Цитировать Парни почему при распаковки установщика не все шрифты ставятся , какова причина .
|
Отправлено: 23:00, 16-04-2014 | #438 |
SHVtYW4= Сообщения: 3451
|
Профиль | Отправить PM | Цитировать |
Отправлено: 01:58, 17-04-2014 | #439 |
Пользователь Сообщения: 128
|
Профиль | Отправить PM | Цитировать Цитата diman_21Ru:
в этом скрипте устанавливаются два шрифта "Aniron" - это "TrueType" и "Proto Sans 56" - этот шрифт не "TrueType" после установки их видит Word и блокнот и они появляются в системной папке "шрифты", а также все записи в реестре http://rghost.ru/54285090 |
|
Отправлено: 06:33, 17-04-2014 | #440 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты Inno Setup. Помощь и советы [часть 6] | El Sanchez | Автоматическая установка приложений | 2494 | 10-03-2014 11:51 | |
Скрипты Inno Setup. Помощь и советы [часть 5] | El Sanchez | Автоматическая установка приложений | 1999 | 28-03-2013 19:09 | |
Скрипты Inno Setup. Помощь и советы [часть 4] | El Sanchez | Автоматическая установка приложений | 2099 | 22-05-2012 23:16 | |
Скрипты Inno Setup. Помощь и советы [часть 3] | Serega | Автоматическая установка приложений | 3755 | 26-10-2011 17:58 | |
[архив] Скрипты Inno Setup. Помощь и советы [часть 2] | Serega | Автоматическая установка приложений | 2651 | 08-11-2010 18:34 |
|