[Inno Setup] ajouter une page avec des checkbox

Version imprimable

bonjour , je n'ai jamais fait de visual basic mais j'aimerais pouvoir modifier l'assistant d'installation.

J'ai remarqué le code suivant:
[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 var UserPage: TInputQueryWizardPage; KeyPage: TInputQueryWizardPage; ProgressPage: TOutputProgressWizardPage; DataDirPage: TInputDirWizardPage; ResultCode: Integer; FinishedInstall: Boolean; JustFinishedInstall: Boolean; User: String; Pwd: String; YesInsert: String; procedure InitializeWizard; begin { Create the pages } UserPage := CreateInputQueryPage(wpInstalling, 'Personal Information', 'Who are you?', 'Entrer votre login et mot de passe, puis cliquer sur suivant'); UserPage.Add('Login:', False); UserPage.Add('Mot de passe:', True); end;
J'aimerais plutot ajouter à la fin de l'installation , le choix à l'utilisateur de faire démarrer le programme en même temps que Windows.
Actuellement , je ne lui laisse pas le choix grâce à

[Registry]
Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"; ValueType: string; ValueName: "freeconnection"; ValueData: "{app}/freeconnection.exe"; Flags: uninsdeletevalue

merci

28/05/2007, 01h56
cotede2

comment creer des check box et les analyser?
merci.

J'ai trouvé un code sur un site turc mais ca s'affiche mal:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
var
  Page : TWizardPage;
  Windows : TCheckBox;
procedure RPage;
begin
  Page := CreateCustomPage(wpInstalling, '','');
  Windows := TCheckBox.Create(Page);
  Windows.Top := ScaleY(100);
  Windows.Width := Page.SurFaceWidth div 2 + ScaleX(100);
  Windows.Left := page.SurfaceWidth - (Windows.Width+Windows.Width/2) -  ScaleX(50) ;
  Windows.Caption := 'Démarrer le programme en même temps que Windows';
  Windows.Parent := Page.surface;
 
end;
 
function NextButtonClick(CurPageID: Integer): Boolean;
begin
 
  case Curpageid of
    100 :
      begin
        if Windows .State= cbUnchecked then msgbox(' Nincs pipa!',mbError, MB_OK);
        if Windows .State= cbchecked then msgbox(' Van pipa!',mbError, MB_OK);
       end;
  end;
  result := True;
end;
 
procedure InitializeWizard();
begin
   RPage;
end;

28/05/2007, 22h05
ThierryAIM

Lorsque tu installes Inno Setup, il y a un tas d'exemples dans "C:\Program Files\Inno Setup 5\Examples"

dont un qui s'appelle CodeClasses.iss

tu les as vu ?

merci ça m'a bien servi , le formulaire s'affiche bien.
Maintenant j'aimerais pouvoir ajouter ou non une valeur dans la base de registre si la box a été checked.

[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 24 25 26 27 28 29 30 31 32 33 34 35 36 var Page : TWizardPage; Windows : TCheckBox; procedure RPage; begin Page := CreateCustomPage(wpInstalling, 'Personnalisation',''); Windows := TCheckBox.Create(Page); Windows.Top := ScaleY(8); Windows.Width := Page.SurfaceWidth; Windows.Height := ScaleY(17); Windows.Caption := 'Démarrer le programme en même temps que Windows'; Windows.Checked := True; Windows.Parent := Page.Surface; end; function NextButtonClick(CurPageID: Integer): Boolean; begin case Curpageid of 100 : begin if Windows .State= cbUnchecked then msgbox('unchecked',mbError, MB_OK); if Windows .State= cbchecked then msgbox('checked',mbError, MB_OK); end; end; result := True; end; procedure InitializeWizard(); begin RPage; end;
Pour l'instant j'affiche un messagebox selon que l'on ait checked ou pas.
Code:

1 2 3 begin if Windows .State= cbUnchecked then msgbox('unchecked',mbError, MB_OK); if Windows .State= cbchecked then msgbox('checked',mbError, MB_OK);
J'aimerais ajouter ou pas une clé dans la registre à la place de mon messagebox.

La clé est la suivante :

Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"; ValueType: string; ValueName: "freeconnection"; ValueData: "{app}/freeconnection.exe"; Flags: uninsdeletevalue

Merci!