[R.i.m.s.k.y.]

Devils Night,

Код:

//**проверка наличия фреймворка 3.5
function netfw35(): Boolean;
begin
	if ( RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5') )
     then Result := True else Result := False;
end;

//** проверка на установку MS Visual C++ 2008
Function isvcredist():boolean;
var b1,b2,b3 : boolean;
begin
  if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b1 := True;
  if IsWin64 then begin
    if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b2 := True;
    if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b3 := True;
  end;
  if (b1 or b2 or b3) then Result := True else Result := False;
end;

Function InitializeSetup: Boolean;
begin
...
if (not isvcredist) then MsgBox('Не установлен Microsoft Visual C++ 2008', mbInformation, MB_OK);
if (not netfw35) then MsgBox('Не установлен FrameWork 3.5', mbInformation, MB_OK);
...
end;