[inno setup] ajout de page CreateInputDirPage

Version imprimable

bonjour à toutes et tous
je voudrais faire une installation avec inno setup.
je voudrais demander à l'utilisateur de sélectionner un disque dur pour y enregistrer tous les fichiers de de données (2.5Go) qui pourrais etre indépendant du fichier d'installation!
j'ai bien vu des exemples pour insérer une page demandant de sélectionner un répertoire, mais je ne sais comment appeler ce code! le prog d'instal se compile bien mais lors de l'installation je ne vois jamais de demande de répertoire
j'ai repris des bouts de code des exemples[CODE]
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 // Variables Globales var PageParam: TInputDirWizardPage; // Creer les Pages Personnalisées procedure CreateTheWizardPages; begin PageParam := CreateInputDirPage(wpSelectDir, 'Répertoires d''installation', 'Définissez les répertoires d''installation des programmes suivants :', 'Les données seront enregistrées dans les répertoires définis à cette étape : '#13#10#13#10 + 'Cliquer sur "Suivant" pour continuer. Pour définir un répertoire différent, cliquez sur "Parcourir".', False, 'New Folder'); // Ajouter un élément (avec une valeur vide) PageParam.Add('Répertoire d''installation de NumTools'); PageParam.Add('Répertoire d''installation de notepad++'); // Initialiser les valeurs par défaut (optional) PageParam.Values[0] := 'C:\Numtool2'; PageParam.Values[1] := ExpandConstant('{pf}')+'\notepad++'; end;
mais je crois qu'il me manque un bout de code pour appeler cette page

10/02/2011, 07h24
ThierryAIM

http://thierryaim.developpez.com/tut...p/iscode/#LV-1
10/02/2011, 13h59
marco62118

bonjour
merci pour ce lien mais c'est bien de là que viens mes exemples!
mais il me manque ce qui va appeler cette création de page personnalisée! qu'est ce qui fera que lors de l'installation le script déclenchera la création de cette page?
il me faudrait un exemple complet de script qui introduirait cette création de page!
en fait j'ai collé le code de l'exemple cité dans mon script, mais je ne crois pas que ce soit suffisant!
merci encore
10/02/2011, 14h17
marco62118
mille excuse
dans les exemple que tu m'a cité il y a à la fin

"On n'oublie pas de générer la/les page(s) :
[code]
Code:

1 2 3 4 5 6 // Initialisation procedure InitializeWizard(); begin CreateTheWizardPages; end;
mais j'avais mal insérer ce code , je l'avais mis avant la création de la page ce qui me générait un message d'erreur, plus tous les messages d'erreur de syntaxe, car apparement dans le code pour un commentaire il faut " // "
10/02/2011, 17h01
marco62118

J'ai progressé j'arrive bien a créer une page pour demander le répertoire voulu pour l'installation, mais je n'arrive pas à créer ce répertoire, je récupère bien sa valeur mais je ne sais pas ou insérer le CreateDir ? comment faire pour insérer cette commande après seulement l'apparition de la page

dans la fonction d'événement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
function NextButtonClick(CurPageID: Integer): Boolean;
 
begin
  case CurPageID of
    PageParam.ID:
     begin
//------------- ICI--------------
      end;
  end;
 
  Result := True;
end;

Merci ouiouioui pour la correction, j'avais fait un peu vite ;)

10/02/2011, 18h30
ThierryAIM

1 pièce(s) jointe(s)

Pendant que j'y suis, une p'tite question perso à marco62118

Tu veux installer quoi dans numtools2 ???

Parce qu'en détaillant un peu mieux les strings de ton script, ça ressemble très étrangement à un script que j'ai écrit il y a quelques temps !! :mouarf:

Rassure-toi, je n'ai pas de copyright dessus !! :aie:

Si tu le veux complet, cf ci-dessous

bonsoir merci pour ton intérêt.
Non je ne fait pas de copie de ton code , je m'en sers d'exemple!!
en fait je veux que l'utilisateur choisisse un répertoire pour installer des gros fichier. répertoire qui peut être différent de celui d'installation. maintenant mon pb c'est de trouver le répertoire d'installation choisi par l'utilisateur pour le mettre en répertoire par défaut dans ma page perso, mais la création de la page est faite avant que l'utilisateur ai choisi son répertoire d'installation principal . je sais pas si je suis clair
voici mon début de code avec ces erreurs

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
// Variables Globales
var
PageParam: TInputDirWizardPage;
sDataDir: string;
sDirInstal: string;
bResult: boolean;

//var
//  MyProgChecked: Boolean;
//  MyProgCheckResult: Boolean;
//  FinishedInstall: Boolean;

//function InitializeSetup(): Boolean;
//begin
//  Log('InitializeSetup called');
//  Result := MsgBox('InitializeSetup:' #13#13 'Setup is initializing. Do you really want to start setup?', mbConfirmation, MB_YESNO) = idYes;
//  if Result = False then
//    MsgBox('InitializeSetup:' #13#13 'Ok, bye bye.', mbInformation, MB_OK);
//end;


// Creer les Pages Personnalisées
procedure CreateTheWizardPages;
	begin
	PageParam :=CreateInputDirPage(wpSelectDir,
		'Répertoires d''installation',
		'Définissez le répertoire d''installation des Dictionnaires :',
		'Les dictionnaires de définition prennent beaucoup de place! Vous pouvez les installer sur un disque externe ou une clef USB. Les données seront enregistrées dans le répertoire défini à cette étape :'#13#10#13#10 +
		'Cliquer sur "Suivant" pour accepter le répertoire par défaut. Pour définir un répertoire différent, cliquez sur"Parcourir".',
		False,
		'New Folder');

	// Ajouter un élément (avec une valeur vide)
	PageParam.Add('Répertoire d''installation des Dictionnaires de Définition');

	// Initialiser les valeurs par défaut (optional)
	PageParam.Values[0] :={app};//ici le répertoire {app} n'est pas encore renseigné la page n'a pas encore été créé
end;

// Fonctions de retour
function GetDirPath1(Param: String): String;
	begin
		sDataDir := PageParam.Values[0];
	end;

//appui sur bouton continuer
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  case CurPageID of
    PageParam.ID:
     begin
     sDataDir := PageParam.Values[0];
	 CreateDir(sDataDir);
     end;
//    wpSelectDir :
//     begin
//     sDirInstal := wpSelectDir.Values[0];
//     end;
  end;

  Result := True;
end;



//(*** INITIALISATION ***}
Procedure InitializeWizard;
begin
CreateTheWizardPages;
end;

11/02/2011, 00h03
marco62118
encore moi!
Code:

1 2 3 4 5 6 7 8 [Dirs] Name: {app}\parties name: {app}\image name: {app}\dicos name: {app}\support Name: {code:GetDirPath1}\Dicos2Def Name: {app}\Dicos3Def Name: {app}\Dicos4Def
lorsque le logiciel arrive à la création de Dicos2Def il va chercher la fonction GetDirPath1 mais ne crée pas le répertoire dissu du résultat de la fonction\Dicos2Def.

une autre question comment inscrire le chemin de ce répertoire dans un fichier .ini

Une fonction de retour doit obligatoirement renvoyé Result et pas une variable

Code:

1
2
3
4
function GetDirPath1(Param: String): String;
begin
    Result := PageParam.Values[0]';
end;

Code:

1
2
3
[Ini]
Filename: {app}\MyProgram.ini; Section: InstallSettings; Flags: uninsdeletesection
Filename: {app}\MyProgram.ini; Section: InstallSettings; Key: DataDir; String: {code:GetDirPath1}; Flags: createkeyifdoesntexist

11/02/2011, 15h45
marco62118

bonjour
merci ça avance!!!!
un petit pb lorsque je décris le dossier d'installation

Code:

