Eolt,
.Net 2 нету только на голом XP/2003
На Виста/2008 и Win7/2008R2 он предустановлен
На Win8/8.1/2012/2012R2 его нету но он нафиг не нужен, какая-то более старшая предустановленная версия его компенсирует
Разберешься?
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.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
Public Function IsNet2SP1Installed() As Boolean
Dim lngResult As Long
Dim lngKeyHandle As Long
Dim Installed As Long
Dim SP As Long
IsNet2SP1Installed = False
If IsWin8 Then
IsNet2SP1Installed = True 'отключаем проверку Net, итак все работает, хотя .Net v.2 и нету
Exit Function
End If
' Open the Root Branch to search
lngResult = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727", _
0&, _
KEY_READ, _
lngKeyHandle)
If lngResult <> ERROR_SUCCESS Then
Else
Installed = GetDword(HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727", _
"Install")
SP = GetDword(HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727", _
"SP")
If (Installed = 1) And (SP >= 1) Then
IsNet2SP1Installed = True
End If
End If
End Function
Public Function GetDword(hKey As Long, ByVal lpszSubKey As String, _
ByVal strValue As String, Optional ByVal dwDefault As Long = 0) As Long
Dim dwData As Long
Dim phkResult As Long
Dim rtn As Long
GetDword = dwDefault
rtn = RegOpenKeyEx(hKey, lpszSubKey, 0&, KEY_READ, phkResult)
If rtn <> 0& Then Exit Function
rtn = RegQueryValueExBin(phkResult, strValue, 0&, REG_DWORD, dwData, 4&)
If rtn <> 0& Then Exit Function
rtn = RegCloseKey(phkResult)
GetDword = dwData
End Function
Public Declare Function RegOpenKeyEx Lib "advapi32" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey _
As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegQueryValueExBin Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal lpReserved As Long, lpType As Long, lpData As Any, _
lpcbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32" _
(ByVal hKey As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey _
As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) As Long
>При отсутствии скачать:
"Целиковые" дистрибутивные exe пакеты 2.0SP1 были. Они разные для XP/2003 32бит и 64бит
Либо "нецеликовый" Net 3.5 (докачивает) - Net 2 туда включен
Для Виста и старше все эти пакеты бессмысленны. Во-первых предустановлен,
во вторых это галка 3.5 "в компонентах виндоус".
