Question

我正在尝试在Inno Setup创建一个新窗口。在这个窗口中：

应该有5个单选按钮
用户必须只选择此选项之一
当用户点击下一个按钮时，我必须获取并保存单选按钮的值（在某处？）并将此值提供给批处理文件（将运行）并带参数
我想我应该在NextButtonClick的功能中做一些动作，但我无法弄清楚如何达到单选按钮的值并保存。

感谢任何帮助。

该窗口的屏幕截图：

enter image description here

现在，我的代码如下：

    #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, "&", "&&")}}"; Flags: nowait postinstall skipifsilent

Answer 1

您可以查看单选按钮的“已检查”属性，以查看选择了哪一个：

if (CDVRadioButton.Checked) then
begin
   Do stuff...
end
else if (ISCRadioButton.Checked) then
begin
   Do some other stuff...
end;

HTH

获取单选按钮值[INNO SETUP]

1 个答案: