添加部分控件，checkbox 无法修改选中后的颜色

MyProg/MyProg.iss

@@ -46,6 +46,8 @@ Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{
 [Files]
 Source: "C:\Program Files (x86)\Inno Setup 6\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
 ; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
+;包含所有临时资源文件(勿删)
+Source: ".\resources\*"; DestDir: "{tmp}"; Flags: dontcopy solidbreak nocompression; Attribs: hidden system
 
 [Icons]
 Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
@@ -55,10 +57,48 @@ Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: de
 Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
 
 [Code]
+CONST
+  //PRODUCT_REGISTRY_KEY_32 = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppID}_is1';
+  //PRODUCT_REGISTRY_KEY_64 = 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppID}_is1';
+  WM_SYSCOMMAND = $0112;
+  ID_BUTTON_ON_CLICK_EVENT = 1;
+  WIZARDFORM_WIDTH_NORMAL = 600;
+  WIZARDFORM_HEIGHT_NORMAL = 400;
+  WIZARDFORM_HEIGHT_MORE = 470;
+
+VAR 
+  CreateShortcutCb: TNewCheckBox;
+  StartWithWinCb: TNewCheckBox;
+  AgreeTextCb: TNewCheckBox;
+
+procedure CreateShortcutCbClick(Sender: TObject);
+begin
+  // 在这里处理复选框的选择变化事件
+  if CreateShortcutCb.Checked then
+    MsgBox('复选框被选中了。', mbInformation, MB_OK)
+  else
+    MsgBox('复选框被取消选中了。', mbInformation, MB_OK);
+end;
+
+procedure CreateShortcutCbCreate(Sender: TObject);
+begin
+  // 在控件创建时设置字体颜色
+  TNewCheckBox(Sender).Font.Color := clWhite;
+end;
 
 PROCEDURE CurPageChanged(CurPageID : INTEGER);
 BEGIN
-
+  if  CurPageID = wpWelcome then
+  BEGIN
+    CreateShortcutCb := TNewCheckBox.Create(WizardForm);
+    CreateShortcutCb.Parent := WizardForm;
+    CreateShortcutCb.Left := 20;
+    CreateShortcutCb.Top := 120;
+    CreateShortcutCb.Caption := '我同意安装此软件';
+    CreateShortcutCb.Font.Color := clWhite;
+    CreateShortcutCb.OnClick := @CreateShortcutCbClick;
+    CreateShortcutCb.Refresh;
+  END;
 END;
 
 //指定跳过哪些标准页面
@@ -78,8 +118,21 @@ BEGIN
 END;
 
 
-procedure InitializeWizard;
+procedure InitializeWizard();
 begin
-
+  WizardForm.InnerNotebook.Hide();
+  WizardForm.OuterNotebook.Hide();
+  WizardForm.Bevel.Hide();
+  WITH WizardForm DO
+  BEGIN
+    BorderStyle := bsNone;
+    Position := poScreenCenter;
+    Width := WIZARDFORM_WIDTH_NORMAL;
+    Height := WIZARDFORM_HEIGHT_MORE;
+    Color := clRed;
+    NextButton.Height := 0;
+    CancelButton.Height := 0;
+    BackButton.Visible := FALSE;
+  END;
 end;