|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 9] |
|
Скрипты Inno Setup. Помощь и советы [часть 9]
|
Ветеран Сообщения: 1269 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов!
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы [часть 6] | Скрипты Inno Setup. Помощь и советы [часть 6].7z Скрипты Inno Setup. Помощь и советы [часть 7] | Скрипты Inno Setup. Помощь и советы [часть 7].7z Скрипты Inno Setup. Помощь и советы [часть 8] | Скрипты Inno Setup. Помощь и советы [часть 8].7z |
|
Отправлено: 16:09, 04-04-2018 |
Пользователь Сообщения: 131
|
Профиль | Сайт | Отправить PM | Цитировать ZVSRus, благодарю. Я понятия не имел, что к taRight и taLeft необходимо добавить Justify.
|
------- Отправлено: 11:47, 22-06-2018 | #61 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 42
|
Профиль | Отправить PM | Цитировать парни что за проблема нажимаю установить вот такая ошибка , но программа устанавливается
![]() |
Отправлено: 12:39, 22-06-2018 | #62 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать pollipen, мы по вашему экстрасенсы? скрипт в студию!
|
------- Отправлено: 13:18, 22-06-2018 | #63 |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать
P.S. Видно плохо искал ответы на вопросы, что не нашёл. |
Последний раз редактировалось TheLeon, 11-07-2018 в 12:28. Отправлено: 12:44, 08-07-2018 | #64 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать Цитата TheLeon:
Текстурирование кнопок через botva2.dll
[Setup] AppName=MyApp AppVerName=MyApp DefaultDirName={pf}\MyApp [Files] Source: botva2.dll; DestDir: {tmp}; Flags: dontcopy Source: compiler:innocallback.dll; DestDir: {tmp}; Flags: dontcopy Source: Button.png; DestDir: {tmp}; Flags: dontcopy [Code] type TButtonInfo = record ButtonName: array of TButton; Handle: array of HWND; Count: Integer; end; TBtnEventProc = procedure(h:HWND); const BtnClickEventID = 1; BtnMouseEnterEventID = 2; BtnMouseLeaveEventID = 3; BtnMouseMoveEventID = 4; balLeft = 0; balCenter = 1; var ButtonsBuff: TButtonInfo; HCancelButton, HNextButton, HBackButton, HDirBrowseButton, HGroupBrowseButton: HWND; function WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword; external 'wrapcallback@files:innocallback.dll stdcall'; function BtnCreate(hParent:HWND; Left,Top,Width,Height:integer; FileName:PAnsiChar; ShadowWidth:integer; IsCheckBtn:boolean):HWND; external 'BtnCreate@{tmp}\botva2.dll stdcall delayload'; procedure BtnSetPosition(h:HWND; NewLeft, NewTop, NewWidth, NewHeight: integer); external 'BtnSetPosition@files:botva2.dll stdcall'; procedure BtnRefresh(h:HWND); external 'BtnRefresh@files:botva2.dll stdcall'; function BtnGetChecked(h:HWND):boolean; external 'BtnGetChecked@files:botva2.dll stdcall'; procedure BtnSetChecked(h:HWND; Value:boolean); external 'BtnSetChecked@files:botva2.dll stdcall'; procedure BtnSetText(h:HWND; Text:PAnsiChar); external 'BtnSetText@{tmp}\botva2.dll stdcall delayload'; procedure BtnSetTextAlignment(h:HWND; HorIndent, VertIndent:integer; Alignment:DWORD); external 'BtnSetTextAlignment@files:botva2.dll stdcall'; procedure BtnSetVisibility(h:HWND; Value:boolean); external 'BtnSetVisibility@files:botva2.dll stdcall'; function BtnGetEnabled(h:HWND):boolean; external 'BtnGetEnabled@files:botva2.dll stdcall'; procedure BtnSetEnabled(h:HWND; Value:boolean); external 'BtnSetEnabled@{tmp}\botva2.dll stdcall delayload'; procedure BtnSetFont(h:HWND; Font:Cardinal); external 'BtnSetFont@{tmp}\botva2.dll stdcall delayload'; procedure BtnSetFontColor(h:HWND; NormalFontColor, FocusedFontColor, PressedFontColor, DisabledFontColor: Cardinal); external 'BtnSetFontColor@{tmp}\botva2.dll stdcall delayload'; procedure BtnSetEvent(h:HWND; EventID:integer; Event:Longword); external 'BtnSetEvent@files:botva2.dll stdcall'; procedure BtnSetCursor(h:HWND; hCur:Cardinal); external 'BtnSetCursor@files:botva2.dll stdcall'; function GetSysCursorHandle(id:integer):Cardinal; external 'GetSysCursorHandle@files:botva2.dll stdcall'; procedure gdipShutdown; external 'gdipShutdown@files:botva2.dll stdcall'; procedure UpdateButtons(); var I: integer; begin for I:=0 to (ButtonsBuff.Count-1) do begin BtnSetEnabled(ButtonsBuff.Handle[I], ButtonsBuff.ButtonName[I].Enabled) BtnSetVisibility(ButtonsBuff.Handle[I], ButtonsBuff.ButtonName[I].Visible) BtnSetText(ButtonsBuff.Handle[I], ButtonsBuff.ButtonName[I].Caption) BtnRefresh(ButtonsBuff.Handle[I]) end; end; procedure ButtonOnClick(hBtn: HWND); var Btn: TButton; I: Integer; begin for I:=0 to (ButtonsBuff.Count-1) do begin if hBtn = ButtonsBuff.Handle[I] then Btn:= ButtonsBuff.ButtonName[I]; end; Btn.OnClick(Btn) UpdateButtons; end; function EffectTextureButton(Handle: HWND; Button: TButton; ImageName: PAnsiChar; ShadowWidth: Integer; EnterEvent, MoveEvent, LeaveEvent: TbtnEventProc): HWND; begin Result:=BtnCreate(Handle, Button.Left-8, Button.Top-8, Button.Width+16, Button.Height+16, ImageName, ShadowWidth, False) ///Размеры подобраны для текущей текстуры BtnSetEvent(Result, BtnClickEventID, WrapBtnCallback(@ButtonOnClick, 1)) if EnterEvent <> nil then BtnSetEvent(Result, BtnMouseEnterEventID, WrapBtnCallback(EnterEvent, 1)); if MoveEvent <> nil then BtnSetEvent(Result, BtnMouseMoveEventID, WrapBtnCallback(MoveEvent, 1)); if LeaveEvent <> nil then BtnSetEvent(Result, BtnMouseLeaveEventID, WrapBtnCallback(LeaveEvent, 1)); BtnSetFont(Result, Button.Font.Handle) BtnSetText(Result, Button.Caption); BtnSetVisibility(Result, Button.Visible); BtnSetFontColor(Result,clBlack,clBlack,clBlack,clGray); BtnSetCursor(Result,GetSysCursorHandle(32649)); Button.Width:=0; Button.Height:= 0; SetArrayLength(ButtonsBuff.Handle, ButtonsBuff.Count+1);SetArrayLength(ButtonsBuff.ButtonName, ButtonsBuff.Count+1); ButtonsBuff.ButtonName[ButtonsBuff.Count]:= Button; ButtonsBuff.Handle[ButtonsBuff.Count]:= Result; ButtonsBuff.Count:= ButtonsBuff.Count+1; end; procedure ButtonChangeFont(ButtonHandle: HWND; Font: TFont; NormalColor, FocusedColor, PressedColor, DisabledColor: Cardinal); begin if Font <> nil then BtnSetFont(ButtonHandle, Font.Handle); BtnSetFontColor(ButtonHandle, NormalColor, FocusedColor, PressedColor, DisabledColor) end; procedure InitializeWizard(); begin ExtractTemporaryFile('Button.png') HNextButton:= EffectTextureButton(WizardForm.Handle, WizardForm.NextButton, ExpandConstant('{tmp}\Button.png'), 18, nil, nil, nil) HCancelButton:= EffectTextureButton(WizardForm.Handle, WizardForm.CancelButton, ExpandConstant('{tmp}\Button.png'), 18, nil, nil, nil) HBackButton:= EffectTextureButton(WizardForm.Handle, WizardForm.BackButton, ExpandConstant('{tmp}\Button.png'), 18, nil, nil, nil) HDirBrowseButton:= EffectTextureButton(WizardForm.Handle, WizardForm.DirBrowseButton, ExpandConstant('{tmp}\Button.png'), 18, nil, nil, nil) HGroupBrowseButton:= EffectTextureButton(WizardForm.Handle, WizardForm.GroupBrowseButton, ExpandConstant('{tmp}\Button.png'), 18, nil, nil, nil) end; procedure CurPageChanged(CurPageId: Integer); begin UpdateButtons end; procedure DeinitializeSetup(); begin gdipShutdown end; Цитата TheLeon:
|
||
------- Последний раз редактировалось habib2302, 08-07-2018 в 20:55. Отправлено: 20:50, 08-07-2018 | #65 |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
|
|
Последний раз редактировалось TheLeon, 11-07-2018 в 12:28. Отправлено: 12:45, 09-07-2018 | #66 |
Пользователь Сообщения: 131
|
Профиль | Сайт | Отправить PM | Цитировать Цитата TheLeon:
|
|
------- Последний раз редактировалось Sotonisto, 11-07-2018 в 03:04. Отправлено: 02:59, 11-07-2018 | #67 |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать Sotonisto, спасибо огромное! Вы сделали всё как в моём шаблоне, не видя других страниц инсталлятора, спасибо!
|
Отправлено: 12:28, 11-07-2018 | #68 |
Пользователь Сообщения: 131
|
Профиль | Сайт | Отправить PM | Цитировать TheLeon, не за что. Надеюсь, со скриптом вы разобрались без проблем.
|
Последний раз редактировалось Sotonisto, 11-07-2018 в 21:04. Отправлено: 18:07, 11-07-2018 | #69 |
Новый участник Сообщения: 42
|
Профиль | Отправить PM | Цитировать парни как избавиться от запроса вот этого
что бы перезаписала сразу Скрытый текст
![]() |
Отправлено: 11:56, 16-07-2018 | #70 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|