Скрипты Inno Setup. Помощь и советы [часть 6]

[Iska]

и в КОНСОЛЬ »
А без консоли? Лог-файл никак не устраивает? Ибо InnoSetup создаёт GUI-инсталляцию, и для консоли как минимум нужны лишние телодвижения.

[Nordek]

Как можно растянуть окно для текста компонентов на весь экран ? »Как-то не особо понятно.

Регулируй по своему InnerNotebook, OuterNotebook и остальные по необходимости

with WizardForm.InnerNotebook do
begin
Left := ScaleX(XXX);
Top := ScaleY(XXX);
Width := ScaleX(XXX);
Height := ScaleY(XXX);
end; with WizardForm.OuterNotebook do
begin
Left := ScaleX(XXX);
Top := ScaleY(XXX);
Width := ScaleX(XXX);
Height := ScaleY(XXX);
end;

[Code]
procedure InitializeWizard();
begin
with WizardForm do
begin
AutoScroll := False;
ClientHeight := ScaleY(550);
ClientWidth := ScaleX(709);
end;

with WizardForm.Bevel do
begin
Top := ScaleY(505);
Width := ScaleX(710);
end;

with WizardForm.CancelButton do
begin
Left := ScaleX(172);
Top := ScaleY(519);
end;

with WizardForm.NextButton do
begin
Left := ScaleX(92);
Top := ScaleY(519);
end;

with WizardForm.BackButton do
begin
Left := ScaleX(12);
Top := ScaleY(519);
end;

with WizardForm.OuterNotebook do
begin
Width := ScaleX(710);
Height := ScaleY(505);
end;

with WizardForm.WizardBitmapImage do
begin
Width := ScaleX(212);
Height := ScaleY(506);
end;

with WizardForm.WelcomeLabel2 do
begin
Left := ScaleX(240);
Width := ScaleX(445);
Height := ScaleY(415);
end;

with WizardForm.WelcomeLabel1 do
begin
Left := ScaleX(240);
Width := ScaleX(445);
end;

with WizardForm.Bevel1 do
begin
Width := ScaleX(710);
end;

with WizardForm.InnerNotebook do
begin
Left := ScaleX(8);
Top := ScaleY(64);
Width := ScaleX(697);
Height := ScaleY(437);
end;

with WizardForm.LicenseNotAcceptedRadio do
begin
Top := ScaleY(408);
end;

with WizardForm.LicenseAcceptedRadio do
begin
Top := ScaleY(388);
end;

with WizardForm.LicenseMemo do
begin
Width := ScaleX(697);
Height := ScaleY(340);
end;

with WizardForm.LicenseLabel1 do
begin
Width := ScaleX(697);
end;

with WizardForm.InfoBeforeMemo do
begin
Width := ScaleX(697);
Height := ScaleY(405);
end;

with WizardForm.DiskSpaceLabel do
begin
Top := ScaleY(416);
end;

with WizardForm.DirBrowseButton do
begin
Left := ScaleX(614);
end;

with WizardForm.DirEdit do
begin
Width := ScaleX(604);
end;

with WizardForm.ComponentsDiskSpaceLabel do
begin
Top := ScaleY(416);
end;

with WizardForm.ComponentsList do
begin
Width := ScaleX(697);
Height := ScaleY(344);
end;

with WizardForm.TypesCombo do
begin
Width := ScaleX(697);
end;

with WizardForm.SelectComponentsLabel do
begin
Width := ScaleX(681);
end;

with WizardForm.NoIconsCheck do
begin
Top := ScaleY(415);
end;

with WizardForm.GroupBrowseButton do
begin
Left := ScaleX(614);
end;

with WizardForm.GroupEdit do
begin
Width := ScaleX(604);
end;

with WizardForm.TasksList do
begin
Width := ScaleX(697);
Height := ScaleY(400);
end;

with WizardForm.ReadyMemo do
begin
Width := ScaleX(697);
Height := ScaleY(413);
end;

with WizardForm.PreparingLabel do
begin
Width := ScaleX(673);
Height := ScaleY(113);
end;

