installshield 中,在安装之前如何检测系统未有注册Shockwave Flash控件?给180分还有一帖

Question

http://expert.csdn.net/Expert/topic/1402/1402715.xml?temp=.3606226
该未结帖分数也送了

Answer 1

在installshield的脚本文件中判断它的注册表键.

Answer 2

function CheckFlashPlayerVersion()
LONG lResult,lResultRoot,lResultKey;
STRING szName,szValue,szKey,svVersionValue;
NUMBER nType, nSize,nVar;   
begin
    szName  = "";
    nType   = REGDB_STRING;
    nSize   = -1;
    szKey   = "CLSID\\{D27CDB6E-AE6D-11cf-96B8-444553540000}\\InprocServer32";
    lResultRoot = RegDBSetDefaultRoot(HKEY_CLASSES_ROOT);
    
    if( lResult = 0) then
     lResultKey = RegDBGetKeyValueEx (szKey, szName, nType, szValue,
                                nSize);
    elseif( lResult < 0) then
     return 0;
    endif;
                                  
    if( lResultKey = 0) then
        lResult = VerGetFileVersion (szValue, svVersionValue);
        if( lResult = 0) then
         StrToNum(nVar,svVersionValue);
         return nVar;
        elseif( lResult < 0) then
         return 0;
        endif;
    endif;
end;