检测SQL Server安装版本

Share

1、代码如下：

1. Function StrTok
   
2. Exch $R1
   
3. Exch 1
   
4. Exch $R0
   
5. Push $R2
   
6. Push $R3
   
7. Push $R4
   
8. Push $R5
   
9. 
   
10. ;R0 fullstring
    
11. ;R1 tokens
    
12. ;R2 len of fullstring
    
13. ;R3 len of tokens
    
14. ;R4 char from string
    
15. ;R5 testchar
    
16. 
    
17. StrLen $R2 $R0
    
18. IntOp $R2 $R2 + 1
    
19. 
    
20. loop1:
    
21. IntOp $R2 $R2 - 1
    
22. IntCmp $R2 0 exit
    
23. 
    
24. StrCpy $R4 $R0 1 -$R2
    
25. 
    
26. StrLen $R3 $R1
    
27. IntOp $R3 $R3 + 1
    
28. 
    
29. loop2:
    
30. IntOp $R3 $R3 - 1
    
31. IntCmp $R3 0 loop1
    
32. 
    
33. StrCpy $R5 $R1 1 -$R3
    
34. 
    
35. StrCmp $R4 $R5 Found
    
36. Goto loop2
    
37. Goto loop1
    
38. 
    
39. exit:
    
40. ;Not found!!!
    
41. StrCpy $R1 ""
    
42. StrCpy $R0 ""
    
43. Goto Cleanup
    
44. 
    
45. Found:
    
46. StrLen $R3 $R0
    
47. IntOp $R3 $R3 - $R2
    
48. StrCpy $R1 $R0 $R3
    
49. 
    
50. IntOp $R2 $R2 - 1
    
51. IntOp $R3 $R3 + 1
    
52. StrCpy $R0 $R0 $R2 $R3
    
53. 
    
54. Cleanup:
    
55. Pop $R5
    
56. Pop $R4
    
57. Pop $R3
    
58. Pop $R2
    
59. Exch $R0
    
60. Exch 1
    
61. Exch $R1
    
62. 
    
63. FunctionEnd
    
64. ;--------------------------------
    
65. ; CheckMinSQLVersion
    
66. ;
    
67. ; Written by Matthew Kershaw (matthew.kershaw@us.didata.com)
    
68. ;
    
69. ; For this function the min SQL version must be SQL2kSP2 ...
    
70. ; typically the SQLServer version is located in
    
71. ; HKLM\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion\CurrentVersion
    
72. ; but for SPs, the new version is located in
    
73. ; HKLM\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion\CSDVersion.
    
74. ; For SP2, the value is 8.00.534. If the CSDVersion key does not exist,
    
75. ; no SP has been installed.
    
76. Function CheckMinSQLVersion
    
77. 
    
78. ClearErrors
    
79. 
    
80. ReadRegStr $0 HKLM "SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion" "CurrentVersion"
    
81. IfErrors SQLServerNotFound SQLServerFound
    
82. 
    
83. SQLServerFound:
    
84. ReadRegStr $4 HKLM "SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion" "CSDVersion"
    
85. IfErrors SPNotFound SPFound
    
86. 
    
87. SPFound:
    
88. 
    
89. ;Check the first digit of the version; must be 8
    
90. StrCpy $0 $4
    
91. StrCpy $1 $0 1
    
92. StrCmp $1 "8" SQLServer2000Found SQLServerVersionError
    
93. Goto ExitCheckMinSQLVersion
    
94. 
    
95. SQLServer2000Found:
    
96. 
    
97. Push $0
    
98. Push "."
    
99. Call StrTok;For an example string of "8.00.194", "8" and "00.194" now on stack
    
100. Pop $2
     
101. Push "."
     
102. Call StrTok;"00" and "194" now on stack
     
103. Pop $2
     
104. Pop $3
     
105. 
     
106. IntCmp $3 534 0 SQLServerVersionError 0
     
107. Push 1
     
108. Goto ExitCheckMinSQLVersion
     
109. 
     
110. SQLServerVersionError:
     
111. MessageBox MB_OK|MB_ICONEXCLAMATION "此产品需要SQLServer的最低版本为 v8.00.534 (SQLServer 2000, SP2);检测到当前版本为$0。安装程序将中止。"
     
112. Push 0
     
113. Goto ExitCheckMinSQLVersion
     
114. 
     
115. SQLServerNotFound:
     
116. MessageBox MB_OK|MB_ICONEXCLAMATION "安装程序未能检测到Microsoft SQLServer，这是必须安装的。安装程序将中止。"
     
117. Push 0
     
118. Goto ExitCheckMinSQLVersion
     
119. 
     
120. SPNotFound:
     
121. MessageBox MB_OK|MB_ICONEXCLAMATION "MicrosfotSQLServer v $0 已安装。SQLServer 2000 SP2 (or later)必须安装。安装程序将中止。"
     
122. Push 0
     
123. Goto ExitCheckMinSQLVersion
     
124. 
     
125. ExitCheckMinSQLVersion:
     
126. 
     
127. FunctionEnd

复制代码

2、调用

1. Call CheckMinSQLVersion
   
2. Pop $0
   
3. IntCmp $0 1 +2
   
4. Abort

复制代码