[STRAYKER]

serg aka lain,

Спасиба незнаю что говорить я очень признателен

[STRAYKER]

serg aka lain,

А как зделать в первом и втором окнах ?

[serg aka lain]

А как зделать в первом и втором окнах ? »

Можно попробовать

так

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
WizardImageFile=compiler:WizModernImage-IS.bmp

[code]
const
   Text_color = clYellow;

var
  MyPanel1, MyPanel2: TPanel;

procedure InitializeWizard();
begin
  MyPanel1 := TPanel.Create(WizardForm);
  with MyPanel1 do
  begin
    Align := alClient;
    Parent := WizardForm;
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Align := alClient;
    Parent := MyPanel1;
  end;

  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel1.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel1.WordWrap; 
    Left := WizardForm.WelcomeLabel1.Left; 
    Top := WizardForm.WelcomeLabel1.Top; 
    Width := WizardForm.WelcomeLabel1.Width; 
    Height := WizardForm.WelcomeLabel1.Height; 
    Caption := WizardForm.WelcomeLabel1.Caption; 
    Font.Size := WizardForm.WelcomeLabel1.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel1.Font.Style; 
    Font.Color := Text_color; 
    TransParent := True; 
    Parent := MyPanel1;
  end; 
 
  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel2.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel2.WordWrap; 
    Left := WizardForm.WelcomeLabel2.Left; 
    Top := WizardForm.WelcomeLabel2.Top; 
    Width := WizardForm.WelcomeLabel2.Width; 
    Height := WizardForm.WelcomeLabel2.Height; 
    Caption := WizardForm.WelcomeLabel2.Caption; 
    Font.Size := WizardForm.WelcomeLabel2.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel2.Font.Style; 
    Font.Color := Text_color; 
    TransParent := True; 
    Parent := MyPanel1;
  end;

  MyPanel2 := TPanel.Create(WizardForm);
  with MyPanel2 do
  begin
    Align := alClient;
    Parent := WizardForm;
  end;

  with WizardForm do
  begin
    with DirEdit do
    begin
      Left := ScaleX(40);
      Top := ScaleY(137);
      Parent := MyPanel2;
    end;
    with DirBrowseButton do
    begin
      Left := WizardForm.DirEdit.Left + WizardForm.DirEdit.Width + ScaleX(10);
      Top := WizardForm.DirEdit.Top - ScaleY(1);
      Parent := MyPanel2;
    end;
  end;

  WizardForm.BackButton.BringToFront;
  WizardForm.NextButton.BringToFront;
  WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  MyPanel1.Hide;
  MyPanel2.Hide;

  if CurPageID = wpWelcome then
    MyPanel1.Show;

  if CurPageID = wpSelectDir then
  begin
    with TBitmapImage.Create(MyPanel2) do
    begin
      Align := alClient;
      Bitmap := WizardForm.WizardBitmapImage.Bitmap;
      Stretch := True;
      Parent := MyPanel2;
    end;

    with TLabel.Create(WizardForm) do
    begin
      AutoSize := WizardForm.SelectDirBrowseLabel.AutoSize;
      Left := WizardForm.DirEdit.Left;
      Top := WizardForm.DirEdit.Top - ScaleY(30);
      Width := WizardForm.SelectDirBrowseLabel.Width;
      Height := WizardForm.SelectDirBrowseLabel.Height;
      WordWrap := WizardForm.SelectDirBrowseLabel.WordWrap;
      Caption := WizardForm.SelectDirBrowseLabel.Caption;
      Font.Color := Text_color;
      Font.Style := WizardForm.SelectDirBrowseLabel.Font.Style;
      Font.Size := WizardForm.SelectDirBrowseLabel.Font.Size;
      Transparent := True;
      Parent := MyPanel2;
    end;

    with TLabel.Create(WizardForm) do
    begin
      AutoSize := WizardForm.SelectDirLabel.AutoSize;
      Left := WizardForm.DirEdit.Left + ScaleX(45);   
      Top := WizardForm.DirEdit.Top - ScaleY(55);
      Width := WizardForm.SelectDirLabel.Width;
      Height := WizardForm.SelectDirLabel.Height;
      WordWrap := WizardForm.SelectDirLabel.WordWrap;
      Caption := WizardForm.SelectDirLabel.Caption;
      Font.Color := Text_color;
      Font.Style := WizardForm.SelectDirLabel.Font.Style;
      Font.Size := WizardForm.SelectDirLabel.Font.Size;
      Transparent := True;
      Parent := MyPanel2;
    end;

    with TLabel.Create(WizardForm) do
    begin
      AutoSize := WizardForm.DiskSpaceLabel.AutoSize;
      Left := WizardForm.DirEdit.Left;
      Top := WizardForm.Bevel.Top - ScaleY(25);
      Width := WizardForm.DiskSpaceLabel.Width;
      Height := WizardForm.DiskSpaceLabel.Height;
      WordWrap:= WizardForm.DiskSpaceLabel.WordWrap;
      Caption := WizardForm.DiskSpaceLabel.Caption;
      Font.Color := Text_color;
      Font.Style := WizardForm.DiskSpaceLabel.Font.Style;
      Font.Size := WizardForm.DiskSpaceLabel.Font.Size;
      Transparent := True;
      Parent := MyPanel2;
    end;

    with TLabel.Create(WizardForm) do
    begin
      AutoSize := WizardForm.PageNameLabel.AutoSize;
      Left := WizardForm.PageNameLabel.Left;
      Top := WizardForm.PageNameLabel.Top;
      Width := WizardForm.PageNameLabel.Width;
      Height := WizardForm.PageNameLabel.Height;
      Caption := WizardForm.PageNameLabel.Caption;
      Font.Color := Text_color;
      Font.Style := WizardForm.PageNameLabel.Font.Style;
      Font.Size := WizardForm.PageNameLabel.Font.Size;
      Transparent := True;
      Parent := MyPanel2;
    end;

    with TLabel.Create(WizardForm) do
    begin
      AutoSize := WizardForm.PageDescriptionLabel.AutoSize;
      Left := WizardForm.PageDescriptionLabel.Left;
      Top := WizardForm.PageDescriptionLabel.Top;
      Width := WizardForm.PageDescriptionLabel.Width;
      Height := WizardForm.PageDescriptionLabel.Height;
      Caption := WizardForm.PageDescriptionLabel.Caption;
      Font.Color := Text_color;
      Font.Style := WizardForm.PageDescriptionLabel.Font.Style;
      Font.Size := WizardForm.PageDescriptionLabel.Font.Size;
      Transparent := True;
      Parent := MyPanel2;
    end;

    with WizardForm.SelectDirBitmapImage do
    begin
      Left := WizardForm.DirEdit.Left;
      Top := WizardForm.DirEdit.Top - ScaleY(62);
      Stretch := True;
      Parent := MyPanel2;
      BringToFront;
    end;

    MyPanel2.Show;
  end;