with WizardForm.PreparingMemo do
begin
Top := ScaleY(168);
Width := ScaleX(649);
Height := ScaleY(249);
end;

with WizardForm.ProgressGauge do
begin
Width := ScaleX(697);
end;

with WizardForm.InfoAfterMemo do
begin
Width := ScaleX(697);
Height := ScaleY(405);
end;

with WizardForm.MainPanel do
begin
Width := ScaleX(710);
end;

with WizardForm.WizardSmallBitmapImage do
begin
Left := ScaleX(656);
Top := ScaleY(0);
end;

with WizardForm.WizardBitmapImage2 do
begin
Width := ScaleX(212);
Height := ScaleY(506);
end;

with WizardForm.RunList do
begin
Left := ScaleX(240);
end;

with WizardForm.NoRadio do
begin
Left := ScaleX(240);
end;

with WizardForm.YesRadio do
begin
Left := ScaleX(240);
end;

with WizardForm.FinishedLabel do
begin
Left := ScaleX(240);
Width := ScaleX(445);
end;

with WizardForm.FinishedHeadingLabel do
begin
Left := ScaleX(240);
Width := ScaleX(445);
end;
end;

[diman_21Ru]

Nordek,нет не то , я имел введу что окно для компонентов маленькое хочу как на втором скрине чтоб вышло

[vint56]

diman_21Ru
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DisableWelcomepage=yes
DisableDirPage=yes


