![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 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 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата:
Скрытый текст
[Setup] DefaultDirName={code:SetInstDir} [Code] function SetInstDir(const lpResult: String): String; begin RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1\', 'InstallLocation', lpResult); if lpResult <> '' then Result := RemoveBackslash(lpResult) else Result := ExpandConstant('{pf}\'); end; function InitializeSetup(): Boolean; begin if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then MsgBox('Игра World_of_Tanks не найдена! Укажите путь к папке с игрой вручную!', mbinformation, mb_ok); Result:=True; end; Цитата Painkiller:
Кастомная страница с кнопками
[Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Code] var r1, r2: TNewRadioButton; Page: TWizardPage; But1, But2: TNewCheckBox; procedure InitializeWizard(); begin Page := CreateCustomPage(wpSelectTasks, 'ISCustomPage1_Caption', 'ISCustomPage1_Description'); r1 := TNewRadioButton.Create(WizardForm); with r1 do begin Parent := Page.Surface; SetBounds(ScaleX(20), ScaleY(20), ScaleX(100), ScaleY(15)); Caption := 'Радиокнопка 1'; Checked := True; end; r2 := TNewRadioButton.Create(WizardForm); with r2 do begin Parent := Page.Surface; SetBounds(ScaleX(20), ScaleY(50), ScaleX(100), ScaleY(15)); Caption := 'Радиокнопка 2'; end; But1 := TNewCheckBox.Create(WizardForm); with But1 do begin Parent := Page.Surface; SetBounds(ScaleX(20), ScaleY(80), ScaleX(100), ScaleY(15)); Caption := 'Кнопка 1'; end; But1 := TNewCheckBox.Create(WizardForm); with But1 do begin Parent := Page.Surface; SetBounds(ScaleX(20), ScaleY(110), ScaleX(100), ScaleY(15)); Caption := 'Кнопка 2'; Checked := True; end; end; P.S. Larkod, если игра официальная, то не будет. |
||
------- Отправлено: 22:58, 23-11-2014 | #1981 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать Цитата Larkod:
----------------------------------------------------------------------------------------------------------------- Цитата Painkiller:
Цитата Dodakaedr:
|
|||
Последний раз редактировалось saurn, 23-11-2014 в 23:08. Отправлено: 23:00, 23-11-2014 | #1982 |
Новый участник Сообщения: 31
|
Профиль | Отправить PM | Цитировать Dodakaedr, а нельзя сделать чтобы путь сам прописывался без окон всплывающих Укажите путь сам
saurn, может быть, но в данном коде писало бы так Танки не найдены |
Отправлено: 23:10, 23-11-2014 | #1983 |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать saurn , твой вариант я и искал . Вот только бы пример не помешал как привязать чебокс и радиобокс к действиям ???
|
------- Отправлено: 23:16, 23-11-2014 | #1984 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать saurn,
Larkod, удалите if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then MsgBox('Игра World_of_Tanks не найдена! Укажите путь к папке с игрой вручную!', mbinformation, mb_ok); Цитата Painkiller:
|
|
------- Последний раз редактировалось Dodakaedr, 23-11-2014 в 23:24. Отправлено: 23:17, 23-11-2014 | #1985 |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать Dodakaedr ,saurn , все понял, сразу не заметил
|
------- Отправлено: 23:24, 23-11-2014 | #1986 |
Новый участник Сообщения: 31
|
Профиль | Отправить PM | Цитировать Есть еще предложения?
|
Отправлено: 23:28, 23-11-2014 | #1987 |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать Цитата Larkod:
Цитата Larkod:
Скрытый текст
[code]
[Setup] AppName=My Program AppVersion=1.5 DefaultDirName={code:DefaultInstallDir} OutputDir=... [Code] function DefaultInstallDir( const szResult: String ): String; begin RegQueryStringValue( HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', szResult ); if ( szResult <> '' ) then Result := RemoveBackslash( szResult ) else Result := ExpandConstant( '{pf}\My Program' ); end; ------------------------------------------------------------------------------- Цитата Painkiller:
Для секций вне кода: Для секции [code]: --------------------------------------------------------------------- Цитата Dodakaedr:
|
||||
Последний раз редактировалось saurn, 24-11-2014 в 00:13. Отправлено: 23:28, 23-11-2014 | #1988 |
Новый участник Сообщения: 31
|
Профиль | Отправить PM | Цитировать saurn, без изменений
вот мой скрипт https://docs.google.com/file/d/0B7Ym...R0T2cyWHM/edit |
Отправлено: 23:35, 23-11-2014 | #1989 |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать Цитата Larkod:
|
|
Отправлено: 23:40, 23-11-2014 | #1990 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|