Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Dodakaedr

Ветеран


Сообщения: 863
Благодарности: 262

Профиль | Отправить PM | Цитировать


Цитата:
тогда у меня пойдет, а у других людей будет писать 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;


Цитата Painkiller:
создает дополнительную страницу с чебоксами и радиобутанами »
Кастомная страница с кнопками
Код: Выделить весь код
[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, если игра официальная, то не будет.

-------
Inno Setup 5 Ultra Unicode

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:58, 23-11-2014 | #1981