[Components]
;Name: "EM_WP_Lite"; Description: "ExpromtMax WOT Pack lite"; Flags: Fixed;
Name: "NDXVMC"; Description: "XVM Config New Death от ExpromtMax";
Name: "NDXVMC\XPBarWide"; Description: "New Death Config с широкой полосой остатка XP"; Flags: exclusive; Types: full;
Name: "NDXVMC\XPBarNarrow"; Description: "New Death Config с узкой полосой остатка XP"; Flags: exclusive;
Name: "NDXVMC\LSS"; Description: "Лампочки Шестого чувства";
Name: "NDXVMC\LSS\EM"; Description: "Лампочка -NEW DEATH- (EXPROMT_MAX)"; Flags: exclusive; Types: full;
Name: "NDXVMC\LSS\WL"; Description: "Белая лампочка"; Flags: exclusive;
Name: "NDXVMC\LSS\WD"; Description: "Внимание, опасность!"; Flags: exclusive;
Name: "NDXVMC\LSS\SN"; Description: "Sukanoob"; Flags: exclusive;
Name: "NDXVMC\LSS\TF"; Description: "Танк обнаружен"; Flags: exclusive;
Name: "NDXVMC\LSS\EOS"; Description: "Око Саурона"; Flags: exclusive;
Name: "NDXVMC\SLSS"; Description: "Звук лампы шестого чувства";
Name: "NDXVMC\SLSS\EMM"; Description: "EXPROMT_MAX+Alhor с таймером"; Flags: exclusive; Types: full;
Name: "NDXVMC\SLSS\ALas"; Description: "Alastanka с таймером"; Flags: exclusive;
Name: "NDXVMC\SLSS\SAu"; Description: "Саурон"; Flags: exclusive;
Name: "NDXVMC\SLSS\HisF"; Description: "Истеричный FUCK"; Flags: exclusive;
Name: "NDXVMC\SLSS\Kat"; Description: "Катюша"; Flags: exclusive;
Name: "SIGHTS"; Description: "прицелы";
Name: "SIGHTS\SOD"; Description: "Прицел Дамоклов меч AleksLee (EXPROMT_MAX)"; Flags: exclusive; Types: full;
Name: "SIGHTS\TD"; Description: "Прицел TAIPAN - DIKEY93"; Flags: exclusive;
Name: "SIGHTS\MOT"; Description: "Космический прицел M_O_T clan"; Flags: exclusive;
Name: "SIGHTS\Jim"; Description: "Прицел Jimb0"; Flags: exclusive;
Name: "UGN"; Description: "Углы горизонтальной наводки";
Name: "UGN\SEM"; Description: "Shtys (EXPROMT_MAX)"; Flags: exclusive; Types: full;
Name: "UGN\AOD"; Description: "AleksLee дамоклов меч"; Flags: exclusive;
Name: "DP"; Description: "Дамаг Панели";
Name: "DP\GEM"; Description: "Дамаг-панель GambitER. (EXPROMT_MAX)"; Flags: exclusive; Types: full;
Name: "DP\BN"; Description: "Дамаг-панель BioNick"; Flags: exclusive;
;Name: "DP\Dell"; Description: "Дамаг-панель Dellux"; Flags: exclusive;
;Name: "DP\Zayaz"; Description: "Дамаг панель Zayaz"; Flags: exclusive;
;Name: "TI"; Description: "Иконки танков (уши)";
;Name: "TI\EM"; Description: "Иконки EXPROMT_MAX"; Flags: exclusive; Types: full;
;Name: "TI\3D"; Description: "3D иконки Romkyns"; Flags: exclusive;
;Name: "TI\ser"; Description: "Иконки seriych"; Flags: exclusive;
;Name: "TI\Mstr"; Description: "Иконки Master_XH"; Flags: exclusive;
;Name: "PIG"; Description: "Панели-часы в бою, в ангаре, пинг, фпс от marsoff (EXPROMT_MAX)"; Types: full;
;Name: "PIG\Clock"; Description: "Часы в бою и время боя";
;Name: "PIG\PFPS"; Description: "Панель пинг и фпс";
;Name: "HDMap"; Description: "HD мини-карты locastan";
;Name: "CHTIcons"; Description: "Чат-иконки и цветные сообщения iRamSoft (EXPROMT_MAX)"; Types: full;
;Name: "RZDPlat"; Description: "Яркие жд платформы locastan";
;Name: "WSkins"; Description: "Белые шкурки пробитий Nooben";
;Name: "MFPet"; Description: "Маркер Фокус PetR0vich81 (EXPROMT_MAX)"; Types: full;
;Name: "INO"; Description: "Индикатор направления огня";
;Name: "INO\GW"; Description: "GreenWarriors (EXPROMT_MAX)"; Flags: exclusive; Types: full;
;Name: "INO\PV"; Description: "poVitter"; Flags: exclusive;
;Name: "INO\Mars"; Description: "marsoff"; Flags: exclusive;
;Name: "InfP"; Description: "Инфо-панель цели Shtys (удалится время перезаряда в прицеле)";
;Name: "InfP\Srd"; Description: "Стандарт"; Flags: exclusive;
;Name: "InfP\Col"; Description: "Цветная"; Flags: exclusive;
;Name: "Chat"; Description: "Настройка элементов чата в бою"
;Name: "Chat\Hist"; Description: "История сообщений-STL1te"; Flags: exclusive;
;Name: "Chat\PCht"; Description: "Прозрачный чат в бою-beta"; Flags: exclusive;
;Name: "KSnD"; Description: "Крупно количество снарядов в панели, в бою-Zayaz (EXPROMT_MAX)"; Types: full;


[Code]
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
procedure InitializeWizard();
begin
with WizardForm do
begin
ClientHeight := ScaleY(560);
end;
with WizardForm.CancelButton do
begin
Top := ScaleY(519);
Height := ScaleY(31);
end;

with WizardForm.NextButton do
begin
Left := ScaleX(93);
Top := ScaleY(519);
Height := ScaleY(31);
end;

with WizardForm.BackButton do
begin
Left := ScaleX(13);
Top := ScaleY(519);
Height := ScaleY(31);
end;
with WizardForm.OuterNotebook do
begin
Height := ScaleY(500);
Top := ScaleY(0);
end;
with WizardForm.InnerNotebook do
begin
Height := ScaleY(490);
Top := ScaleY(0);
end;
with WizardForm.DirBrowseButton do
begin
Top := ScaleY(20);
Parent:=WizardForm.SelectComponentsPage;
end;
with WizardForm.DirEdit do
begin
Top := ScaleY(20);
Parent:=WizardForm.SelectComponentsPage;
end;
with WizardForm.ComponentsList do
begin
Top := ScaleY(60);
Height := ScaleY(430);
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.ComponentsDiskSpaceLabel.Hide;
WizardForm.TypesCombo.Hide;
WizardForm.SelectComponentsLabel.Hide;
WizardForm.MainPanel.Hide;
WizardForm.Bevel1.Hide;
end;

