|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8] |
|
Скрипты Inno Setup. Помощь и советы [часть 8]
|
Ветеран Сообщения: 1270 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Отправлено: 08:52, 02-02-2015 |
Старожил Сообщения: 291
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
|
|
Отправлено: 19:08, 26-11-2015 | #1111 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать ZVSRus, ага
|
------- Отправлено: 19:46, 26-11-2015 | #1112 |
Старожил Сообщения: 291
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
Есть наброски, т.е. на вновь созданной странице прикрутить 2 чекбокса. И сразу 2 вопрос, где-то в справке находил как закрепить в меню пуск. {userstartmenu} & {commonstartmenu} Путь к "корню" меню Пуск. А закрепить на панели задач никак. 2 вопрос заключается в том, можно-ли закрепить ярлык на панели задач через секцию [Icons], чтобы реально закреплялся. Сам скрипт. Скрытый текст
[Setup] AppName=ACDSee 5.0 Power Pack AppVersion=ACDSee 5.0 Power Pack DefaultDirName={pf}\ACD Systems DefaultGroupName=ACD Systems OutputDir=. UsePreviousAppDir=no UsePreviousGroup=no OutputBaseFilename=setup Compression=lzma SolidCompression=yes [Languages] Name: "english"; MessagesFile: "compiler:Languages\English.isl" Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Files] Source: "C:\Program Files (x86)\Inno Setup v.5.5.1\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion [Icons] // Name: "{group}\{AppName}"; Filename: "{app}\{AppExeName}" // Name: "{group}\{cm:UninstallProgram,{AppName}}"; Filename: "{uninstallexe}" // Name: "{commondesktop}\{AppName}"; Filename: "{app}\{AppExeName}"; Tasks: desktopicon // Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{AppName}"; Filename: "{app}\{AppExeName}"; Tasks: quicklaunchicon [Run] //Filename: "{app}\{AppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent [Code ] var ComponentPage: TWizardPage; InstallerImage: TBitmapImage; PortableImage: TBitmapImage; FlagImage: TBitmapImage; InstallerGroupBox: TNewGroupBox; InstallerRadioButton: TNewRadioButton; PortableRadioButton: TNewRadioButton; IconsGroupBox: TNewGroupBox; DesktopIconCheck: TNewCheckBox; PuskIconCheck: TNewCheckBox; PanelZadachCheck: TNewCheckBox; PanelPuskCheck: TNewCheckBox; LangGroupBox: TNewGroupBox; LangRUS: TNewRadioButton; LangENG: TNewRadioButton; procedure InitializeWizard(); begin begin ComponentPage := CreateCustomPage(wpWelcome, 'Выбор типа установки', '...'); InstallerImage := TBitmapImage.Create(WizardForm); with InstallerImage do begin Parent := ComponentPage.Surface; Left := ScaleX(227); Top := ScaleY(5); Width := ScaleX(190); Height := ScaleY(160); end; PortableImage := TBitmapImage.Create(WizardForm); with PortableImage do begin Parent := ComponentPage.Surface; Left := ScaleX(227); Top := ScaleY(5); Width := ScaleX(190); Height := ScaleY(160); end; FlagImage := TBitmapImage.Create(WizardForm); with FlagImage do begin Parent := ComponentPage.Surface; Left := ScaleX(252); Top := ScaleY(167); Width := ScaleX(110); Height := ScaleY(70); end; InstallerGroupBox := TNewGroupBox.Create(WizardForm); with InstallerGroupBox do begin Parent := ComponentPage.Surface; Left := ScaleX(0); Top := ScaleY(0); Width := ScaleX(205); Height := ScaleY(64); Caption := 'Тип установки:'; end; InstallerRadioButton := TNewRadioButton.Create(WizardForm); with InstallerRadioButton do begin Parent := InstallerGroupBox; Left := ScaleX(10); Top := ScaleY(14); Width := ScaleX(190); Height := ScaleY(17); Caption := 'Установка обычной версии'; Checked := True; TabStop := True; OnClick := @InstallerRadioButtonClick; end; PortableRadioButton := TNewRadioButton.Create(WizardForm); with PortableRadioButton do begin Parent := InstallerGroupBox; Left := ScaleX(10); Top := ScaleY(39); Width := ScaleX(190); Height := ScaleY(17); Caption := 'Распаковка портативной версии'; OnClick := @PortableRadioButtonClick; end; IconsGroupBox := TNewGroupBox.Create(WizardForm); with IconsGroupBox do begin Parent := ComponentPage.Surface; Left := ScaleX(0); Top := ScaleY(74); Width := ScaleX(205); Height := ScaleY(114); Caption := 'Дополнительно:'; end; DesktopIconCheck := TNewCheckBox.Create(WizardForm); with DesktopIconCheck do begin Parent := IconsGroupBox; Left := ScaleX(10); Top := ScaleY(14); Width := ScaleX(190); Height := ScaleY(17); Caption := 'Ярлык(и) на рабочем столе'; OnClick := @DesktopIconCheckClick; Checked := True; end; PuskIconCheck := TNewCheckBox.Create(WizardForm); with PuskIconCheck do begin Parent := IconsGroupBox; Left := ScaleX(10); Top := ScaleY(39); Width := ScaleX(190); Height := ScaleY(17); Caption := 'Ярлык(и) в меню пуск'; OnClick := @PuskIconCheckClick; Checked := True; end; PanelZadachCheck := TNewCheckBox.Create(WizardForm); with PanelZadachCheck do begin Parent := IconsGroupBox; Left := ScaleX(10); Top := ScaleY(64); Width := ScaleX(190); Height := ScaleY(17); Caption := 'Закрепить ярлык в панели задач'; OnClick := @PanelZadachCheckClick; end; PanelPuskCheck := TNewCheckBox.Create(WizardForm); with PanelPuskCheck do begin Parent := IconsGroupBox; Left := ScaleX(10); Top := ScaleY(89); Width := ScaleX(190); Height := ScaleY(17); Caption := 'Закрепить ярлык в меню пуск'; OnClick := @PanelPuskCheckClick; end; LangGroupBox := TNewGroupBox.Create(WizardForm); with LangGroupBox do begin Parent := ComponentPage.Surface; Left := ScaleX(0); Top := ScaleY(197); Width := ScaleX(205); Height := ScaleY(39); Caption := 'Язык интерфейса:'; end; LangRUS := TNewRadioButton.Create(WizardForm); with LangRUS do begin Parent := LangGroupBox; Left := ScaleX(40); Top := ScaleY(14); Width := ScaleX(40); Height := ScaleY(17); Caption := 'RUS'; Checked := True; end; LangENG := TNewRadioButton.Create(WizardForm); with LangENG do begin Parent := LangGroupBox; Left := ScaleX(130); Top := ScaleY(14); Width := ScaleX(40); Height := ScaleY(17); Caption := 'ENG'; end; end; end; |
|
Последний раз редактировалось ZVSRus, 27-11-2015 в 08:08. Отправлено: 20:04, 26-11-2015 | #1113 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать Доброе время суток. Помогите с кодом. Пытаюсь выполнить удаление файлов через unlocker, но происходит "exit code: 1" после запуска
[Files] Source: unlock\*; Flags: dontcopy; [code] var RC: integer; lpBuff: String; function InitializeSetup(): Boolean; begin ExtractTemporaryFile('Unlocker.exe'); ExtractTemporaryFile('UnlockerCOM.dll'); ExtractTemporaryFile('UnlockerDriver5.sys'); ExtractTemporaryFile('UnlockerInject32.exe'); if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinRAR archiver', 'InstallLocation', lpBuff) then Exec(ExpandConstant('{tmp}\Unlocker.exe'), ' "lpBuff\RarExt.dll" /S /D', '', SW_HIDE, ewWaitUntilTerminated, RC) Exec(ExpandConstant('{tmp}\Unlocker.exe'), ' "lpBuff\RarExt32.dll" /S /D', '', SW_HIDE, ewWaitUntilTerminated, RC) Exec(ExpandConstant('{tmp}\Unlocker.exe'), ' "lpBuff\RarLng.dll" /S /D', '', SW_HIDE, ewWaitUntilTerminated, RC) end; |
------- Последний раз редактировалось habib2302, 27-11-2015 в 09:56. Отправлено: 09:18, 27-11-2015 | #1114 |
Ветеран Сообщения: 1270
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
Да и все 3 вызова не помешало бы в блок begin - end обернуть после условия. |
|
Отправлено: 14:36, 27-11-2015 | #1115 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 19:20, 27-11-2015 | #1116 |
Новый участник Сообщения: 1
|
Профиль | Отправить PM | Цитировать Подскажите, как проверить синтаксис ввода. Через edit забиваются параметры в конфиг, должны соответствовать шаблону --param1 --param2 и т.д.
|
Последний раз редактировалось mouri, 28-11-2015 в 06:01. Отправлено: 02:33, 28-11-2015 | #1117 |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать Всем привет, нужны компоненты с галочкой без галочки с кружочком и зачеркнутые компоненты с галочкой и кружочком.
|
Отправлено: 21:13, 28-11-2015 | #1118 |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать Не у кого нет примеров компонентов что ли?
|
Отправлено: 10:27, 29-11-2015 | #1119 |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать Цитата BMODS:
Скрытый текст
[Components] Name: a; Description: Компонент 1.; Name: b; Description: Компонент 2.; Flags: exclusive; Name: c; Description: Компонент 3.; Flags: exclusive; Name: d; Description: Компонент 4.; Flags: fixed; Name: e; Description: Компонент 5.; Flags: fixed; Name: f; Description: Компонент 6.; Flags: fixed exclusive; Name: g; Description: Компонент 7.; Flags: fixed exclusive; [*Code] Procedure InitializeWizard(); var I: Integer; begin with WizardForm.ComponentsList do for I := 0 to ItemCount - 1 do if not ItemEnabled[i] then ItemFontStyle[i] := [fsStrikeOut]; end; |
|
------- Отправлено: 11:02, 29-11-2015 | #1120 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты Inno Setup. Помощь и советы [часть 7] | El Sanchez | Автоматическая установка приложений | 2499 | 02-02-2015 08:59 | |
Скрипты 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 |
|