[ZVSRus]

OldGamer

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

Код:

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

[Files]
Source: "compiler:Examples\MyProg.exe";     DestDir: "{app}"; Check: PortableCheck; Flags: ignoreversion
Source: "compiler:Examples\MyProg-x64.exe"; DestDir: "{app}"; Check: InstallerCheck; Flags: ignoreversion

[UninstallDelete]
 Type: filesandordirs; Name: "{localappdata}\папка на удаление";

[Code_]
var
  ComponentPage : TWizardPage;
  Installer     : TNewRadioButton;
  Portable      : TNewRadioButton;

function InstallerCheck: Boolean;           
 begin                                      
   Result := Installer.Checked;
 end;                                       

function PortableCheck: Boolean;           
 begin                                      
   Result := Portable.Checked;
 end;                                       

procedure InitializeWizard();
begin
  ComponentPage := CreateCustomPage(wpWelcome, 'Выбор типа установки', 'Выберите тип установки');

  { Installer }
  Installer := TNewRadioButton.Create(WizardForm);
  with Installer do
  begin
    Parent := ComponentPage.Surface;
    SetBounds(ScaleX(0),ScaleY(15),ScaleX(100),ScaleY(17));
    Caption := 'Установка';
    Checked := True;
  end;

  { Portable }
  Portable := TNewRadioButton.Create(WizardForm);
  with Portable do
  begin
    Parent := ComponentPage.Surface;
    SetBounds(ScaleX(0),ScaleY(45),ScaleX(100),ScaleY(17));
    Caption := 'Распаковка';
  end;
end;