Inno Setup RadioButtons abfragen?

[CReber]

Ich bin jetzt soweit gekommen, das ich mittels dem Inno Setup Form Designer, eine eigene Gui erstellt habe (Lediglich eine einzelne Page!)

Aber wie zum Teufel kann ich nur bestimmte Dateien, bei einem bestimmten RadioButton installieren Ich schnall irgendwie die Logik nicht, obwohl das sogar schon Delphi ist

[code=delphi]
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.mycompany.com
AppSupportURL=http://www.mycompany.com
AppUpdatesURL=http://www.mycompany.com
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=ISSTest
OutputDir=.

[_ISTool]
EnableISX=true

[Files]
Source: "MYPROG.EXE"; DestDir: "{app}"

Code:

var
  lblInstallArt: TLabel;
  Client: TRadioButton;
  Server: TRadioButton;

{ ScriptDlgPages }

function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;
var
  Next, NextOK: Boolean;
  CurSubPage: Integer;
begin
  { place subpages between 'Welcome'- and 'SelectDir' page }
  if (not BackClicked and (CurPage = wpWelcome)) or (BackClicked and (CurPage = wpSelectDir)) then
  begin
    { find startpage }
    if not BackClicked then
      CurSubPage := 0
    else
      CurSubPage := 1;

    { iterate through all subpages }
    while (CurSubPage >= 0) and (CurSubPage <= 1) and not Terminated do
    begin
      ScriptDlgPageOpen();
      ScriptDlgPageClearCustom();

      { insert subpage }
      case CurSubPage of
        0:  // custompage 1
          begin
            ScriptDlgPageSetCaption('Bitte wählen Sie eine Installationsart');
            ScriptDlgPageSetSubCaption1('Wo wird die Software installiert?');
            ScriptDlgPageSetSubCaption2('');

            { lblInstallArt }
            lblInstallArt := TLabel.Create(WizardForm.ScriptDlgPanel);
            with lblInstallArt do
            begin
              Parent := WizardForm.ScriptDlgPanel;
              Left := 40;
              Top := 48;
              Width := 178;
              Height := 13;
              Caption := 'Bitte wählen Sie eine Installationsart:';
            end;

            { Client }
            Client := TRadioButton.Create(WizardForm.ScriptDlgPanel);
            with Client do
            begin
              Parent := WizardForm.ScriptDlgPanel;
              Left := 112;
              Top := 96;
              Width := 49;
              Height := 17;
              Caption := 'Client';
              Checked := True;
              TabOrder := 0;
              TabStop := True;
            end;

            { Server }
            Server := TRadioButton.Create(WizardForm.ScriptDlgPanel);
            with Server do
            begin
              Parent := WizardForm.ScriptDlgPanel;
              Left := 112;
              Top := 120;
              Width := 57;
              Height := 17;
              Caption := 'Server';
              TabOrder := 1;
            end;


            Next := ScriptDlgPageProcessCustom(nil);
            NextOK := True;
          end;

        1: // custompage n
          begin
            { include other forms here }
          end;
      end;

      { check sub-page navigation }
      if Next then
      begin
        if NextOK then
          CurSubPage := CurSubPage + 1;
      end
      else
        CurSubPage := CurSubPage - 1;
    end;

    { check main-page navigation }
    if not BackClicked then
      Result := Next
    else
      Result := not Next;
    ScriptDlgPageClose(not Result);
  end

  { return default }
  else
    Result := True;
end;

{ NextButtonClick }

function NextButtonClick(CurPage: Integer): Boolean;
begin
  Result := ScriptDlgPages(CurPage, False);
end;

{ BackButtonClick }

function BackButtonClick(CurPage: Integer): Boolean;
begin
  Result := ScriptDlgPages(CurPage, True);
end;

[thklingler]

Da du die Raidobuttons schon Global deffiniert hast brauchst du nur noch eine function schreiben die die Werte Abfragt. Wenn du die function als bollean deffinierst kannst du sie im Berich [files] mit dem parameter check aufrufen.