title: Get radio button value [INNO SETUP]
body: <p>I am trying to create a new window at Inno Setup. In this window :</p>
  
  <ul>
  <li>There should be 5 radio button</li>
  <li>User must select only one of this choice</li>
  <li>When the user click the next button I have to get and save the value of the radio button (on somewhere ?) and give this value to the batch file(which will run) with parameter</li>
  <li>I think I should do some action in the function of NextButtonClick but I cannot figure out how can I reach the value of radio buttons and save. </li>
  </ul>
  
  <p>Any help is appreciated.</p>
  
  <p>The Screenshot of that window : </p>
  
  <p><img src="https://i.stack.imgur.com/D5iZB.png" alt="enter image description here"></p>
  
  <p>So now on, my code is like below : </p>
  
  <pre><code>    #define MyAppName "CDV  Client"
      #define MyAppVersion "3.6.1 build 2"
      #define MyAppPublisher " CDV"
      #define MyAppURL "https://example-cm-1"
      #define MyAppExeName "example.exe"
  
  
      [Setup]
      AlwaysUsePersonalGroup=true
      ; NOTE: The value of AppId uniquely identifies this application.
      ; Do not use the same AppId value in installers for other applications.
      ; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
      AppID={{7C9325AD-6818-42CA-839E}
      AppName={#MyAppName}
      AppVersion={#MyAppVersion}
      ;AppVerName={#MyAppName} {#MyAppVersion}
      AppPublisher={#MyAppPublisher}
      AppPublisherURL={#MyAppURL}
      AppSupportURL={#MyAppURL}
      AppUpdatesURL={#MyAppURL}
      DefaultDirName={code:DriveLetter}:\Tool\CDVClient
      DefaultGroupName=Ser
      AllowNoIcons=true
      OutputBaseFilename=CDVClient_setup
      Compression=lzma/Max
      SolidCompression=true
      SetupLogging=true
      PrivilegesRequired=none
      DirExistsWarning=yes
      AlwaysShowDirOnReadyPage=true
      AlwaysShowGroupOnReadyPage=true
  
      [Code]
      function DriveLetter(Param: String): String;
      begin
        if DirExists('d:\') then
          Result := 'D'
        else if DirExists('e:\') then
          Result := 'E'
        else
          Result := 'C'
      end;
  
      var
        CDVRadioButton: TNewRadioButton;
        ISCRadioButton: TNewRadioButton;
        TestRadioButton: TNewRadioButton;
        Test2RadioButton: TNewRadioButton; 
        Test3RadioButton: TNewRadioButton;  
        lblBlobFileFolder: TLabel;
  
      procedure InitializeWizard;
      var  
        LabelFolder: TLabel;  
        MainPage: TWizardPage;  
        FolderToInstall: TNewEdit;  
  
      begin
        MainPage := CreateCustomPage(wpWelcome, 'Deneme', 'Deneme2');
        LabelFolder := TLabel.Create(MainPage);
        LabelFolder.Parent := WizardForm;
        LabelFolder.Top := 168;
        LabelFolder.Left := 6;
        LabelFolder.Caption := 'Directory:'
  
        lblBlobFileFolder :=  TLabel.Create(MainPage);
        lblBlobFileFolder.Parent := MainPage.Surface;
        lblBlobFileFolder.Top := LabelFolder.Top - 160;
        lblBlobFileFolder.Left := LabelFolder.Left;
        lblBlobFileFolder.Width := LabelFolder.Width * 5;
        lblBlobFileFolder.Caption := 'Please select the convenient extension ';
  
        CDVRadioButton := TNewRadioButton.Create(MainPage);
        CDVRadioButton.Parent := MainPage.Surface;
        CDVRadioButton.Top := LabelFolder.Top - 120;
        CDVRadioButton.Left := LabelFolder.Left;
        CDVRadioButton.Width := LabelFolder.Width * 5;
        CDVRadioButton.Caption := 'CDV';
        CDVRadioButton.Checked := true;
  
        ISCRadioButton := TNewRadioButton.Create(MainPage);
        ISCRadioButton.Parent := MainPage.Surface;
        ISCRadioButton.Top := LabelFolder.Top - 80;
        ISCRadioButton.Left := LabelFolder.Left;
        ISCRadioButton.Width := LabelFolder.Width * 5;
        ISCRadioButton.Caption := 'ISC';
  
        TestRadioButton := TNewRadioButton.Create(MainPage);
        TestRadioButton.Parent := MainPage.Surface;
        TestRadioButton.Top := LabelFolder.Top - 40;
        TestRadioButton.Left := LabelFolder.Left;
        TestRadioButton.Width := LabelFolder.Width * 5;
        TestRadioButton.Caption := 'Test1';
  
        Test2RadioButton := TNewRadioButton.Create(MainPage);
        Test2RadioButton.Parent := MainPage.Surface;
        Test2RadioButton.Top := LabelFolder.Top ;
        Test2RadioButton.Left := LabelFolder.Left;
        Test2RadioButton.Width := LabelFolder.Width * 5;
        Test2RadioButton.Caption := 'Test2';
  
        Test3RadioButton := TNewRadioButton.Create(MainPage);
        Test3RadioButton.Parent := MainPage.Surface;
        Test3RadioButton.Top := LabelFolder.Top + 40;
        Test3RadioButton.Left := LabelFolder.Left;
        Test3RadioButton.Width := LabelFolder.Width * 5;
        Test3RadioButton.Caption := 'Test3';
      end;
  function NextButtonClick(CurPageID: Integer): Boolean;
  begin
  // I should do something in here but what ? :/
  end;
  
      [Languages]
      Name: "english"; MessagesFile: "compiler:Default.isl"
  
      [Tasks]
      Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"
      Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; OnlyBelowVersion: 0,6.1
  
      [Files]
      ; add recursesubdirs
      Source: "C:\Program Files\Inno Setup 5\Examples\batu.bat"; DestDir: "{app}"; Flags:  overwritereadonly recursesubdirs
      ; NOTE: Don't use "Flags: ignoreversion" on any shared system files
  
      [Icons]
      Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
      Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"
      Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
      Name: "{userdesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
      Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
  
      [Run]
      Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&amp;", "&amp;&amp;")}}"; Flags: nowait postinstall skipifsilent
  </code></pre>