判断 .NET Framework 是否安装

admin

1. ; IsDotNETInstalled
   
2. ;
   
3. ; 用法：
   
4. ;   Call IsDotNETInstalled
   
5. ;   Pop $0
   
6. ;   StrCmp $0 1 found.NETFramework no.NETFramework
   
7. 
   
8. 
   
9. Function IsDotNETInstalled
   
10.    Push $0
    
11.    Push $1
    
12.    Push $2
    
13.    Push $3
    
14.    Push $4
    
15. 
    
16.    ReadRegStr $4 HKEY_LOCAL_MACHINE \
    
17.      "Software\Microsoft\.NETFramework" "InstallRoot"
    
18.    # 移除退格键
    
19.    Push $4
    
20.    Exch $EXEDIR
    
21.    Exch $EXEDIR
    
22.    Pop $4
    
23.    # 如果根目录不存在则 .NET 未安装
    
24.    IfFileExists $4 0 noDotNET
    
25. 
    
26.    StrCpy $0 0
    
27. 
    
28.    EnumStart:
    
29. 
    
30.      EnumRegKey $2 HKEY_LOCAL_MACHINE \
    
31.        "Software\Microsoft\.NETFramework\Policy"  $0
    
32.      IntOp $0 $0 + 1
    
33.      StrCmp $2 "" noDotNET
    
34. 
    
35.      StrCpy $1 0
    
36. 
    
37.      EnumPolicy:
    
38. 
    
39.        EnumRegValue $3 HKEY_LOCAL_MACHINE \
    
40.          "Software\Microsoft\.NETFramework\Policy\$2" $1
    
41.        IntOp $1 $1 + 1
    
42.         StrCmp $3 "" EnumStart
    
43.          IfFileExists "$4\$2.$3" foundDotNET EnumPolicy
    
44. 
    
45.    noDotNET:
    
46.      StrCpy $0 0
    
47.      Goto done
    
48. 
    
49.    foundDotNET:
    
50.      StrCpy $0 1
    
51. 
    
52.    done:
    
53.      Pop $4
    
54.      Pop $3
    
55.      Pop $2
    
56.      Pop $1
    
57.      Exch $0
    
58. FunctionEnd
    

复制代码

admin

client和Full 只要有一个存在就表示安装了4.0

1. 
   
2.         #-- 判断.NET4.0是否安装 --#
   
3. Function checkFramework4
   
4.                 ;Clinet 和 Full存在一个都说明安装了Framework
   
5.         ClearErrors
   
6.         ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client" "Install2"
   
7.                 IfErrors 0 ExitCheckFramework4
   
8.     ClearErrors
   
9.          ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full" "Install"
   
10.            IfErrors 0 ExitCheckFramework4
    
11.                  ;没有安装Framework
    
12.          MessageBox MB_OK "装程序无法检测到.NET Framework V4.0"
    
13. Abort
    
14.          ExitCheckFramework4:
    
15. 
    
16. FunctionEnd
    
17. 
    

复制代码

再在.onInit函数第一句里面加上：“Call CheckFramework4”