DefaultDirName={pf}\{#MyAppVerName}

je lance l'installation, si l'utilisateur modifie le répertoire manuellement dans la boite de dialogue et qu'il relance l'installation dans la boite de dialogue du dossier d'installation ce sera toujours le répertoire modifié
11/02/2011, 16h48
ThierryAIM
J'ai pas vraiment tout compris, mais regarde avec :
Code:

1 2 3 [Setup] UsePreviousAppDir=false UsePreviousSetupType=false
13/02/2011, 12h25
marco62118

Bonjour
merci c'est exactement ça!
je m'excuse si je n'ai pas été assez clair.
Donc tout fonctionne bien,J'arrive à créer un répertoire , même un disque particulier pour l'installation des dictionnaires (1.5Go). Mais lors d'une installation complète la décompression de dictionnaires est bloquée au bout d'une certaine quantité de fichier(1.2Go) ( je pense que ça doit être du à une trop grosse quantité de données mise en attente pour un éventuel abandon de l'installation) , les fichiers ne peuvent soit disant plus être copié sur la clef USB donc abandon ignore .
Il faudrait que la décompression des dictionnaires ne soit pas pris en compte pour un éventuel abandon

là je ne sais si je suis clair:?
13/02/2011, 12h47
ThierryAIM

Fais-voir à quoi ressemble ton script complet

voici voilà un peu long peut être;)

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 
#define MyAppName "MarcoCroisés"
#define MyAppVerName "1_5"
#define MyAppPublisher "Marco"
#define MyAppExeName "MarcoCroisés5.exe"
 
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
UsePreviousAppDir=false
UsePreviousSetupType=false
AppId={{3A1E0C0F-7B75-4E3A-8BA2-A3666EEBA7BE}
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}_{#MyAppVerName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputDir=G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\inno
OutputBaseFilename=setup5_test2_MarcoCroises
;SetupIconFile=G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\MarcoCroisés.ico
Compression=lzma
SolidCompression=yes
 
[Languages]
Name: french; MessagesFile: compiler:Languages\French.isl
 
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
 
[Dirs]
Name: {app}\parties
name: {app}\image
name: {app}\dicos
name: {app}\support
Name: {code:GetDirDef}\Dicos2Def
Name: {code:GetDirDef}\Dicos3Def
Name: {code:GetDirDef}\Dicos4Def
Name: {code:GetDirDef}\Dicos5Def
Name: {code:GetDirDef}\Dicos6Def
Name: {code:GetDirDef}\Dicos7Def
Name: {code:GetDirDef}\Dicos8Def
Name: {code:GetDirDef}\Dicos9Def
Name: {code:GetDirDef}\Dicos10Def
Name: {code:GetDirDef}\Dicos11Def
Name: {code:GetDirDef}\Dicos12Def
Name: {code:GetDirDef}\Dicos13Def
Name: {code:GetDirDef}\Dicos14Def
Name: {code:GetDirDef}\Dicos15Def
 
[Files]
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos\*; DestDir: {app}\dicos; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos2Def\*; DestDir: {code:GetDirDef}\Dicos2Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos3Def\*; DestDir: {code:GetDirDef}\Dicos3Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos4Def\*; DestDir: {code:GetDirDef}\Dicos4Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos5Def\*; DestDir: {code:GetDirDef}\Dicos5Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos6Def\*; DestDir: {code:GetDirDef}\Dicos6Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos7Def\*; DestDir: {code:GetDirDef}\Dicos7Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos8Def\*; DestDir: {code:GetDirDef}\Dicos8Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos9Def\*; DestDir: {code:GetDirDef}\Dicos9Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos10Def\*; DestDir: {code:GetDirDef}\Dicos10Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos11Def\*; DestDir: {code:GetDirDef}\Dicos11Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos12Def\*; DestDir: {code:GetDirDef}\Dicos12Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos13Def\*; DestDir: {code:GetDirDef}\Dicos13Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos14Def\*; DestDir: {code:GetDirDef}\Dicos14Def; Flags: ignoreversion recursesubdirs createallsubdirs
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Dicos15Def\*; DestDir: {code:GetDirDef}\Dicos15Def; Flags: ignoreversion recursesubdirs createallsubdirs
 
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\image\*; DestDir: {app}\image; Flags: ignoreversion recursesubdirs createallsubdirs
;copie de tous les fichiers support
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\*; DestDir: {app}\support; Flags: ignoreversion recursesubdirs createallsubdirs
 
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
; [Bootstrap Files]
; @COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,6/1/98 1:00:00 AM,22288,4.71.1460.1
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\COMCAT.DLL; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regserver
; @VB6FR.DLL,$(WinSysPath),,$(Shared),10/2/00 1:00:00 AM,119568,6.0.89.88
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\VB6FR.DLL; DestDir: {sys}; Flags: promptifolder sharedfile
; @STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 1:00:00 AM,17920,2.40.4275.1
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\STDOLE2.TLB; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regtypelib
; @ASYCFILT.DLL,$(WinSysPathSysFile),,,3/8/99 1:00:00 AM,147728,2.40.4275.1
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\ASYCFILT.DLL; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile
; @OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/8/99 1:00:00 AM,164112,5.0.4275.1
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\OLEPRO32.DLL; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regserver
; @OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/00 1:00:00 AM,598288,2.40.4275.1
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\OLEAUT32.DLL; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regserver
; @msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,1/19/08 9:35:15 AM,1386496,6.0.98.2
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\msvbvm60.dll; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regserver
 
; [Setup1 Files]
; @INETFR.DLL,$(WinSysPath),,$(Shared),7/13/98 1:00:00 AM,15360,6.0.81.63
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\INETFR.DLL; DestDir: {sys}; Flags: promptifolder sharedfile
; @MSINET.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 1:00:00 AM,132880,6.1.97.82
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\MSINET.OCX; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @ieframe.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/15/09 8:07:53 AM,6069248,7.0.6001.18203
;Source: "G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\ieframe.dll"; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @WINSKFR.DLL,$(WinSysPath),,$(Shared),7/13/98 1:00:00 AM,15872,6.0.81.63
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\WINSKFR.DLL; DestDir: {sys}; Flags: promptifolder sharedfile
; @MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 1:00:00 AM,124688,6.1.97.82
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\MSWINSCK.OCX; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @FLXGDFR.DLL,$(WinSysPath),,$(Shared),7/13/98 1:00:00 AM,40960,6.0.81.63
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\FLXGDFR.DLL; DestDir: {sys}; Flags: promptifolder sharedfile
; @MSFLXGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 1:00:00 AM,260880,6.1.97.82
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\MSFLXGRD.OCX; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @ProjetScrabble_controle.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/6/08 10:47:31 PM,32768,1.0.0.0
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\ProjetScrabble_controle.ocx; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @CmDlgFR.dll,$(WinSysPath),,$(Shared),7/13/98 1:00:00 AM,32768,6.0.81.63
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\CmDlgFR.dll; DestDir: {sys}; Flags: promptifolder sharedfile
; @COMDLG32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 12:00:00 AM,152848,6.1.97.82
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\COMDLG32.OCX; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/13/98 1:00:00 AM,141312,6.0.81.63
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\MSCMCFR.DLL; DestDir: {sys}; Flags: promptifolder sharedfile
; @mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 5:45:46 PM,1081616,6.1.97.82
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\mscomctl.ocx; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @MSDE.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/23/04 1:00:00 AM,747520,6.1.97.82
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\MSDE.DLL; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @wininet.dll,$(WinSysPath),,$(Shared),1/15/09 8:11:16 AM,827392,7.0.6001.18203
;Source: "G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\wininet.dll"; DestDir: {sys}; Flags: promptifolder sharedfile
; @urlmon.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/15/09 8:11:05 AM,1166336,7.0.6001.18203
;Source: "G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\urlmon.dll"; DestDir: {sys}; Flags: promptifolder regserver sharedfile
; @dwmapi.dll,$(WinSysPath),,$(Shared),1/19/08 9:34:07 AM,39936,6.0.6001.18000
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\Package3\support\dwmapi.dll; DestDir: {sys}; Flags: promptifolder sharedfile
; @MarcoCroisés.exe,$(AppPath),,,4/8/09 10:38:27 PM,401408,1.0.0.0
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\MarcoCroisés5.exe; DestDir: {app}; Flags: promptifolder
 
Source: G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5\MarcoCroisés.ico; DestDir: {app}; Flags: promptifolder
 
[INI]
Filename: {app}\MarcoCroisés.ini; Section: RepertoiresDefinition
Filename: {app}\MarcoCroisés.ini; Section: RepertoiresDefinition; Key: RepsDef; String: {code:GetDirDef}
 
 
[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon; IconIndex: 0; WorkingDir: {app}; IconFilename: {app}\MarcoCroisés.ico
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: quicklaunchicon; IconIndex: 0; WorkingDir: {app}; IconFilename: {app}\MarcoCroisés.ico
 
 
[Run]
Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent
[Code ]
// Variables Globales
var
PageParam: TInputDirWizardPage;
sDataDir: string;
sDirInstal: string;
bResult: boolean;
 
// Creer les Pages Personnalisées
procedure CreateTheWizardPages;
begin
	PageParam :=CreateInputDirPage(wpSelectDir,
		'Répertoires d''installation',
		'Définissez le répertoire d''installation des Dictionnaires :',
		'Les dictionnaires de définition prennent beaucoup de place! Vous pouvez les installer sur un disque externe ou une clef USB. Les données seront enregistrées dans le répertoire défini à cette étape :'#13#10#13#10 +
		'Cliquer sur "Suivant" pour accepter le répertoire par défaut. Pour définir un répertoire ou un disque différents, cliquez sur"Parcourir".',
		False,
		'New Folder');
 
	// Ajouter un élément (avec une valeur vide)
	PageParam.Add('Répertoire ou Disque d''installation des Dictionnaires de Définition');
 
	// Initialiser les valeurs par défaut (optional)
	sDirInstal:=ExpandConstant('{pf}\{#MyAppName}'+'_'+'{#MyAppVerName}');
	PageParam.Values[0] := sDirInstal
end;
 
// Fonctions de retour
 
// Fonctions de retour
function GetDirDef(Param: String): String;
begin
	Result:=sDataDir
end;
 
//appui sur bouton continuer
function NextButtonClick(CurPageID: Integer): Boolean;
begin
	case CurPageID of
		PageParam.ID:
		 begin
		 	if PageParam.Values[0]=sDirInstal then
				begin
				sDataDir := sDirInstal+'\RepsDef';
				CreateDir( sDirInstal);
				CreateDir(SDataDir);
				end
			else
			begin
				sDataDir := PageParam.Values[0]+'RepsDef';
				CreateDir(sDataDir);
			end
		end;
 
	end;
 
Result := True;
end;
 
 
 
//(*** INITIALISATION ***}
Procedure InitializeWizard;
begin
CreateTheWizardPages;
end;

13/02/2011, 14h07
marco62118

si tu veux je peux même t'envoyer le fichier total d'installation 22Mo

Bon, il n'y a rien de particulier dans ton script, hormis que tu pourrais utiliser
SourceDir et supprimer tous ces répertoires à rallonge.
Ca rendrait ton script plus lisible
Code:

1 2 3 4 5 6 7 8 9 [Setup]SourceDir=G:\Documents\programation\visual basic\SCRABBLE\Scrabble marc\MarcoCroisés sans duplicate denièere vers5 [Files] Source: Dicos\*; DestDir: {app}\dicos; Flags: ignoreversion recursesubdirs createallsubdirs Source: Dicos2Def\*; DestDir: {code:GetDirDef}\Dicos2Def; Flags: ignoreversion recursesubdirs createallsubdirs ... Source: MarcoCroisés5.exe; DestDir: {app}; Flags: promptifolder Source: MarcoCroisés.ico; DestDir: {app}; Flags: promptifolder
Pour ton soucis, je ne vois pas et je ne trouve rien à propos de ce qui pourrait être une limitation quelconque
Ta clé USB, elle fait quelle capacité ?
Si tu fais une install sur disque dur, ça passe ?

Sinon, une idée comme ça, tu peux essayer de zipper tes fichiers dicos et les dezipper au premier démarrage de ton appli VB, puisque tu as sauvegardé l'emplacement dans ton fichiers ini

13/02/2011, 16h31
marco62118

ma clef fait 4Go!
j'ai fait essais avec mon micro portable et mon micro fixe. Mon micro portable est moins puissant est a DD de 1.2Go seulement (ce qui m'a fait entrevoir d'installer les dicos sur un disque à part). Avec mon portable la recopie des fichiers s'est bloquée plus tôt qu'avec mon micro fixe qui est beaucoup plus rapide et de grande capacité en mémoire et DD ( mais qui s'est bloqué aussi mais un peu plus loin.
et OUI lorsque j'installe tous dans le même répertoire sur mon micro fixe sur le DD pas de problème tout passe!!

Pour ta suggestion il faudrait donc que je fournisse avec le fichier d'installation un fichier zippé?
Je pourrais dans ce cas là est ce que je pourrais lancer le dézippage à la fin de l'installation, par une commande quelconque? après vérification que ce fichier est bien présent.
13/02/2011, 17h05
ThierryAIM

Tu zippes tous tes fichiers dicos (qui devraient prendre moins de place) et tente d'inclure le zip (ou les zips) dans l'installateur.
Essaie une install pour voir si ça passe

Après on verra s'il vaut mieux dezipper avec IS ou VB6
13/02/2011, 21h04
marco62118

ça fonctionne
maintenant il faut dézippé avant la tentative de lancement du jeu
14/02/2011, 07h28
ThierryAIM
pour dezziper avec IS, il te faut être sur qu'il y a un utilitaire de dezippage sur la machine, ou en fournir un avec ton installateur

Moi, je mettrais une clé de registre (tu la prévois dans ton install pour qu'elle soit retirer en cas de desinstall) et je dezipperrais avec VB6 au 1er demarrage
Tu fais un bel écran de démarrage et

Compresser et décompresser avec VB6(J'en ai profité pour mettre les liens à jour :aie:)
Tu detruis les zips au fur et à mesure pour gagner de la place

Pour lire et écrire dans la base de registre avec VB6 : GetSetting et SaveSetting

Dans IS
Code:

1 2 [Registry] Root: HKCU; Subkey: Software\VB and VBA Program Settings\{#AppName}\Setup; ValueType: string; ValueName: Dezip; ValueData: 0
14/02/2011, 09h51
ThierryAIM

Pour dezipper avec IS, j'avais déjà répondu là