NSIS——检测SQL Server安装版本

来自：http://nsis.sourceforge.net/How_to_tell_what_version_of_SQLServer_is_installed

1、代码如下：

Function StrTok
Exch $R1
Exch 1
Exch $R0
Push $R2
Push $R3
Push $R4
Push $R5

;R0 fullstring
;R1 tokens
;R2 len of fullstring
;R3 len of tokens
;R4 char from string
;R5 testchar

StrLen $R2 $R0
IntOp $R2 $R2 + 1

loop1:
IntOp $R2 $R2 - 1
IntCmp $R2 0 exit

StrCpy $R4 $R0 1 -$R2

StrLen $R3 $R1
IntOp $R3 $R3 + 1

loop2:
IntOp $R3 $R3 - 1
IntCmp $R3 0 loop1

StrCpy $R5 $R1 1 -$R3

StrCmp $R4 $R5 Found
Goto loop2
Goto loop1

exit:
;Not found!!!
StrCpy $R1 ""
StrCpy $R0 ""
Goto Cleanup

Found:
StrLen $R3 $R0
IntOp $R3 $R3 - $R2
StrCpy $R1 $R0 $R3

IntOp $R2 $R2 - 1
IntOp $R3 $R3 + 1
StrCpy $R0 $R0 $R2 $R3

Cleanup:
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Exch $R0
Exch 1
Exch $R1

FunctionEnd
;--------------------------------
; CheckMinSQLVersion
;
; Written by Matthew Kershaw (matthew.kershaw@us.didata.com)
;
; For this function the min SQL version must be SQL2kSP2 ...
; typically the SQLServer version is located in
; HKLM\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion\CurrentVersion
; but for SPs, the new version is located in
; HKLM\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion\CSDVersion.
; For SP2, the value is 8.00.534. If the CSDVersion key does not exist,
; no SP has been installed.
Function CheckMinSQLVersion

ClearErrors

ReadRegStr $0 HKLM "SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion" "CurrentVersion"
IfErrors SQLServerNotFound SQLServerFound

SQLServerFound:
ReadRegStr $4 HKLM "SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion" "CSDVersion"
IfErrors SPNotFound SPFound

SPFound:

;Check the first digit of the version; must be 8
StrCpy $0 $4
StrCpy $1 $0 1
StrCmp $1 "8" SQLServer2000Found SQLServerVersionError
Goto ExitCheckMinSQLVersion

SQLServer2000Found:

Push $0
Push "."
Call StrTok;For an example string of "8.00.194", "8" and "00.194" now on stack
Pop $2
Push "."
Call StrTok;"00" and "194" now on stack
Pop $2
Pop $3

IntCmp $3 534 0 SQLServerVersionError 0
Push 1
Goto ExitCheckMinSQLVersion

SQLServerVersionError:
MessageBox MB_OK|MB_ICONEXCLAMATION "此产品需要SQLServer的最低版本为 v8.00.534 (SQLServer 2000, SP2);检测到当前版本为$0。安装程序将中止。"
Push 0
Goto ExitCheckMinSQLVersion

SQLServerNotFound:
MessageBox MB_OK|MB_ICONEXCLAMATION "安装程序未能检测到Microsoft SQLServer，这是必须安装的。安装程序将中止。"
Push 0
Goto ExitCheckMinSQLVersion

SPNotFound:
MessageBox MB_OK|MB_ICONEXCLAMATION "MicrosfotSQLServer v $0 已安装。SQLServer 2000 SP2 (or later)必须安装。安装程序将中止。"
Push 0
Goto ExitCheckMinSQLVersion

ExitCheckMinSQLVersion:

FunctionEnd

2、调用

Call CheckMinSQLVersion
Pop $0
IntCmp $0 1 +2
Abort