![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 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 |
![]() Старожил Сообщения: 217
|
Профиль | Отправить PM | Цитировать Всем привет у меня в скрипте есть установка модов на Мир Танков и автопоиск игры а как мне можно дополнительно программы устнавливать чтобы программы в конце установки вышли а не рспаковывались , скрипты все есть каков пусть лишь нужен ,заранее спасибо
|
Отправлено: 13:49, 16-05-2014 | #671 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 119
|
Профиль | Отправить PM | Цитировать Всем привет. Как добавить фон для установщика. Если делать это через Редактор форм, а точнее BitmapImage то её закрывают такие элементы как компонент лист, блок с текстом и т.д. В итоге получается что видны только края картинки. Я видел, в справке есть другой вариант, но он более трудоемкий. Если ли способы полегче. Как залить фон для установщика! Заранее спасибо за ответ!
|
Отправлено: 15:57, 16-05-2014 | #672 |
![]() Старожил Сообщения: 399
|
Профиль | Отправить PM | Цитировать Цитата Kashtan007:
![]() |
|
Отправлено: 18:00, 16-05-2014 | #673 |
Пользователь Сообщения: 119
|
Профиль | Отправить PM | Цитировать Shift85, спасибо, но немножко не то.
Как сделать эти серые окна прозрачные? ![]() |
Отправлено: 19:26, 16-05-2014 | #674 |
![]() Старожил Сообщения: 399
|
Профиль | Отправить PM | Цитировать Цитата Kashtan007:
const TransparentPercent = 50; // процент прозрачности WS_EX_LAYERED = $80000; WS_EX_TRANSPARENT = $20; LWA_COLORKEY = 1; LWA_ALPHA = 2; GWL_EXSTYLE = (-20); function SetLayeredWindowAttributes(hwnd: HWND; crKey: TColor; bAlpha: BYTE; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll stdcall'; function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall'; function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall'; Procedure InitializeWizard(); begin SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED); SetLayeredWindowAttributes(WizardForm.Handle, 0, (255 * TransparentPercent) / 100, LWA_ALPHA); end; |
|
Отправлено: 19:42, 16-05-2014 | #675 |
Пользователь Сообщения: 119
|
Профиль | Отправить PM | Цитировать Shift85, весь установщик стал прозрачный.. А мне нужно чтобы внутри серые блоки были прозрачные.
|
Отправлено: 20:15, 16-05-2014 | #676 |
Пользователь Сообщения: 77
|
Профиль | Отправить PM | Цитировать Подскажите пожалуйста. Применяю архивы FreeArc, для отображения размера установленной проги в окне "Удаление программ" в секции [Setup] указываю: UninstallDisplaySize=3176374272. Как правильно указать чтобы размер отображался в зависимости от выбранных компонентов?
|
Отправлено: 18:29, 17-05-2014 | #677 |
Новый участник Сообщения: 43
|
Профиль | Отправить PM | Цитировать Здрасте.может кто-то помочь если не трудно,не выходит не как в данный код добавить чек-бокс в завершение,для запуска игры после установки.
var MainImage : TBitmapImage; FinishedImage: TBitmapImage; WelcomeLabel1, WelcomeLabel2,StartMenuLbl,FinishedLabel,Welcome1,Welcome2,NeedSpaceLabel,SelectTasksLabel, FreeSpaceLabel, FinishedHeadingLabel: TLabel; procedure InitializeWizard(); begin ExtractTemporaryFile('1.bmp'); MainImage := TBitmapImage.Create(WizardForm); with MainImage do begin Parent := WizardForm; Left := 0; Top := 0; Width := 500; Height := 313; Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp')); end; ExtractTemporaryFile('2.bmp'); FinishedImage := TBitmapImage.Create(WizardForm); with FinishedImage do begin Parent := WizardForm; Left := 0; Top := 0; Width := 500; Height := 313; Bitmap.LoadFromFile(ExpandConstant('{tmp}\2.bmp')); end; Welcome1:= TLabel.Create(WizardForm); with Welcome1 do begin Left:= ScaleX(150); Top:= ScaleY(26); Width:= ScaleX(301); Height:= ScaleY(71); AutoSize:= false; Transparent:= true; WordWrap:= true; Font.Size:= 12; Font.Color:=clBlack Font.Style := [fsBold] Parent:= WizardForm; Font.Name:= 'Georgia' Caption:= ExpandConstant('{cm:Welcome1}') end; Welcome2:=TLabel.Create(WizardForm); with Welcome2 do begin Left:= ScaleX(150); Top:= ScaleY(66); Width:= ScaleX(345); Height:= ScaleY(300); AutoSize:= false; WordWrap:= true; Font.Color:=clBlack Font.Name:= 'Georgia' Font.Size:= 9; Transparent:= true; Parent:= WizardForm; Caption:= ExpandConstant('{cm:Welcome2}') end; FinishedHeadingLabel:=TLabel.Create(WizardForm); with FinishedHeadingLabel do begin Left:= ScaleX(170); Top:= ScaleY(26); Width:= ScaleX(300); Height:= ScaleY(150); AutoSize:= false; WordWrap:= true; Font.Size:= 12; Font.Color:=clBlack Font.Name:= 'Georgia' Font.Style := [fsBold] Transparent:= true; Parent:= WizardForm; Caption:= WizardForm.FinishedHeadingLabel.Caption; end; FinishedLabel:= TLabel.Create(WizardForm); with FinishedLabel do begin Left:= ScaleX(170); Top:= ScaleY(66); Width:= ScaleX(325); Height:= ScaleY(150); AutoSize:= false; WordWrap:= true; Transparent:= true; Font.Color:=clBlack Font.Size:= 9; Font.Name:= 'Georgia' Parent:= WizardForm; Caption:= ExpandConstant('{cm:Finished1}') + #10#13#10 + ExpandConstant('{cm:Finished2}') end; end; procedure HideComponents; begin Welcome1.Hide; Welcome2.Hide; FinishedHeadingLabel.Hide; FinishedLabel.Hide; end; procedure ShowComponents(CurPageID: Integer); begin case CurPageID of wpWelcome: begin Welcome1.Show; Welcome2.Show; end; wpFinished: begin FinishedHeadingLabel.Show; FinishedLabel.Show; end; end; end; procedure CurPageChanged(CurPageID: Integer); begin HideComponents; ShowComponents(CurPageID); if CurPageID = wpWelcome then begin WizardForm.OuterNotebook.Hide; FinishedImage.Hide; end else if CurPageID = wpFinished then begin WizardForm.OuterNotebook.Hide; MainImage.Hide; FinishedImage.Show; end else WizardForm.OuterNotebook.Show; end; |
Отправлено: 04:32, 18-05-2014 | #678 |
Пользователь Сообщения: 68
|
Профиль | Сайт | Отправить PM | Цитировать Shift85, Всё нормально, но второй текст (типа тени) появляется на всех остальных страницах. Как это исправить?
|
Отправлено: 09:50, 18-05-2014 | #679 |
Пользователь Сообщения: 77
|
Профиль | Отправить PM | Цитировать saneksanek,
|
Отправлено: 11:43, 18-05-2014 | #680 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|