[saurn]

Как добавить в начале скрипта проверку на Расширенную версию Inno Setup Compiler... »
#ifndef IS_ENHANCED
#error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[The_Immortal]

Iska, А без консоли? Лог-файл никак не устраивает? »
Неа, нужен именно вывод в консоль...

и для консоли как минимум нужны лишние телодвижения »
А в каком хотя бы направлении смотреть, не подскажите?

[Iska]

А в каком хотя бы направлении смотреть, не подскажите? »
Вот в этом: Console Reference (http://msdn.microsoft.com/en-us/library/windows/desktop/ms682087(v=vs.85).aspx).

[diman_21Ru]

vint56 ,вышло чтото как то не так судя по скрину )

[Farser21]

Всем привет, наткнулся на такую проблему. Стоит процедура на показ картинок при наведении на компонент. Установил координаты, все показывает в нужном месте. Но стоит только мне переместить окно установщика немного выше, то картинка остается на прошлом месте и не перемещается за окном установщика. Ну собственно и сам вопрос. Как сделать, чтобы картинка перемещалась за установщиком и не фиксировалась на самом экране а фиксировалась прямо на указанных координатах в установщике.

Заранее всем спасибо за ответ!

[saurn]

Farser21, было.
http://forum.oszone.net/post-2296393-1949.html

[Farser21]

saurn, спасибо, но есть небольшая проблема. Не как не могу настроить координаты.
Ранее я выставлял их так
procedure ShowPicHint(const PicFilePath: String);
var
pt: TPoint;
begin
if not GetCursorPos(pt) then Exit;
InfoPic.Bitmap.LoadFromFile(PicFilePath);
try
with PicForm do
begin
// SetBounds(ScaleX(pt.x + 16), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height);
Left := ScaleX(700); // Слева
Top := ScaleY(545); // Сверху
Width := ScaleX(280); // Ширина
Height := ScaleY(215); // Высота
Show;
end;
finally
end;
end;
Где в твоем примере нужно задать эти же координаты? Не как не получаеться.

[saurn]

Farser21, там же:
procedure ShowPicHint(const PicFilePath: String);
var
pt: TPoint;
begin
if not GetCursorPos(pt) then Exit;
InfoPic.Bitmap.LoadFromFile(PicFilePath);
InfoPic.SetBounds(ScaleX(245), ScaleY(42), ScaleX(166), ScaleY(165));
Left Top Width Height
InfoPic.Show;
end;

[vint56]

diman_21Ru ну правильно ты размеры изменил потому все элементы стоят не на своих местах

[diman_21Ru]

vint56, а как мне сделать размер правильный ?

[vint56]

diman_21Ru скачай inno ultra там есть расширенный редактор форм там вот в нем ты можеш увеличить формы и передвинуть обьекты как тебе надо

[diman_21Ru]

vint56, у меня стоит и так расширенная но где именно там это изменять

[vint56]

diman_21Ru редактор форм http://i60.fastpic.ru/thumb/2014/0208/81/4a745afb56697de8c442cc298eeb1081.jpeg (http://fastpic.ru/view/60/2014/0208/4a745afb56697de8c442cc298eeb1081.png.html)

[Mailchik]

Друзья, подскажите, пожалуйста, как можно в скрипте реализовать следующее в режиме verysilent:
если разрядность ОСи x86, то отменяем установку и в КОНСОЛЬ возвращаем какое-либо сообщение с кодом. »
С помощью библиотеки. (http://rghost.ru/52283944)

[diman_21Ru]

Как исправить isdone.dll не найдено ни одного файла указанного для isarcextract. или же как отключить isdone в скрипте

[Gnom_aka_Lexander]

diman_21Ru, положить эти файлы, которые указаны для isarcextract именно по тому пути, который указан в вызове функции. это проблема не isdone.dll, это проблема отсутствия желания разбираться в том, как она работает.