[Dinvin4ester]

saurn,
http://i63.fastpic.ru/big/2014/1002/...cb17e62c21.png И http://i63.fastpic.ru/big/2014/1002/...c432639227.png
заменил, ошибка осталась.

[saurn]

заменил, ошибка осталась. »

Без конструкции case of. По сути она там и не нужна.

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

Код:

procedure TButtonOnClick( Sender: TObject );
var
    iForm: Tform;
begin
    iForm := TForm.Create( nil );
    with iForm do
    try
        BorderIcons := [];
        ClientWidth := ScaleX( 300 );
        ClientHeight := ScaleY( 300 );
        Caption := 'Информация';
        Position := poScreenCenter;

        with TBevel.Create( nil ) do
        begin
            Parent := iForm;
            SetBounds( ScaleX( 8 ), ScaleY( 8 ), ScaleX( 284 ), ScaleY( 249 ) );
            Shape := bsFrame;
        end;

        with TNewStaticText.Create( nil ) do
        begin
            Parent := iForm;
            SetBounds( ScaleX( 12 ), ScaleY( 12 ), ScaleX( 276 ), ScaleY( 241 ) );
            AutoSize := False;
            Caption := 'Информация:' + #13#10 +
                       'Версия:'     + #13#10 +
                       'И т.д.';
            WordWrap := True;
        end;

        with TNewButton.Create( nil ) do
        begin
            Parent := iForm;
            SetBounds( ScaleX( 112 ), ScaleY( 266 ), ScaleX( 76 ), ScaleY( 25 ) );
            ModalResult := mrOk;
            Caption := 'Закрыть';
        end;

            ModalResult := ShowModal();
        finally

            Free;
        end;
end;

[Dinvin4ester]

saurn,
Вот щас прям как надо. И еще не сочтите за назойливость, но спрошу. Как сделать выбор установки русского и английского языка ? Что добавить в основной скрипт и что в месседж..
Спасибо.

[saurn]

Как сделать выбор установки русского и английского языка ? »

Код:

[Languages]
Name: en; MessagesFile: "compiler:Default.isl"
Name: ru; MessagesFile: "compiler:Languages\Russian.isl"

[Messages]
en.BeveledLabel=English
ru.BeveledLabel=Русский

[CustomMessages]
//сообщения для en
en.MyDescription=My description
en.MyAppName=My Program
en.MyAppVerName=My Program %1
//сообщения для ru
ru.MyDescription=Мое описание
ru.MyAppName=Моя программа
ru.MyAppVerName=Моя программа %1

Стандартные Messages переводить не требуется, кроме BeveledLabel. А кастомные сообщения нужно будет писать отдельно для каждого языка. en. и ru. в скрипте - это указатели на необходимый язык в секции Languages.

[diman_21Ru]

Ищу самый простой способ добавлении кнопок в низ установщика , заранее блогадарю

[saurn]

diman_21Ru,

Код:

procedure InitializeWizard();
begin
  with TNewButton.Create(WizardForm) do
  begin
    Parent := WizardForm;
    Left := ScaleX(8);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'NewButton1';
  end;
end;

[diman_21Ru]

saurn, А кликабельность как добавить к нему

[saurn]

А кликабельность как добавить к нему »

Код:

procedure btnOnClick(Sender: TObject);
begin
    MsgBox( 'Click', mbInformation, MB_OK );
end;

procedure InitializeWizard();
begin
  with TNewButton.Create(WizardForm) do
  begin
    Parent := WizardForm;
    Left := ScaleX(8);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'NewButton1';
    OnClick := @btnOnClick;
  end;
end;

[AlekseyPopovv]

Кто ни будь знает как поменять "/VERYSILENT" на "/V"?

[Dinvin4ester]

saurn,
http://i65.fastpic.ru/big/2014/1002/...8065857409.png
никак не получается, выходят 3 таких.