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

[ZVSRus]

Задаю вопрос 2 раз опытным пользователям.

Как в данном куске скрипта вместо .bmp картинки, прописать каратинки .gif или .png
botva2.iss, botva2.dll, b2p.dll в скрипте прикручены.
Если можно реальный пример.


procedure LangClick(Sender: TObject);
begin
case TNewRadioButton(Sender) of
LangRus:
begin
FlagImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\rus.bmp'));
FlagImage.Width := ScaleX(69);
FlagImage.Height := ScaleY(44);
FlagImage.Left := ScaleX(60);
FlagImage.Top := ScaleY(14);
end;
LangEng:
begin
FlagImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\eng.bmp'));
FlagImage.Width := ScaleX(69);
FlagImage.Height := ScaleY(44);
FlagImage.Left := ScaleX(60);
FlagImage.Top := ScaleY(14);
end;
end;

[Dodakaedr]

ZVSRus, создайте панелки и используйте их в качестве родителя при вызове такого кода:

ImgLoad(FlagImagePanel.Handle, ExpandConstant('{tmp}\rus.png'), ScaleX(0), ScaleY(0), ScaleX(69), ScaleY(44), True, True);
ImgApplyChanges(FlagImagePanel.Handle);

[ZVSRus]

создайте панелки
Все создал, как вы описали.
Компилируется нормально, но при запуске ошибка.
Что-то нужно дописать, или убрать в данной процедуре.

[ZVSRus]

Все разобрался.

[ABBAT]

Всем привет.
Как сделать поиск папки в корне всех дисках\разделах? Такая фишка реализована у z10yded. setup.exe ищет папку Games на всех дисках\разделах, если находит, предлагает установить игру в эту папку, иначе C:\Games. Если создать две папки на разных дисках\разделах, то предлагает установку на первый найденный.

P.S сам setup.exe (https://yadi.sk/d/qYykmOPMmpqDv).

[Maratina]

Привет, как сделать ?
Inno Setup при запуске тихо копирует файлы в папку допустим "My Appу" в корне сис диска {sd} от туда же запускает Setup.exe. если удалось запустить файл то тихо закрывается, если нет, проблемы с правами или еще чем то выдает ошибку
пробовал пример тихой установки, но видно прогресс бар
P.S это все нужно для установки драйверов

[kotyarko@fb]

Как сделать поиск папки в корне всех дисках\разделах? »
Использовать FindFirst (http://www.jrsoftware.org/ishelp/index.php?topic=isxfunc_findfirst). Но подобный поиск может быть весьма длительным.

пробовал пример тихой установки, но видно прогресс бар »Запускать программу с параметром "/VERYSILENT".

[Maratina]

kotyarko@fb,
Запускать программу с параметром "/VERYSILENT". »
то есть пользователь сам должен это все прописывать ? а без этого есть варианты ?

[Serjione]

ValueData: "C:\Program Files (x86)\test.exe" -f "%1"

Данную строку как написать чтобы компилятор не ругался на пробел перед и после -f ? Данные которые в ковычках, должны вместе с ними заноситься в реестр.

[ABBAT]

kotyarko@fb,
z10yded использует толстую Tools.dll (1.5mb) может в ней секрет спрятан.
Serjione,
"""C:\Program Files (x86)\test.exe"" -f ""%1"""

[Nordek]

ValueData: »Что это такое? Serjione, У сайта Оракул, другой адрес.
Поясняйте, чтоб иметь представление. Представляйте рабочую часть кода, чтоб можно было воспроизвести.

Данную строку как написать чтобы компилятор не ругался »

[Registry]
Root: HKCU; SubKey: Software\Classes\test\shell\open\command; ValueType: string; ValueData: """C:\Program Files (x86)\test.exe"" -f ""%1"""; Flags: uninsdeletevalue uninsdeletekeyifempty


Если путь зависит от DefaultDirName из секции [Setup], то так:
[Registry]
Root: HKCU; SubKey: Software\Classes\test\shell\open\command; ValueType: string; ValueData: """{app}\test.exe"" -f ""%1"""; Flags: uninsdeletevalue uninsdeletekeyifempty

[Serjione]

Что это такое? Serjione, У сайта Оракул, другой адрес. »

Был выложен лишь проблемный участок кода.

Спасибо за ответ, ABBAT уже помог.

[dimantv_wot@vk]

Как можно убрать Types что бы не было выбора компактный полный и т.д

[ABBAT]

dimantv_wot@vk,
Через [Tasks] делайте, а [Components] и [Types] удалить. (в справке пример есть)

[Nordek]

Как можно убрать »
[Code]
procedure InitializeWizard();
begin
WizardForm.ComponentsList.Top := ScaleY(45);
WizardForm.ComponentsList.Height := ScaleY(160);
WizardForm.TypesCombo.Visible := False;
end;

[Bartron]

Разобрался, del...

[dimantv_wot@vk]

Всем привет скачал готовый скрипт Steam закоз но не запускает выдает ошибку, использую расширенный inno setup 5.5.1 Unicode

[ZVSRus]

Где в коде программы Inno Setup найти размеры данных двух диалоговых окон. (Restorator'ом)
Как они называются, и можно-ли на них прикрепить свою кнопку 'Сброс'.
(т.е. какое названия родителя написить .Parent := WizardForm.????????????)
Картинка снизу.

[ZVSRus]

Вопрос выше остался без ответа.
Или никто не знает, что мало вероятно, или не хотят, что печально!
Тогда может кто знает как растянуть InnerPage в расширенной InnoSetup

[habib2302]

как добавить checkbox на infobefore page вместо InfoBeforeClickLabel и чтобы по окончанию установки открывался сайт
нашел на предыдущей странице