function CheckXMLVer()
STRING szFileName, svPath, svVersionNumber;
NUMBER Result;
begin
szFileName = 'msxml3.dll';
Result = VerFindFileVersion(szFileName, svPath, svVersionNumber);
if Result = 0 then
return TRUE;
else
if LaunchAppAndWait("msxml3_cn.exe","",WAIT)<0 then
MessageBox ("msxml3_cn.exe安装文件不存在,请检查安装目录!", WARNING);
endif;
endif;
end;