[Code]
function InitializeSetup(): Boolean;
var
ErrorCode: Integer;
NetFrameWorkInstalled: Boolean;
Result1: Boolean;
begin
NetFrameWorkInstalled := RegKeyExists(HKLM, 'SOFTWARE\Microsoft\.NETFramework\policy\v2.02');
if NetFrameWorkInstalled = true then
begin
Result := true;
end;
if NetFrameWorkInstalled = false then
begin
Result1 := MsgBox('На Вашем компьютере не установлен Microsoft .NET Framework 2.0,' #13 'для продолжения установки необходима его установить.' #13#13 'Установить Microsoft .NET Framework 2.0?',
mbConfirmation, MB_YESNO) = idYes;
if Result1 = false then
begin
Result := false;
end
else
begin
Result := false;
ShellExec('open', ExpandConstant('{src}\Redist\setup-ms.net.framework.2.0.exe'), '', '', SW_SHOW, ewNoWait, ErrorCode);
end;
end;
end;
|
