//检测系统ServerPack版本,SP2前不支持则 abort
function CheckServerPackVersion()
BOOL bCheckSP;
begin
if(SYSINFO.WINNT.nServicePack <2) then
bCheckSP =FALSE;
if ((SYSINFO.nOSMajor == 5) && (SYSINFO.nOSMinor == 1)) then //Windows XP : 5.1
bCheckSP = TRUE;
elseif ((SYSINFO.nOSMajor == 5) && (SYSINFO.nOSMinor == 2)) then // Windows 2003
bCheckSP = TRUE;
endif;
if(bCheckSP = TRUE) then
switch (SELECTED_LANGUAGE)
case ISLANG_CHINESE_PRC:
MessageBox("安装程序需要 ServicePack 2 (含) 以上版本支持。", WARNING);
case ISLANG_ENGLISH:
MessageBox("For This setup the ServicePack version must be more than 2(Include) .", WARNING);
default:
MessageBox("For This setup the ServicePack version must be more than 2(Include).", WARNING);
endswitch;
abort;
endif;
endif;
end;