Discussion :

[cotede2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cotede2]

comment creer des check box et les analyser?
merci.

[cotede2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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 ?

[cotede2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!