[SatHan]

Ещё кое что. Как заставить NewStaticText1 который в TBevel-е вместо {pf}\Application отображать C:\Program Files\Application?

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

Код:

[Setup]
AppName=Application
AppVersion=1.0
DefaultDirName={pf}\Application
DefaultGroupName=Application
AllowNoIcons=yes
OutputDir=.

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[#Code]
var
  ISCustomPage1: TWizardPage;
  Bevel2: TBevel;
  NewStaticText1: TNewStaticText;
  NewStaticText2: TNewStaticText;

procedure RedesignWizardForm;
begin
  ISCustomPage1 := CreateCustomPage(wpWelcome, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');

  with ISCustomPage1.Surface do
  begin
    Name := 'ISCustomPage1';
  end;

  Bevel2 := TBevel.Create(WizardForm);
  with Bevel2 do
  begin
    Name := 'Bevel2';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(32);
    Top := ScaleY(32);
    Width := ScaleX(346);
    Height := ScaleY(186);
  end;

  NewStaticText1 := TNewStaticText.Create(WizardForm);
  with NewStaticText1 do
  begin
    Name := 'NewStaticText1';
    Parent := ISCustomPage1.Surface;
    Caption := 'Папака установки:';
    Left := ScaleX(56);
    Top := ScaleY(56);
    Width := ScaleX(98);
    Height := ScaleY(14);
  end;

  NewStaticText2 := TNewStaticText.Create(WizardForm);
  with NewStaticText2 do
  begin
    Name := 'NewStaticText2';
    Parent := ISCustomPage1.Surface;
    Caption := '{pf}\Application';
    Left := ScaleX(160);
    Top := ScaleY(56);
    Width := ScaleX(77);
    Height := ScaleY(14);
  end;

  NewStaticText1.TabOrder := 0;
  NewStaticText2.TabOrder := 1;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;