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
|
Var
versjava64 : string;
versjava32 : string;
versjava : string;
java_installe : boolean;
instal_java_ok : boolean;
rep_javaw : string;
test64 : boolean;
test32 : boolean;
test : boolean;
VersFirebird : string;
Firebird_installe : boolean;
Page: TWizardPage;
Lbl,Lbl1: TLabel;
DlgWait : TSetupForm;
lblWait : TLabel;
function wait() : boolean;
begin
dlgWait := CreateCustomForm;
dlgWait.FormStyle := bsDialog;
dlgWait.Position := poMainFormCenter;
lblWait := TLabel.Create(dlgWait);
lblWait.Parent := dlgWait;
lblWait.Caption := 'Patientez pendant l''installation de java';
lblWait.Visible := True;
dlgWait.Show;
dlgWait.Refresh; // Process the paint message
end;
function endwait() : boolean;
begin
DlgWait.Free;
end;
function InitializeSetup(): Boolean;
Begin
Result := True;
java_installe:=True;
// recherche dans la BDR la version de java installé 64 bits et 32 bits
// cdétecte galement si java32 est installé sur un système 64 bits
test64 := RegQueryStringValue(HKLM64, 'SOFTWARE\JavaSoft\Java Runtime Environment', 'CurrentVersion', versjava64);
// MsgBox('versjava64 : '+versjava64, mbInformation, MB_OK);
test32 := RegQueryStringValue(HKLM32, 'SOFTWARE\JavaSoft\Java Runtime Environment', 'CurrentVersion', versjava32);
// MsgBox('versjava32 : '+versjava32, mbInformation, MB_OK);
if (test64) then
begin
test:=test64;
versjava:=versjava64;
end
else
if (test32) then
begin
test:=test32;
versjava:=versjava32;
end
else
begin
test:=false;
end;
//test:=RegQueryStringValue(HKEY_CURRENT_USER, 'Control Panel\International', 'sCountry', Versjava);
// MsgBox('Versjava : '+versjava, mbInformation, MB_OK);
if (test) then
begin
// si la version installée est inf à v1.7 on install la v1.7
if CompareStr(versjava,'1.7') < 0 then
begin
java_installe := False
MsgBox('Il existe une version plus récente de java, elle va être installée', mbInformation, MB_OK);
//Ajouter la ligne d'installation
end;
end
else
//si la cle java n'existe pas, il faut obligatoirement l'installer
begin
java_installe := False
//Ajouter la ligne d'installation
end;
end;
function NextButtonClick(CurPage: Integer): Boolean;
var
hWnd: Integer;
ResultCode: Integer;
begin
result:=true;
if CurPage = 100 then //la valeur 100 correspond à l'ID de ma page où j'informe l'utilisateur que je verifie la presence de java sur son ordi.
begin
if (java_installe = false) then // si java a besoin d'etre installé
begin
//MsgBox('Java va maintenant s''installer, veuillez patienter...', mbInformation, MB_OK);
if (isWin64) then
begin
wait();
instal_java_ok := Exec(ExpandConstant('{src}\Java\jre-7u55-windows-x64.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
//MsgBox('Java 64bits', mbInformation, MB_OK);
endwait();
end
else
begin
wait();
instal_java_ok := Exec(ExpandConstant('{src}\Java\jre-7u55-windows-i586.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
endwait();
end
begin
// handle success if necessary; ResultCode contains the exit code
if not (ResultCode = 0) then //si resultCode n'est pas egal à 0, il y a eu une erreur ou bien l'utilisateur à arreter l'installation.
begin
MsgBox('Java est necessaire au fonctionnement du logiciel, si vous ne l''installez pas vous ne pourrez pas utiliser le logiciel ', mbInformation, MB_OK);
Result := true; //on autorise quand meme la poursuite de l'instalation
end;
end
if not (instal_java_ok) then
begin
// handle failure if necessary; ResultCode contains the error code
MsgBox('Java n''a pas pu s''installer, il vous faudra l''installer manuellement avant de pouvoir utiliser votre logiciel. ', mbInformation, MB_OK);
Result := true; // on a pas reussi a lancer l'executable, mais on permet quand meme l'installation en prevenant l'utilisateur
end;
end;
// else
// MsgBox('Java est déjà installé sur votre ordinateur', mbInformation, MB_OK);
end;
end;
// Procédure de construction des pages personnelles
procedure CreateTheWizardPages;
// variables locales
begin
{ TButton and others }
Page := CreateCustomPage(wpWelcome, 'Vérification Préalable', 'Vérification de la présence de Java ');
Lbl := TLabel.Create(Page);
Lbl.Top := ScaleY(8);
Lbl.Caption := 'En cliquant sur le bouton suivant,';
Lbl.AutoSize := True;
Lbl.Parent := Page.Surface;
Lbl1 := TLabel.Create(Page);
Lbl1.Top := Lbl.Top + Lbl.Height +ScaleY(8);
Lbl1.Caption := 'nous allons vérifier pour vous la présence de Java sur votre ordinateur ';
Lbl1.AutoSize := True;
Lbl1.Parent := Page.Surface;
end;
procedure InitializeWizard();
begin
CreateTheWizardPages;
end; |
