[Dodakaedr]

тогда у меня пойдет, а у других людей будет писать World of Tanks не найден

Тогда сделайте так:

Скрытый текст

Код:

[Setup]
DefaultDirName={code:SetInstDir}

[Code]
function SetInstDir(const lpResult: String): String;
begin
    RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1\', 'InstallLocation',  lpResult);
    if lpResult <> '' then Result := RemoveBackslash(lpResult) else Result := ExpandConstant('{pf}\');
end;

function InitializeSetup(): Boolean;
begin
if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
MsgBox('Игра World_of_Tanks не найдена! Укажите путь к папке с игрой вручную!', mbinformation, mb_ok);
Result:=True;
end;

создает дополнительную страницу с чебоксами и радиобутанами »

Кастомная страница с кнопками

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
r1, r2: TNewRadioButton;
Page: TWizardPage;
But1, But2: TNewCheckBox;

procedure InitializeWizard();
begin
 Page := CreateCustomPage(wpSelectTasks, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');

r1 := TNewRadioButton.Create(WizardForm);
  with r1 do
  begin
    Parent := Page.Surface;
    SetBounds(ScaleX(20), ScaleY(20), ScaleX(100), ScaleY(15));
    Caption := 'Радиокнопка 1';
    Checked := True;
  end;

r2 := TNewRadioButton.Create(WizardForm);
  with r2 do
  begin
    Parent := Page.Surface;
    SetBounds(ScaleX(20), ScaleY(50), ScaleX(100), ScaleY(15));
    Caption := 'Радиокнопка 2';
  end;

But1 := TNewCheckBox.Create(WizardForm);
  with But1 do
  begin
    Parent := Page.Surface;
    SetBounds(ScaleX(20), ScaleY(80), ScaleX(100), ScaleY(15));
    Caption := 'Кнопка 1';
  end;

But1 := TNewCheckBox.Create(WizardForm);
  with But1 do
  begin
    Parent := Page.Surface;
    SetBounds(ScaleX(20), ScaleY(110), ScaleX(100), ScaleY(15));
    Caption := 'Кнопка 2';
    Checked := True;
  end;

end;

P.S. Larkod, если игра официальная, то не будет.

[saurn]

тогда у меня пойдет, а у других людей будет писать World of Tanks не найден »

AppId игры будет одинаковым на любой машине.

-----------------------------------------------------------------------------------------------------------------

скрипт который создает дополнительную страницу с чебоксами и радиобутанами . »

Кастомная страница с кнопками »

Добавлю еще такой вариант:

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

Код:

AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=...


[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Check: IsChecked( 0 );
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Check: IsChecked( 1 );
Source: compiler:Examples\Readme.txt; DestDir: {app}; Flags: isreadme; Check: IsChecked( 2 );


[Code]
var
    TasksPage: TInputOptionWizardPage;


function IsChecked( const nIndex: Integer ): Boolean;
begin
    Result := TasksPage.CheckListBox.Checked[nIndex];
end;


function CreateTasksPage( const nPageId: Integer ): TInputOptionWizardPage;
begin
    TasksPage := CreateInputOptionPage( nPageId, 'Заголовок', 'Подзаголовок', 'Текст', False, False );

    with TasksPage do
    begin
        Add( 'Задача 1' );
        Add( 'Задача 2' );
        Add( 'Задача 3' );

        AddEx( 'Задача 4', 0, False );
          AddEx( 'Радио 1', 1, True );
          AddEx( 'Радио 2', 1, True );
    end;

    Result := TasksPage.ID;
end;

  
procedure InitializeWizard;
begin
    CreateTasksPage( wpWelcome );
end;

[Larkod]

Dodakaedr, а нельзя сделать чтобы путь сам прописывался без окон всплывающих Укажите путь сам
saurn, может быть, но в данном коде писало бы так Танки не найдены

[Painkiller]

saurn , твой вариант я и искал . Вот только бы пример не помешал как привязать чебокс и радиобокс к действиям ???

[Dodakaedr]

saurn, А как изначально отмеченным сделать? Разобрался.
Larkod, удалите

Код:

if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
MsgBox('Игра World_of_Tanks не найдена! Укажите путь к папке с игрой вручную!', mbinformation, mb_ok);

как привязать чебокс и радиобокс к действиям ??? »

Посмотрите на

Код:

function IsChecked( const nIndex: Integer ): Boolean;
begin
    Result := TasksPage.CheckListBox.Checked[nIndex];
end;

[Painkiller]

Dodakaedr ,saurn , все понял, сразу не заметил

[Larkod]

Есть еще предложения?

[saurn]

но в данном коде писало бы так Танки не найдены »

Если указан оригинальный AppId, то нет.

а нельзя сделать чтобы путь сам прописывался без окон всплывающих Укажите путь сам »

Скрытый текст

[code]

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={code:DefaultInstallDir}
OutputDir=...


[Code]
function DefaultInstallDir( const szResult: String ): String;
begin
    RegQueryStringValue( HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', szResult );
    if ( szResult <> '' ) then
      Result := RemoveBackslash( szResult ) else Result := ExpandConstant( '{pf}\My Program' );
end;

-------------------------------------------------------------------------------

Вот только бы пример не помешал как привязать чебокс и радиобокс к действиям ??? »

Булевая функция IsChecked возвращает True, если отмечен чекбокс, номер которого указан во входной константе nIndex, нумерация идет с нуля:
Для секций вне кода:

Код:

Check: IsChecked( 0 );

Для секции [code]:

Код:

if IsChecked( 0 ) then 
...

---------------------------------------------------------------------

А как изначально отмеченным сделать? »

Скрытый текст

Код:

with TasksPage do
    begin
        Add( 'Задача 1' );
        Add( 'Задача 2' );
        Add( 'Задача 3' );

        AddEx( 'Задача 4', 0, False );
          AddEx( 'Радио 1', 1, True );
          AddEx( 'Радио 2', 1, True );

        Values[2] := True;  //отмечен контрол номер два
    end;

[Larkod]

saurn, без изменений
вот мой скрипт https://docs.google.com/file/d/0B7Ym...R0T2cyWHM/edit

[saurn]

без изменений »

Напортачил с функцией. Обновил пример постом выше, теперь будет работать, только ключ реестра укажите правильный.