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; |
Partager