|
begin
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
szKey = "SOFTWARE\\Microsoft\\InetStp";
szName = "MajorVersion";
szType ="UD"; //I为安装 D为中间层
nvType = REGDB_STRING;
if(RegDBGetKeyValueEx(szKey, szName, nvType, svValue, nvSize) < 0) then
else
StrToNum(nvVersion, svValue);
if ( nvVersion == 6 ) then
szType = szType ^"6";
elseif(nvVersion >= 7) then
szType = szType ^"7";
endif;
endif;
regExe = CommonFilesFolder ^"\\E_DAS\\SetupRegistry.exe";
LaunchAppAndWait(regExe,szType,WAIT);
end; 版权声明:本文为博主原创文章,未经博主允许不得转载。 |
|
|