|
Компьютерный форум 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 |
Новый участник Сообщения: 23
|
Профиль | Отправить PM | Цитировать Привет всем. Как можно определить системный диск ({sd}) ssd или hdd.
Что-то вроде этого: El Sanchez, Цитата:
Хмм... нашёл пока на AutoIt3 (в.3.3.14.2) подогнал под себя, вроде работает. Может кому пригодится для установки Windows. #NoTrayIcon $Gui = @SW_HIDE ; Some constants Const $DT_DRIVETYPE = 1 Const $DT_SSDSTATUS = 2 Const $DT_BUSTYPE = 3 ; Drive letter to check Const $DriveLetter = @homedrive; $ssd = DriveGetType($DriveLetter, $DT_SSDSTATUS) If $ssd <> "" Then Run(@ComSpec & ' /C ssd.bat', '', @SW_HIDE) ;@SW_SHOW Else Exit EndIf |
|
Последний раз редактировалось ABBAT, 05-04-2018 в 16:39. Отправлено: 21:00, 04-04-2018 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать Цитата:
Файл 152052 |
|
Последний раз редактировалось TheLeon, 06-04-2018 в 15:26. Отправлено: 20:38, 05-04-2018 | #3 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать Цитата TheLeon:
|
|
------- Отправлено: 20:51, 05-04-2018 | #4 |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать Секция CODE
пусто
А также второй вопрос: сделал, как вы сказали, сместил список компонентов и их превью, но все равно половину вкладки выбора типа установки перекрывает. Скорее всего это место было для инструкции, пример: "выберите из списка нужный компонент....", если это так, то можно ли это убрать? Заранее спасибо. |
|
Последний раз редактировалось TheLeon, 07-04-2018 в 21:30. Отправлено: 16:10, 06-04-2018 | #5 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать Цитата TheLeon:
Цитата TheLeon:
Label1 := TLabel.Create(WizardForm); with Label1 do begin Parent := WizardForm; Caption := 'Сделано в фирме TheLeon'; SetBounds(ScaleX(16),ScaleY(330),ScaleX(132),ScaleY(13)); end; Image1 := TBitmapImage.Create(WizardForm); with Image1 do begin Parent := WizardForm.SelectDirPage; SetBounds(ScaleX(0),ScaleY(110),ScaleX(417),ScaleY(140)); ExtractTemporaryFile('BMP.bmp'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\BMP.bmp')); end; тоже должен быть в процедуре InitializeWizard |
||
------- Отправлено: 16:49, 06-04-2018 | #6 |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать P.S: за остальное же спасибо, слепой, что с меня взять... Секция CODE
пусто
|
Последний раз редактировалось TheLeon, 07-04-2018 в 21:29. Отправлено: 18:43, 06-04-2018 | #7 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать Цитата TheLeon:
вот добавьте это в InitializeWizard |
|
------- Последний раз редактировалось habib2302, 06-04-2018 в 19:59. Отправлено: 19:16, 06-04-2018 | #8 |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать P.S: смотрел статью, опять же пытался - ничего не получилось. Секция Code
Пусто |
Последний раз редактировалось TheLeon, 07-04-2018 в 21:29. Отправлено: 12:39, 07-04-2018 | #9 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать TheLeon, вот другой вариант. потому что скрипт из этой статьи в виде всплывающего уведомления
[Setup] AppName=Моя программа AppVersion=1.5 AppPublisher=YURSHAT AppPublisherURL=http://krinkels.org/ DefaultDirName={pf}\Моя программа [Languages] Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl" [CustomMessages] RU.CompName1=Компонент 1 RU.CompName2=Компонент 2 [Files] Source: "compiler:WizModernImage.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy Source: "compiler:WizModernImage-IS.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy [Types] Name: full; Description: Full installation; Flags: iscustom [Components] Name: comp1; Description: "{cm:CompName1}"; Types: full Name: comp2; Description: "{cm:CompName2}"; Types: full [Code] type TComponentDesc = record Description: String; ImageName: String; Index: Integer; end; var CompDescs: array of TComponentDesc; CompDescPanel, CompDescImgPanel: TPanel; CompIndex, LastIndex: Integer; CompDescImg: TBitmapImage; procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea); var i: Integer; begin if Index = LastIndex then Exit; CompIndex := -1; for i := 0 to GetArrayLength(CompDescs) -1 do begin if (CompDescs[i].Index = Index) then begin CompIndex := i; Break; end; end; if (CompIndex >= 0) and (Area = iaItem) then begin if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then ExtractTemporaryFile(CompDescs[CompIndex].ImageName); CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName); CompDescImg.Show; end; LastIndex := Index; end; procedure CompListMouseLeave(Sender: TObject); begin CompDescImg.Hide; LastIndex := -1; end; procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String); var i: Integer; begin i := GetArrayLength(CompDescs); SetArrayLength(CompDescs, i + 1); CompDescs[i].Description := ADescription; CompDescs[i].ImageName := AImageName; CompDescs[i].Index := AIndex - 1 end; procedure InitializeWizard(); begin WizardForm.SelectComponentsLabel.Hide; WizardForm.TypesCombo.Hide; WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(205)); WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription; WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave; CompDescImgPanel := TPanel.Create(WizardForm); with CompDescImgPanel do begin Parent := WizardForm.SelectComponentsPage; SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(205)); BevelInner := bvLowered; end; CompDescImg := TBitmapImage.Create(WizardForm); with CompDescImg do begin Parent := CompDescImgPanel; SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10)); Stretch := True; Hide; end; AddCompDescription(1, (''), 'CompDescImg1.bmp'); AddCompDescription(2, (''), 'CompDescImg2.bmp'); end; |
------- Отправлено: 19:35, 07-04-2018 | #10 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|