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
| //FONCTION DE VERIFICATION REDIS
function VerifierRedis(): Boolean;
var
ErrorCode: Integer;
RedistInstalled : Boolean;
Result1 : Boolean;
begin
//Vérifie si la Redistributable est installée dans la machine.
RedistInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{f0c3e5d1-1ade-321e-8167-68ef0de699a5}');
if RedistInstalled then
begin
Result := true;
MsgBox('blblbl', mbInformation, MB_OK);
end
else
begin
// Si elle n'existe pas, on demande si l'utilisateur souhaite la télecharger.
begin
Result1 := MsgBox('L''installation requiert Microsoft Visual C++ 2010 Redistributable Package (x86). Voulez-vous télécharger Microsoft Visual C++ 2010 Redistributable Package (x86) maintenant ?',
mbConfirmation, MB_YESNO) = idYes;
if Result1 =false then
begin
// S'il dit non.
MsgBox('Vous devez avoir Microsoft Visual C++ 2010 Redistributable Package (x86) installé sur votre machine. '#13#10'L''installation va continuer. '#13#10''#13#10'N''oubliez pas d''installer Microsoft Visual C++ 2010 Redistributable Package (x86).', mbInformation, MB_OK);
Result:=true;
end
else
begin
//S'il dit oui, on va DL la redis
Result:=true;
ShellExec('open',
'https://download.microsoft.com/download/C/6/D/C6D0FD4E-9E53-4897-9B91-836EBA2AACD3/vcredist_x86.exe',
'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
end;
end;
end; |
Partager