挂钩标准的Inno Setup复选框

CreateInputOptionPage()

TInputOptionWizardPage

TInputOptionWizard

TComponent

TWizardPage

TRadioButton

TCheckBox

TNewCheckListBox

[Setup]
AppName=\'Test Date Script\'
AppVerName=\'Test Date Script\'
DefaultDirName={pf}\\test
[Code]

const
 cCheckBox = false;
 cRadioButton  = true;


var
  Opt : TInputOptionWizardPage; 

function BoolToStr(Value : Boolean) : String; 
begin
  if Value then
    result := \'true\'
  else
    result := \'false\';
end;

procedure ClickEvent(Sender : TObject);
var
 Msg : String;
 I   : Integer;
begin
   // Click Event, allowing inspection of the Values.
    Msg := \'The Following Items are Checked\' +#10#13; 
    Msg := Msg + \'Values[0]=\' + BoolToStr(Opt.Values[0]) +#10#13;
    Msg := Msg + \'Values[1]=\' + BoolToStr(Opt.Values[1]) +#10#13;
    Msg := Msg + \'Values[2]=\' + BoolToStr(Opt.Values[2]);

    MsgBox(Msg,mbInformation,MB_OK);
end;
procedure InitializeWizard();
var
  I : Integer; 
  ControlType : Boolean;
begin
  ControlType := cCheckBox;
  Opt := CreateInputOptionPage(1,\'Caption\',\'Desc\',\'SubCaption\',ControlType, false);
  Opt.Add(\'Test1\');
  Opt.Add(\'Test2\');
  Opt.Add(\'Test3\');

  // Assign the Click Event.
  Opt.CheckListBox.OnClickCheck := @ClickEvent;  
end;

[Setup]
;This allows you to show Lines showing parent / Child Relationships
ShowTasksTreeLines=yes

[Tasks]
;Parent Tasks don\'t use \"\\\"
Name: p1; Description: P1 Test; 
;Child Tasks are named ParentTaskName\\ChildTaskName
;Flag don\'t inheritcheck:Specifies that the task 
;should not automatically become checked when its parent is checked 
Name: p1\\c1; Description: C1 Test; Flags: dontinheritcheck;
Name: p1\\c2; Description: C2 Test; 
;Default behavior is that child must be selected 
;when a parent is selected
;this can be overridden using the:
;doninheritcheck flag and the checkablealone flag.
Name: p2; Description: P2 Test; Flags: checkablealone;
Name: p2\\c1; Description: P2-C1 Test; Flags: dontinheritcheck;
Name: p2\\c2; Description: P2-C2 Test; Flags: dontinheritcheck;