1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| [CustomMessages]
DotNET=Le framework Microsoft .NET 4.0 n'est pas installé sur cette machine. Le programme d'installation va maintenant l'installer.
Code
procedure CurStepChanged(CurStep: TSetupStep);
msgRes : integer;
errCode : integer;
begin
if (CurStep = ssPostInstall) then
begin
Result := true;
// Check for required dotnetfx 3.5 installation
if (not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4.0')) then begin
msgRes := MsgBox(CustomMessage('DotNET'), mbError, MB_OKCANCEL);
if(msgRes = 1) then begin
ShellExec('', ExpandConstant('{app}\redist\dotNetFx40_Full_setup.exe', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
Abort();
end;
end;
end; |
Partager