[Serega]

Помогите пожалуйста исску доработать »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code]
var
  CheckPage: TInputOptionWizardPage;
  
procedure OnClick(Sender: TObject);
begin
  case TNewStaticText(Sender).Tag of
    0: MsgBox('Была нажата Гиперссылка 1', mbInformation, MB_OK);
    1: MsgBox('Была нажата Гиперссылка 2', mbInformation, MB_OK);
  end;
end;

procedure InitializeWizard;
var
  pnl: TPanel;
  i, t: Integer;
begin
  // создаём страницу
  CheckPage:= CreateInputOptionPage(wpInstalling,
              'Realore Toolbar Installation',
              'Thank you for choosing to install GAMENAME.',
              'After installation of the application, you can also get the official Realore toolbar. '+
              'The toolbar gives you instant access to cool tools like radio, weather, e-mail ' +
              'notifier and more.', False, False);

  // добавляем значения
  CheckPage.Add('Instal Toolbar' + #13 + '(рекомендуется)');
  CheckPage.Add('Сделать сайт *** поиском по умолчанию;');
  CheckPage.Add('Сделать сайт *** домашней страницей;');
  CheckPage.SelectedValueIndex:= 0; // ставим галку на первый чебокс
  // создаём панель, для отображения рисунка
  pnl:= TPanel.Create(CheckPage);
  with pnl do
    begin
      SetBounds(110, 47, 310, 35);
      Parent:= CheckPage.Surface;
      // создаём сам рисунок
      with TBitmapImage.Create(pnl) do
        begin
          SetBounds(0, 0, 310, 35);
          Bitmap.LoadFromFile(ExpandConstant('{pf}\Inno Setup 5\WizModernSmallImage.bmp'));
          Stretch:= True;
          Parent:= pnl;
        end;
    end;
  CheckPage.Surface.ParentBackground:= True;
  // создаём интернет ссылки...
  for i:= 0 to 1 do
    with TNewStaticText.Create(WizardForm) do
      begin
        SetBounds(0, 200 + t, 100, 16);
        Font.Color:= clBlue;
        Cursor:= crHand;
        OnClick:= @OnClick;
        Parent:= CheckPage.Surface;
        Tag:= i;
        case i of
          0: Caption:= 'Гиперссылка 1';
          1: Caption:= 'Гиперссылка 2';
        end;
        t:= 18;
      end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  I: Integer;
begin
  if CurPageID = CheckPage.ID then
    if CheckPage.Values[0] then begin
      Exec(ExpandConstant('{src}\RealoreStudios.exe'),
           '/silent /param2',
           ExpandConstant('{src}'),
           SW_HIDE,
          ewWaitUntilIdle,
          i);
    end;
  Result := True;
end;