[Code] var Names: TArrayOfString; Value: TArrayOfString; Page: TInputOptionWizardPage; procedure InitializeWizard(); var I: Integer; S: String; begin Page := CreateInputOptionPage(wpWelcome, 'Выберите компоненты', 'Какие компоненты хотите установить?', 'Выберите необходимые компоненты и нажмите далее.', False, True); if RegGetValueNames(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Themes', Names) then begin SetArrayLength(Value,GetArrayLength(Names)); for I := 0 to GetArrayLength(Names)-1 do begin RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Themes', Names[I], Value[I]); Page.CheckListBox.AddCheckBox(Names[I], Value[I], 0, True, True, False, False, nil); end; end else begin MsgBox('ошибка', mbInformation, MB_OK); end; end; |