[MarkusEVO]

Ну вобщем вот код отвечающий з эту страничку в инстале:

Код:

////////////////////// SelectTasksPade //////////////////////

  SelectTasksPage := CreateCustomPage(wpSelectProgramGroup, ExpandConstant('{cm:TasksName}'), ExpandConstant('{cm:TasksDescription}'));
  SelectTasksLabel := TLabel.Create(WizardForm);
  with SelectTasksLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(120), ScaleY(250), ScaleX(600), ScaleY(50));
    WordWrap:= True;
    Transparent:=True;
    Font.Name:= 'Georgia'            
    Font.Size:= 10;
    Font.Color:=$FFFFFF;
    Font.Style:=[fsBold, fsItalic];
    Caption:= ExpandConstant('{cm:SelectTasksLabel}');
    Parent := WizardForm;
  end;

  DesktopCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(303),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
  BtnSetEvent(DesktopCheck,BtnClickEventID,WrapBtnCallback(@DesktopClick,1));
  BtnSetEvent(DesktopCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
  BtnSetCursor(DesktopCheck,GetSysCursorHandle(32649));
  
  DesktopLabel := TLabel.Create(WizardForm);
  with DesktopLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(115), ScaleY(310), ScaleX(265), ScaleY(17));
    OnClick:= @DesktopLabelClick;
    Cursor:= CrHand;
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=$FFFFFF;
    Font.Style:=[fsBold,fsItalic];
    Caption := ExpandConstant('{cm:Desktop}');
    Parent := WizardForm;
  end;
  
  QuickLaunchCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(333),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
  BtnSetEvent(QuickLaunchCheck,BtnClickEventID,WrapBtnCallback(@QuickLaunchClick,1));
  BtnSetEvent(QuickLaunchCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
  BtnSetCursor(QuickLaunchCheck,GetSysCursorHandle(32649));

  QuickLaunchLabel := TLabel.Create(WizardForm);
  with QuickLaunchLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(115), ScaleY(340), ScaleX(345), ScaleY(17));
    OnClick:= @QuickLaunchLabelClick;
    Cursor:= CrHand;
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=$FFFFFF;
    Font.Style:=[fsBold,fsItalic];
    Caption := ExpandConstant('{cm:QuickLaunch}');
    Parent := WizardForm;
  end;

  SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
  BtnSetEvent(SystimeBitx32Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx32Click,1));
  BtnSetEvent(SystimeBitx32Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
  BtnSetCursor(SystimeBitx32Check,GetSysCursorHandle(32649));

  SystimeBitx32Label := TLabel.Create(WizardForm);
  with SystimeBitx32Label do begin
    AutoSize:=False;
    SetBounds(ScaleX(115), ScaleY(370), ScaleX(155), ScaleY(17));
    OnClick:= @SystimeBitx32LabelClick;
    Cursor:= CrHand;
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=$FFFFFF;
    Font.Style:=[fsBold,fsItalic];
    Caption := ExpandConstant('{cm:SystimeBitx32}');
    Parent := WizardForm;
  end;

  SystimeBitx64Check:=BtnCreate(WizardForm.Handle,ScaleX(285),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
  BtnSetEvent(SystimeBitx64Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx64Click,1));
  BtnSetEvent(SystimeBitx64Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
  BtnSetCursor(SystimeBitx64Check,GetSysCursorHandle(32649));

  SystimeBitx64Label := TLabel.Create(WizardForm);
  with SystimeBitx64Label do begin
    AutoSize:=False;
    SetBounds(ScaleX(325), ScaleY(370), ScaleX(155), ScaleY(17));
    OnClick:= @SystimeBitx64LabelClick;
    Cursor:= CrHand;
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=$FFFFFF;
    Font.Style:=[fsBold,fsItalic];
    Caption := ExpandConstant('{cm:SystimeBitx64}');
    Parent := WizardForm;
  end;

  LanguageLabel := TLabel.Create(WizardForm);
  with LanguageLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(115), ScaleY(410), ScaleX(400), ScaleY(17));
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=clLime;
    Font.Style:=[fsBold, fsItalic];
    Caption:= ExpandConstant('{cm:Language}');
    Parent := WizardForm;
  end;

  LngNameLbl := TLabel.Create(WizardForm);
  with LngNameLbl do begin
    AutoSize:=False;
    SetBounds(ScaleX(300), ScaleY(410), ScaleX(100), ScaleY(17));
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=clLime;
    Font.Style:=[fsBold, fsItalic];
    Parent := WizardForm;
  end;

  LanguageButton[1]:=BtnCreate(WizardForm.Handle,ScaleX(395),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\us.png'),0,True);
  BtnSetEvent(LanguageButton[1],BtnClickEventID,WrapBtnCallback(@SelectLanguage,1));
  BtnSetEvent(LanguageButton[1],BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
  BtnSetCursor(LanguageButton[1],GetSysCursorHandle(32649));

  BtnSetChecked(LanguageButton[1],True);

////////////////////// SelectTasksPade //////////////////////

Вот не большой пример в инстале при выборе создания папке в меню пуск:

и если нажать не создавать получается, что кнопка обзор и строка пути, она темнеет и становится не доступной: