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

[VASYAKRN]

No4noylis, картинка поставилась но прогрессбар пропал.(

[onlainserver]

Цитата ntrx:



Что-бы не вытаскивать из других скриптов?

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

воть накатал быстренько, через ботву

http://rghost.ru/23949041

[valyok666]

VASYAKRN, по подробнее что за маска нужна

[Rikill]

Цитата ntrx:



No4noylis, картинка поставилась но прогрессбар пропал.(

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

Я ж говорю, если картинку ставишь, надо компоненты страницы переносить на InnerPage, и добавлять их в процедуру CurPаgeChanged, чтоб они скрывались

Alloc, Возможно я ошибаюсь но помоему тебе подойдет ISDone, сначала в папке установки можно распаковать нужный архив, затем из инсталла добавить в папку необходимые файлы, и потом запаковать это дело обратно в архив.

Mafia_forever, Ну ясное дело, с помощью srep.exe . А вообще это

[Sk.Faker]

рікіл

в какой справке

[VASYAKRN]

Подскажите пожалуйста, как переконвертировать текст в hex?

Пример: C:\Program Files\My Program -> 433A5C50726F6772616D2046696C65735C4D792050726F6772616D

C:\Program Files - путь может быть другой, поэтому и требуется конвертация.

[Wadia]

del

[Dark_Delphin]

Всем привет!



Подскажите как изменить размер прогрессбара?

[insombia]

Цитата ntrx:



Можно ли через fairy.dll сделать кликабельное лого через *.png.

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

Не через png, но за неимением оного вот кликабельное bmp-лого:



[Setup]

AppName=Logo

AppVerName=Logo

DefaultDirName=C:\Logo



[Files]

Source: Button.bmp; Flags: dontcopy

Код: Выделить всё

procedure LogoOnClick(Sender: TObject);

var ResCode: Integer;

begin

  ShellExec('', 'http://www.forum.ru-board.com', '' , '', SW_SHOW, ewNoWait, ResCode)

end;

 

procedure InitializeWizard();

var

  BtnPanel: TPanel;

  BtnImage: TBitmapImage;

begin

  ExtractTemporaryFile('Button.bmp')

     

  BtnPanel:=TPanel.Create(WizardForm)

  with BtnPanel do begin

    Left:=20

    Top:=325

    Width:=132

    Height:=27

    Cursor:=crHand

    OnClick:=@logoOnClick

    Parent:=WizardForm

  end

  BtnImage:=TBitmapImage.Create(WizardForm)

  with BtnImage do begin

    AutoSize:=True;

    Enabled:=False;

    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')

    Parent:=BtnPanel

  end

end;

[Dark_Delphin]

insombia, да.