|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Скрипты Inno Setup. Помощь и советы [часть 7]
|
Ветеран Сообщения: 1264 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] |
|
Отправлено: 11:48, 10-03-2014 |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать ROMKA-1977, Мои документы на деле и есть Documents
"Мои документы" просто обертка ссылки в проводнике на X:\Users\user_name\Documents |
Последний раз редактировалось saurn, 10-11-2014 в 10:27. Отправлено: 10:22, 10-11-2014 | #1921 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 149
|
Профиль | Отправить PM | Цитировать Всем доброго дня!
Есть такая проблемка. Если у инсталлятора выставлена директива AlwaysRestart=yes, то чекбоксы секции Run с флагом postinstall (запускающие приложения после работы инсталлятора) перестают выводиться. Пыталась приколхозить такую галку руками примерно так
procedure InitializeWizard; begin ConfCheckBox:=TNewCheckBox.Create(PageFromId(wpFinished)); ConfCheckBox.parent:= PageFromId(wpFinished).surface; ConfCheckBox.top:=WizardForm.NoRadio.top + WizardForm.NoRadio.height + ScaleY(15); ConfCheckBox.left:=WizardForm.NoRadio.left; ConfCheckBox.caption:=ExpandConstant('{cm:runconf}'); ConfCheckBox.checked:=false; WizardForm.NoRadio.onclick:=@RestartRadioOnClick; // чтобы галка дизейблилась, WizardForm.YesRadio.onclick:=@RestartRadioOnClick; // если выбрана перезагрузка WizardForm.NoRadio.checked:=true; end; //запускать пыталась так procedure CurStepChanged(CurStep: TSetupStep); var i:integer; begin case CurStep of ssDone: begin if ConfCheckBox.checked then Exec(ExpandConstant('{app}')+'\bin\Configurator.exe', '', '', SW_HIDE, ewNoWait, i); end; end; end; Но оно не работает. Подскажите плиз, есть ли какая настройка для галок postinstall в случае наличия директивы на промпт перезагрузки. Или если нет, то может как-то можно поправить мой код или еще как-то по-другому реализовать такую галку с запуском программы из кода? UPD. Оказалось, все работает и проблема была в ошибке в имени файла |
Последний раз редактировалось Shkutu, 10-11-2014 в 14:35. Отправлено: 14:08, 10-11-2014 | #1922 |
Пользователь Сообщения: 74
|
Профиль | Отправить PM | Цитировать Цитата saurn:
приходится в ручную переименовывать отображаемое имя папки. |
|
Последний раз редактировалось ROMKA-1977, 10-11-2014 в 15:00. Отправлено: 14:51, 10-11-2014 | #1923 |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать Shkutu, до кучи
Скрытый текст
[Code] var runCheckBox: TCheckBox; procedure RunListClick( Sender: TObject ); begin case TRadioButton( Sender ).Caption of SetupMessage( msgYesRadio ): runCheckBox.Checked := False; SetupMessage( msgNoRadio ): runCheckBox.Checked := True; end; end; procedure RunCheckBoxClick( Sender: TObject ); begin if TCheckBox( Sender ).Checked then WizardForm.ActiveControl := WizardForm.NoRadio; end; procedure InitializeWizard; begin with WizardForm.RunList do Height := ItemRect( ItemIndex ).Bottom; WizardForm.YesRadio.OnClick := @RunListClick; WizardForm.NoRadio.OnClick := @RunListClick; runCheckBox := TCheckBox.Create( nil ); with runCheckBox do begin Parent := WizardForm.FinishedPage; Left := WizardForm.RunList.Left; Top := WizardForm.RunList.Top + WizardForm.RunList.Height + ScaleY( 10 ); Width := WizardForm.RunList.Width; Caption := 'Запустить чето там'; OnClick := @RunCheckBoxClick; end; end; procedure CurStepChanged( CurStep: TSetupStep ); var eRR: Integer; begin case CurStep of ssDone: if runCheckBox.checked then Exec( ExpandConstant( '{sys}\calc.exe' ), '', '', SW_SHOW, ewNoWait, eRR ); end; end; |
Отправлено: 15:31, 10-11-2014 | #1924 |
Новый участник Сообщения: 24
|
Профиль | Отправить PM | Цитировать помогите прикрутить кликабельное лого в углы, код сам я нашел, но вот прикрутить не получается( инсталл запускается, он не более, кликабельного лого я не обнаруживаю
http://rghost.ru/58995455 |
Отправлено: 20:02, 10-11-2014 | #1925 |
Ветеран Сообщения: 857
|
Профиль | Отправить PM | Цитировать Цитата Tixo:
|
|
------- Отправлено: 21:39, 10-11-2014 | #1926 |
Старожил Сообщения: 217
|
Профиль | Отправить PM | Цитировать Какой самый простой способ добавление всплывчатой картинки и с затуханием
|
Отправлено: 21:44, 10-11-2014 | #1927 |
Ветеран Сообщения: 857
|
Профиль | Отправить PM | Цитировать Цитата diman_21Ru:
|
|
------- Отправлено: 21:46, 10-11-2014 | #1928 |
Старожил Сообщения: 217
|
Профиль | Отправить PM | Цитировать Dodakaedr, да
|
Отправлено: 21:59, 10-11-2014 | #1929 |
Ветеран Сообщения: 857
|
Профиль | Отправить PM | Цитировать Цитата Dodakaedr:
Цитата Tixo:
Кликабельное лого
[Setup] AppName=My program VersionInfoVersion=5.0 AppVerName=My program DefaultDirName={pf}\My program DefaultGroupName=My program OutputDir=. [Files] Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs; [code] var Label1: TLabel; procedure btnOnClick(Sender: TObject); var rcode: integer; begin ShellExec('open','http://forum.oszone.net/thread-278998-193.html','', '', SW_SHOW, ewNoWait, rCode); end; procedure btnOnClick2(Sender: TObject); begin Label1.Font.Color := clred; end; procedure btnOnClick3(Sender: TObject); begin Label1.Font.Color := clBlue; end; procedure InitializeWizard(); begin Label1 := TLabel.Create(WizardForm); with Label1 do begin Parent := WizardForm; Cursor := crHand; Caption := 'OSZONE.NET'; Font.Color := clBlue; Font.Height := -16; Font.Name := 'Tahoma'; Font.Style := [fsUnderline]; ParentFont := False; Transparent := True; OnClick := @btnOnClick; OnMouseEnter := @btnOnClick2; OnMouseLeave := @btnOnClick3; Left := ScaleX(8); Top := ScaleY(327); Width := ScaleX(153); Height := ScaleY(19); end; end; Кликабельное лого через изображение
#define Bitmap "Logo.bmp" [Setup] AppName=My Program AppVersion=1.5 DefaultDirName={pf}\My Program DefaultGroupName=My Program OutputDir=. [Files] Source: {#Bitmap}; Flags: dontcopy solidbreak [Code] var Panel1: TPanel; BitmapImage1: TBitmapImage; procedure Panel1Click(Sender: TObject); var EC: integer; begin ShellExec('open', 'http://forum.oszone.net/', '', '', SW_SHOWNORMAL, ewNoWait, EC); end; procedure InitializeWizard(); begin Panel1 := TPanel.Create(WizardForm); with Panel1 do begin Parent := WizardForm; Left := ScaleX(16); Top := ScaleY(318); Width := ScaleX(185); Height := ScaleY(41); end; BitmapImage1 := TBitmapImage.Create(WizardForm); with BitmapImage1 do begin Parent := Panel1; Left := ScaleX(4); Top := ScaleY(4); Width := ScaleX(178); Height := ScaleY(34); Cursor := crHand; OnClick := @Panel1Click; ExtractTemporaryFile('{#Bitmap}'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap}')); end; end; |
||
------- Последний раз редактировалось Dodakaedr, 11-11-2014 в 21:05. Отправлено: 22:20, 10-11-2014 | #1930 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|