Inno Setup : Valeur ChekBox

Bonjour,

Je dois réaliser un programme pour mettre à jour un nouveau logiciel, en copiant un fichier venant de leur ancien logiciel (choix entre 2 logiciels) vers le nouveau.
Dans ce programme j'ai plusieurs étapes :
- Demander le chemin du nouveau progr
- Une liste de 3 checkbox : Logiciel1, Logiciel2 et Aucun
- Si c'est la checkbox de logiciel1 ou Logiciel2 qui est cochée, alors à la fenêtre suivante je dois leur demander le chemin de leur ancien logiciel.

J'ai déjà commencé un script pour les checkbox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure CreateTheWizardPages; begin Page := CreateCustomPage(wpSelectDir, 'Ancien Logiciel', 'Choisissez ');   CheckListBox := TNewCheckListBox.Create(Page); CheckListBox.Width := Page.SurfaceWidth; CheckListBox.Height := ScaleY(97); CheckListBox.MinItemHeight := WizardForm.TasksList.MinItemHeight; CheckListBox.Flat := True; CheckListBox.Parent := Page.Surface; CheckListBox.ShowLines := False; CheckListBox.WantTabs := True; CheckListBox.BorderStyle := bsNone; CheckListBox.ParentColor := True; CheckListBox.AddRadioButton('Logiciel1', '', 0, True, True, nil); CheckListBox.AddRadioButton('Logiciel2', '', 0, False, True, nil); CheckListBox.AddRadioButton('Aucun', '', 0, False, True, nil); end;   procedure InitializeWizard(); begin CreateTheWizardPages; end;

---

J'ai également créé un code pour la demande du chemin d'installation de l'ancien logiciel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var UserPage: TInputDirWizardPage; procedure InitializeWizard; begin UserPage := CreateInputDirPage(wpWelcome, 'Configuration', 'Chemin ancien logiciel ', 'Merci de renseigner le chemin d installation du logiciel 1. Puis appuyer sur suivant.',False, 'New Folder'); UserPage.Add('Chemin d installation Logiciel 1:'); UserPage.values[0] := 'C:\MyOldProgr' end;   function AuthForm_NextButtonClick(Page: TWizardPage): Boolean; begin Result := True; end;   function GetUserLog(Param: String): string; begin result := UserPage.Values[0]; end;

---

Je n'arrive pas à faire le lien entre mes 2 codes. Si la box de "Logiciel 1" alors je voudrais pouvoir lancer mon 2ème code.

J'espère que c'est clair, c'est un peu compliqué à expliquer.

Merci d'avance pour l'aide

Si tu donnais le script entier tout du moins la partie code sa serait plus façile. Tu devra peut-être ajuster tes déclarations de variable.

dans function ShouldSkipPage(PageID: Integer): Boolean; tu test ta checkbox et tu passe ou non ta page.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

case PageID of UserPage.ID: begin if CheckListBox.ItemEnabled[1] then Result := True else Result := False; end; else Result := True; end;

---

Pour l'instant je n'ai que ça comme code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure CreateTheWizardPages; begin Page := CreateCustomPage(wpSelectDir, 'Ancien Logiciel', 'Choisissez ');   CheckListBox := TNewCheckListBox.Create(Page); CheckListBox.Width := Page.SurfaceWidth; CheckListBox.Height := ScaleY(97); CheckListBox.MinItemHeight := WizardForm.TasksList.MinItemHeight; CheckListBox.Flat := True; CheckListBox.Parent := Page.Surface; CheckListBox.ShowLines := False; CheckListBox.WantTabs := True; CheckListBox.BorderStyle := bsNone; CheckListBox.ParentColor := True; CheckListBox.AddRadioButton('Logiciel 1', '', 0, True, True, nil); CheckListBox.AddRadioButton('Logiciel 2', '', 0, False, True, nil); CheckListBox.AddRadioButton('Aucun', '', 0, False, True, nil); end;   procedure InitializeWizard(); begin CreateTheWizardPages; end;

---

Donc j'ai bien les 3 boutons qui s'affichent dans ma fenêtre. Mais je ne sais pas comment récupérer quel bouton est coché.
Et si c'est le bouton Logiciel 1 ou Logiciel 2 qui est coché alors dans la fenêtre suivante je dois avoir un textbox avec un bouton parcourir pour que l'utilisateur renseigne le chemin.

J'espère que c'est plus clair

Le code que j'ai mis permet sa.
Tu change sa, si checkbox 0 coché on passe fenêtre sélection chemin sinon elle est affiché

Code:

---

1 2 3 4

if CheckListBox.ItemEnabled[2] then Result := False else Result := True;

---

sinon pour ta page chemin tu la crée après l'autre
UserPage := CreateInputDirPage(Page.ID,

ouiouioui, ca serait pas plutôt

Code:

---

if CheckListBox.Checked[2] then

---

Effectivement :lol: j'ai corrigé.