[Mailchik]

LagunaFAN,

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

Код:

#define GameName   "My Application"
[Setup]
AppName={#GameName}
AppVersion=1.5
DefaultDirName={pf}\{#GameName}

[Code]
var
 SteamCheckBox : TNewCheckBox;

procedure InitializeWizard;
 begin
  SteamCheckBox := TNewCheckBox.Create(WizardForm);
  with SteamCheckBox do begin
   Parent := WizardForm.WelcomePage;
   SetBounds(ScaleX(170), ScaleY(250), ScaleX(200), ScaleY(20));
   Caption := 'Steam-установка';
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID = wpSelectDir) and (SteamCheckBox.Checked) then begin
   if RegKeyExists(HKLM, 'Software\Valve\Steam') then
    WizardForm.DirEdit.Text := ExpandConstant('{reg:HKLM\Software\Valve\Steam, InstallPath}\steamapps\common\{#GameName}')
    else MsgBox('Steam не установлен', mbInformation, MB_OK);
  end else begin
    WizardForm.DirEdit.Text := ExpandConstant('{pf}\{#GameName}');
  end;
end;