|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8] |
|
Скрипты Inno Setup. Помощь и советы [часть 8]
|
Ветеран Сообщения: 1264 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Отправлено: 08:52, 02-02-2015 |
Ветеран Сообщения: 857
|
Профиль | Отправить PM | Цитировать Цитата Painkiller:
|
|
------- Отправлено: 14:49, 23-10-2015 | #1001 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать Цитата Dodakaedr:
|
|
------- Отправлено: 14:53, 23-10-2015 | #1002 |
Ветеран Сообщения: 857
|
Профиль | Отправить PM | Цитировать Цитата Painkiller:
Скрытый текст
|
|
------- Отправлено: 14:57, 23-10-2015 | #1003 |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать Цитата Dodakaedr:
|
|
------- Отправлено: 15:04, 23-10-2015 | #1004 |
Ветеран Сообщения: 857
|
Профиль | Отправить PM | Цитировать Цитата Painkiller:
|
|
------- Отправлено: 15:06, 23-10-2015 | #1005 |
Новый участник Сообщения: 26
|
Профиль | Отправить PM | Цитировать Всем привет. Решил установить ISWin7 в свой скрипт, но не тут-то было:
Как видно, в прозрачную область не попали: ссылка на сайт, кастомная кнопка и BeveledLabel. Может кто подсказать, как это исправить? Код ниже. Заранее спасибо! #define MyAppURL "http://yandex.ru/" [Setup] AppName=My Program AppVerName=My Program version 1.5 DefaultDirName={pf}\My Program DefaultGroupName=My Program UninstallDisplayIcon={app}\MyProg.exe Compression=lzma SolidCompression=yes OutputDir=. [Messages] BeveledLabel=2015 © тест [CustomMessages] russian.InfoButton=Автор... russian.InfoButtonText=© 2015. тест russian.Community=Посетить наш сайт [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Files] Source: iswin7.dll; Flags: dontcopy [_Code_] var InfoButton: TNewButton; PublisherLink: TNewStaticText; ///////////////////////////////////////////// procedure InfoButtonClick(Sender: TObject); begin MsgBox(ExpandConstant('{cm:InfoButtonText}'), mbInformation, MB_OK); end; ///////////////////////////////////////////// procedure PublisherLinkClick(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', ExpandConstant('{#MyAppURL}'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end; ///////////////////////////////////////////// procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean); external 'iswin7_add_glass@files:iswin7.dll stdcall'; procedure iswin7_add_button(Handle:HWND); external 'iswin7_add_button@files:iswin7.dll stdcall'; procedure iswin7_free; external 'iswin7_free@files:iswin7.dll stdcall'; ///////////////////////////////////////////// procedure RedesignWizardForm; begin InfoButton := TNewButton.Create(WizardForm); with InfoButton do begin Parent := WizardForm; Caption := ExpandConstant('{cm:InfoButton}'); SetBounds(ScaleX(10), ScaleY(327), ScaleX(75), ScaleY(23)); OnClick := @InfoButtonClick; end; PublisherLink := TNewStaticText.Create(WizardForm); with PublisherLink do begin Parent := WizardForm; SetBounds(ScaleX(95), ScaleY(333), ScaleX(75), ScaleY(23)); Caption := ExpandConstant('{#MyAppURL}'); Cursor := crHand; Font.Color := clBlue; ShowHint := True; Hint := ExpandConstant('{cm:Community}'); OnClick := @PublisherLinkClick; end; end; ///////////////////////////////////////////// procedure InitializeWizard(); begin RedesignWizardForm; // Необходимо добавлять каждую кнопку расположенную на стекле // до инициализации стекла для того что бы не было дыр )) iswin7_add_button(WizardForm.BackButton.Handle); iswin7_add_button(WizardForm.NextButton.Handle); iswin7_add_button(WizardForm.CancelButton.Handle); // Параметр True не трогать он для htuos )) iswin7_add_glass(WizardForm.Handle, 0, 0, 0, 47, True); end; procedure DeinitializeSetup(); begin iswin7_free; end; |
Отправлено: 11:06, 24-10-2015 | #1006 |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать Цитата Batistas:
Цитата Batistas:
Цитата Batistas:
|
|||
------- Отправлено: 11:22, 24-10-2015 | #1007 |
Новый участник Сообщения: 26
|
Профиль | Отправить PM | Цитировать Цитата kotyarko@fb:
|
|
Отправлено: 11:44, 24-10-2015 | #1008 |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать Цитата Batistas:
|
|
------- Отправлено: 18:36, 24-10-2015 | #1009 |
Ветеран Сообщения: 855
|
Профиль | Отправить PM | Цитировать |
------- Последний раз редактировалось habib2302, 24-10-2015 в 22:24. Отправлено: 22:12, 24-10-2015 | #1010 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|