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

[AjaX_too]

помогите реализовать следующее:



в установщике нужно сделать страничку с двумя регистрами, при выборе одного - добавляеться одно значение в реестр, при выборе другого - второе (или не добавляется вообще). Как добавить данные в реестр я знаю, мне нужна лишь логика реализации регистров. Спасибо.

[Serega]

Цитата Lancer2404:



(параметр defaultdirname) допустим Новая папка.Как сделать чтоб он вообще ничего не приписывал?

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

[Setup]

AppendDefaultDirName=False

[AjaX_too]

спасибо.а можете дать список похожих команд.вдруг пригодятся?




Цитата:



[Setup] AppendDefaultDirName=False



ошибку выдает писал в секции [setup]

[Serega]

Цитата Lancer2404:



ошибку выдает

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

Если и так:

AppendDefaultDirName=no

выдаст ошибку, то ...

[Serega]

Serega, в принципе можно и так, только нужны не чекбоксы а радиобутоны.

нужно вот так:

Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

[Serega]

414895494, код для растягивания картинки страницы приветствия:

читать дальше »

[Files]

Source: C:\fon.bmp; DestDir: {tmp}; Flags: dontcopy

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

var

  WelcomeLabel1, WelcomeLabel2: TLabel;

  BmpFile: TBitmapImage;



 procedure InitializeWizard();

begin

  ExtractTemporaryFile('fon.bmp');



  BmpFile:= TBitmapImage.Create(WizardForm);

  BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\fon.bmp'));

  BmpFile.SetBounds(0, 0, 497, 320);

  BmpFile.Stretch:= true

  BmpFile.Parent:= WizardForm.WelcomePage;



  with WizardForm do

  begin

    WelcomeLabel1.Hide;

    WelcomeLabel2.hide;

  end;



  WelcomeLabel1:= TLabel.Create(WizardForm);

  with WelcomeLabel1 do

  begin

    WelcomeLabel1.Alignment:=taCenter;

    Left:= ScaleX(176);

    Top:= ScaleY(66);

    Width:= ScaleX(301);

    Height:= ScaleY(71);

    AutoSize:= false;

    Transparent:= true;

    WordWrap:= true;

    Font.Name:='Tahoma'

    Font.Size:= 12;

    Font.Color:=ClWhite

    Parent:= WizardForm.WelcomePage;

    Caption:= WizardForm.WelcomeLabel1.Caption;

 end;



   WelcomeLabel2:=TLabel.Create(WizardForm);

  with WelcomeLabel2 do

  begin

    WelcomeLabel2.Alignment:=taCenter;

    Top:= ScaleY(136);

    Left:= ScaleX(176);

    Width:= ScaleX(301);

    Height:= ScaleY(300);

    AutoSize:= false;

    WordWrap:= true;

    Font.Color:=ClWhite

    Font.Name:='Segoe UI'

    Transparent:= true;

    Parent:= WizardForm.WelcomePage;

    Caption:= WizardForm.WelcomeLabel2.Caption;

end;

end;



Картинка в левый нижний угол: 
[url=#]читать дальше »[/url]



[Files]

Source: C:\logo.bmp; DestDir: {tmp}; Flags: dontcopy



[code]

var

LogoImage:TBitmapImage;

LogoLabel: TLabel;

LogoPanel: TPanel;



procedure LogoOnClick(Sender: TObject);

var ReturnCode: Integer;

begin

ShellExec('open', 'http://сайт.ру', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)

end;



procedure InitializeWizard();

begin

ExtractTemporaryFile('logo.bmp');

LogoPanel := TPanel.Create(WizardForm);

with LogoPanel do

begin

Parent := WizardForm;

Left := ScaleX(5);

Top := ScaleY(320);

Width := ScaleX(165);

Height := ScaleY(35);

BevelOuter := bvNone;

end;



LogoImage := TBitmapImage.Create(WizardForm);

with LogoImage do

begin

Parent := LogoPanel;

Left := ScaleX(0);

Top := ScaleY(0);

AutoSize:=true;

ReplaceColor:=clFuchsia;

ReplaceWithColor:=clBtnFace;

Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));

end;



LogoLabel := TLabel.Create(WizardForm);

with LogoLabel do

begin

Parent := LogoPanel;

Width := LogoPanel.Width;

Height := LogoPanel.Height;

Transparent:=True;

Cursor := crHand;

OnClick:=@LogoOnClick;

end;

end;



Растянуть верхнюю картинку: 
[url=#]читать дальше »[/url]



[code]

procedure InitializeWizard();

begin

with WizardForm do begin

with MainPanel do

Height := Height - 1;

with WizardSmallBitmapImage do begin

Left := 0;

Top := 0;

Height := 58; //Размер рисунка

Width := 497; //

end;

with PageNameLabel do begin

Font.Name := 'Tahoma'

Width := Width - 497; //Поставьте здесь значения на 0, если хотите вернуть текст

Left := Left + 497; //

end;

with PageDescriptionLabel do begin

Font.Name := 'Tahoma'

Width := Width - 497; //Поставьте здесь значения на 0, если хотите вернуть текст

Left := Left + 497; //

end;

end;

end;

 

Для объединения скриптом рекомендую ISS Joiner (как начинающему)

P.S. Всё это не раз обсуждалось, юзай поиск [img]images/smilies/wink.gif[/img]

[AjaX_too]

отлично, спасибо!

[pa60t9ra]

Всем привет. На данный момент не атк много вопросов.

1. Как поставить фоновую музыку, чтобы проигрывало во время установки приложения.

2. Почему не все отображается в меню пуск, что прописано в секции [Icons]? А что и прописано. то не в той последовательности, как в самой секции.

[Serega]

Цитата serg aka lain:



Если и так:

AppendDefaultDirName=no

выдаст ошибку, то ...

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

не работает в чем дело?



все решил проблему.А не подскажете какой ключ в реестре отвечает за добавление ярлыков в папку игры на windows vista?

[pa60t9ra]

Подскажите

Можно картинку поместить не тольно на стронице приветствия.

А напротежение всей устоновки..

И как можно увеличеть окно инстала.

Зарание спасибо.