[saurn]

возможно создать check для секции Run »

Самопальный чекбокс и чековая функция:

читать дальше »

Код:

[Code]
var
  CheckBoxPin: TCheckBox;


function CheckPin(): Boolean;
begin
    if CheckBoxPin <> nil then
      Result := CheckBoxPin.Checked;
end;


procedure CheckBoxPinCreate();
begin
    CheckBoxPin := nil;

    if (GetWindowsVersion >= $06010000) then
      begin
          CheckBoxPin := TCheckBox.Create(nil);
          with CheckBoxPin do
          begin
              Parent := WizardForm.SelectDirPage;
              SetBounds(WizardForm.DirEdit.Left, WizardForm.DiskSpaceLabel.Top div 2, WizardForm.DirEdit.Width, ScaleY(17))
              Caption := 'Закрепить ярлык на панели задач Windows';
          end;
      end;
end;


procedure InitializeWizard();
begin
    CheckBoxPinCreate();
end;


procedure CurPageChanged(const CurPageID: Integer); //Debug
begin
    case CurPageID of
        10: if CheckPin <> False then WizardForm.Caption := 'True';
    end;
end;

Можно и при помощи тасков.