end;

[Vovochka_s2]

Прошу сильно не пинать, но я никак не могу въехать как работает скрипт для распаковки .arc
Сделал инсталлятор для программки, она впринципе небольшая и арк там не нужен, но ради интереса хотел попробовать ужать им.

Для использования скрипта откомпилируйте его и поместите архивы *.arc в один каталог с инсталятором перед тем как запустить его.

Ужал папку с программой FreeArc'ом, помещаю архив file.arc в каталог где лежат файлы программы, собираю инсталлер и получается тупо инсталлятор размер которого больше на объём этого архива и архив arc просто распаковывается вместе с файлами.
Что я не так делаю?

[jameszero]

STRAYKER,

Спасиба незнаю что говорить я очень признателен »

Как я могу отметить сообщение полезным?

[STRAYKER]

Например мне нада чтобы после установки программы запустилось приложения ЕХЕ без запроса о запуске

И как сделать чтобы был не один пароль а целая комбинация

[Pleo]

Кто может залить на обменник Inno Script Generator ??? Зарание,спасибо!

[RapMan]

Здравствуйте, у меня следующий вопрос:
Я создал дополнительную форму с одним edit-ом

[Run]
FileName: {app}\install.exe; Parameters: Edit.Text; Flags: waituntilterminated

[code]
var
Edit: TNewEdit;

почему в install.exe в параметр приходит текст "Edit.Text", а не текст с поля edit?

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

[Duality]

Добрый день, помогите добавить опцию в скрипт Inno. Есть скрипт, в нем есть выбор компонентов (1,2,3,4 - все их можно выбрать как вместе так и отдельно, так же можно отключить все), так вот - нужно чтобы при условии если НЕ выбран НИ один компонент - установщик не давал продолжить установку. т.е. обязательно должно что то быть выбрано....

[serg aka lain]

нужно чтобы при условии если НЕ выбран НИ один компонент - установщик не давал продолжить установку. т.е. обязательно должно что то быть выбрано.... »

Вот так

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[Components]
Name: "main"; Description: "Main Files"; Types: full compact custom;
Name: "help"; Description: "Help Files"; Types: full
Name: "help\english"; Description: "English"; Types: full
Name: "help\dutch"; Description: "Dutch"; Types: full

[code]
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  if WizardSelectedComponents(False) = '' then
  begin
    MsgBox('Ни один из компонентов не выбран!', mbInformation, MB_OK);
    Result := False;
  end;
end;