function NET4032: Boolean;
var
  InstallCheck: Cardinal;
begin
  Result := False;
  if RegQueryDWordValue(HKLM32, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full', 'Install', InstallCheck) then
    Result := InstallCheck <> $00000001;
end;