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
|
file
Source: "C:\TRAVAIL\Install Chrysalide\Install_nattest\FrameWork\NetFx1_1.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall
Source: "C:\TRAVAIL\Install Chrysalide\Install_nattest\FrameWork\NetFx2SP1_x86.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall
Source: "C:\TRAVAIL\Install Chrysalide\Install_nattest\FrameWork\NetFx2SP1_x64.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall
///////////////////////////////////////////////////////////////////////
/////// Function qui son appeler pour verif le Framework 1.0 //////
/////////////////////////////////////////////////////////////////////
function VerifierFramework1(): Boolean;
var
ErrorCode: Integer;
NetFrameWorkInstalled : Boolean;
Result1 : Boolean;
begin
//LA CLE CORRESPONDANT AU FRAMEWORK 1.0 EXISTE-T-ELLE ?
NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\v1.0');
//SI OUI :
if NetFrameWorkInstalled then
begin
//ON RETOURNE TRUE
Result := true;
end
else
begin
//SINON ON DEMANDE SI ON VEUT INSTALLER
Result1 := MsgBox('Cette installation requiert le .NET Framework 1.0. Voulez vous installer le .NET Framework maintenant ?',mbConfirmation, MB_YESNO) = idYes;
if Result1 =false then
begin
//SI ON NE VEUT PAS INSTALLER ON RENVOIE FALSE
Result:=false;
end else
begin
//SI ON VEUT BIEN INSTALLER ON LANCE L'INSTALLATION
//ShellExec('open',ExpandConstant('{src}\Framework\NetFx1_1.exe'),'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
ShellExec('open',ExpandConstant('{tmp}\NetFx1_1.exe'),'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
end;
end;
////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
/////// Function qui son appeler pour verif le Framework 2.0 SP1 //////
/////////////////////////////////////////////////////////////////////////
function VerifierFramework2(): Boolean;
var
ErrorCode: Integer;
NetFrameWorkInstalled : Boolean;
Result1 : Boolean;
begin
//LA CLE CORRESPONDANT AU FRAMEWORK 2.0 EXISTE-T-ELLE ?
NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\v2.0 SP1');
//SI OUI :
if NetFrameWorkInstalled then
begin
//ON RETOURNE TRUE
Result := true;
end
else
begin
//SINON ON DEMANDE SI ON VEUT INSTALLER
Result1 := MsgBox('Cette installation requiert le .NET Framework 2.0 SP1. Voulez vous installer le .NET Framework maintenant ?',mbConfirmation, MB_YESNO) = idYes;
if Result1 =false then
begin
//SI ON NE VEUT PAS INSTALLER ON RENVOIE FALSE
Result:=false;
end else
begin
//SI ON VEUT BIEN INSTALLER ON LANCE L'INSTALLATION
if IsWin64 then
begin
//si il est en 64bits
//ShellExec('open',ExpandConstant('{src}\Framework\NetFx2SP1_x64.exe'),'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
ShellExec('open',ExpandConstant('{tmp}\NetFx2SP1_x64.exe'),'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end
else
//sinon il est en 32bits
//ShellExec('open',ExpandConstant('{src}\Framework\NetFx2SP1_x86.exe'),'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
ShellExec('open',ExpandConstant('{tmp}\NetFx2SP1_x86.exe'),'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
begin
end;
end;
end;
end;
////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////
////// Initialise le setup pour tester si il y a un FrameWork //////
/////////////////////////////////////////////////////////////////////
function InitializeSetup(): Boolean;
begin
//SI LE FRAMEWORK EXISTE :
if VerifierFramework1() then
begin
//ON DONNE LA POSSIBILITE DE CONTINUER !
Result := true;
end
else
begin
Result := false;
end;
if VerifierFramework2() then
begin
//ON DONNE LA POSSIBILITE DE CONTINUER !
Result := true;
end
else
begin
Result := false;
end;
end; |
