利用installshield实现silverlight伪WinFrom安装--转

众所周知silverlight OOB模式可以在浏览器中右键直接安装，
我这里介绍如何把silverlight程序做成单独的EXE安装程序。
思路：
 1.命令行安装xap
 2.安装完成删除控制面板中OOB自带的XAP的卸载
 3.installshield安装程序卸载同时也卸载silverlight程序

准备知识:
 在看这篇文章之前需要了解silverlight部署和installshield技术。

感谢:
 感谢我的好友FTPWMD提供installshield技术支持。

sllauncher命令参见：
 http://tech.it168.com/a2010/0810/1088/000001088696_1.shtml

installshield代码：

 

 

//自定义函数     
export prototype BOOL SaveUninstall(string); 
export prototype BOOL RemoMveUninstall();    
export prototype InstallXap();   
export prototype UnInstallXap();    
export prototype CheckSilverlightAndInstall(); 

//检测silverlight是否安装
function CheckSilverlightAndInstall()
    STRING szName;
    NUMBER nReturn; 
begin            

    RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );  
    szName  = "SOFTWARE\\Microsoft\\Silverlight"; 
    nReturn = RegDBKeyExist(szName); 
    if(nReturn<0)  then    
        LaunchAppAndWait (SUPPORTDIR ^"Silverlight.exe", "", WAIT);    
    endif;
    
end;  
 
//保存卸载信息
function BOOL SaveUninstall(szpath)     

    STRING szName, szTitle,szValue; 

    NUMBER nType, nSize, nvType, nvSize; 
begin            

    RegDBSetDefaultRoot ( HKEY_CURRENT_USER );  
    
    szName  = "UninstallString"; 

    nType      = REGDB_STRING; 

    nSize      = -1; 
     
    RegDBGetKeyValueEx (szpath, szName, nvType, szValue, nvSize) ;
　　RegDBSetKeyValueEx ("SOFTWARE\\chuifeng", "UnInstall", REGDB_STRING, szValue,-1);
    
end;    

//删除xap的卸载方式
function BOOL RemoMveUninstall()
    string   szKEY1, svString ,svtring1;  
    LIST   listSubKeys,listNames; 
    NUMBER nReturn, nResult,nvItem,nLocation;
begin 
    
    szKEY1="Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall";
    
    listSubKeys  = ListCreate(STRINGLIST); 
    listNames    = ListCreate(STRINGLIST);     
    
    if ((listNames = LIST_NULL) || (listSubKeys  = LIST_NULL)) then
        MessageBox ("Unable to create necessary lists.", SEVERE);
        abort;
    endif;
    
    RegDBSetDefaultRoot ( HKEY_CURRENT_USER );
    
    nReturn = RegDBQueryKey(szKEY1, REGDB_KEYS, listSubKeys );  
    
    if (nReturn >= 0) then   
        
        nReturn = ListGetFirstString (listSubKeys, svString);   
        
        while (nReturn != END_OF_LIST) 
            
            nLocation = StrFind (svString,"imd.mdrtbase.com");
            if (nLocation >= 0) then //not found  
            
                svtring1=szKEY1+"\\"+svString;   
                
                SaveUninstall(svtring1)  ;        
                
                RegDBDeleteKey (svtring1);  
                
                return TRUE;                      
            endif;

            nResult = ListGetNextString (listSubKeys, svString);  
            
        endwhile; 

    endif; 
    
    ListDestroy (listNames);
    ListDestroy (listSubKeys ); 
end;  

//安装silverlight xap
function InstallXap()  
    string  szProgram , szCmdLine ,szXapPath,szUrl,szCommd;
begin     
    szProgram="C:\\Program Files\\Microsoft Silverlight\\sllauncher.exe";
    szXapPath=  SUPPORTDIR ^"chuifeng.xap";
    szUrl= "http://www.chuifeng.com/ClientBin/chuifeng.xap";  
    szCommd= " /overwrite /shortcut:desktop+startmenu";
    szCmdLine="/install:\"" + szXapPath + "\""+ szCommd + " /origin:" + szUrl;
    LaunchAppAndWait (szProgram, szCmdLine, WAIT);
end;  

//卸载silverlight xap
function UnInstallXap()   
    STRING szKey, szName, szValue, szTitle, szMsg,szCommand,szPament; 

    NUMBER nType, nSize, nvType, nvSize,nvCount,nvlength; 
begin 
    RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );    
    
    szKey="SOFTWARE\\chuifeng";    
    
    szName  = "Uninstall"; 

    nType      = REGDB_STRING; 

    nSize      = -1; 
     
    if (RegDBGetKeyValueEx (szKey, szName, nvType, szValue, nvSize) < 0) then 
        MessageBox ("RegDBGetKeyValueEx failed.", SEVERE); 
    else  
        nvCount= StrFind (szValue, "-uninstallApp");  
        StrSub (szCommand, szValue, 0, nvCount); 
        nvlength= StrLength(szValue);    
        StrSub (szPament, szValue, nvCount,nvlength ); 
        LaunchAppAndWait ("\""+szCommand+"\"", szPament, WAIT);
    endif;  
end;