Install Shield制作安装包技巧（注册篇）

1、IIS或PWS虚拟目录

 

 

 

 

 

 

 

对于B/S版本的安装，可以用Install Shield创建IIS虚拟目录（在win2000下面可以用VirtualRoot.ADSI对象，Win98下面直接写注册表）。

//win2000下设置IIS虚拟目录

prototype SetVirtualRootbyNT(STRING, STRING);

//传入路径,虚拟目录名

function SetVirtualRootbyNT(szPath, szVirtualRoot)

       VARIANT objVR;   

begin

       objVR = CreateObject("VirtualRoot.ADSI");

       if !IsObject(objVR) then

              return FALSE;

       endif;

      

       if (objVR.AddVirtualRoot("localhost", TARGETDIR + "//" + szPath, szVirtualRoot) == 1) then

              return TRUE;

       else           

              return FALSE;

       endif;

end;

 

 

 

 

 

 

 

 

//win98下设置PWS虚拟目录

prototype SetVirtualRootby9X(STRING, STRING);

                                      //传入路径,虚拟目录名

function SetVirtualRootby9X(szPath, szVirtualRoot)

       VARIANT objVR;

       STRING szKey,szName;

begin

       RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );

      

       //判断是否安装PWS或IIS

       if (RegDBKeyExist ("Software//Microsoft//InetStp") < 0) then

           MessageBox("您需要建立PWS或者是IIS服务", INFORMATION);

           return FALSE;

    endif;

   

    szKey = "System//CurrentControlSet//Services//W3SVC//Parameters//Virtual Roots";

   

    szName = "/" + szVirtualRoot; //虚拟目录名为EcreateRestaurant

 

 

 

 

 

 

 

 

       if (RegDBSetKeyValueEx (szKey , szName , REGDB_STRING , TARGETDIR + szPath + ",,201" , -1 ) < 0 ) then

              return FALSE;

       endif;

      

       return TRUE;

 

 

 

 

 

 

 

 

end;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2、删除COM组件

 

 

 

 

 

 

 

prototype DeleteCOM(STRING);                          //传入COM组件名

function DeleteCOM(szCOMAppName)

       VARIANT objComManage;

       NUMBER  nvOS;

       STRING svResult;

begin

       if szCOMAppName = "" then

              return TRUE;

       endif;

       if (GetSystemInfo ( OS , nvOS , svResult )!= 0) then

            return FALSE;

       endif;

      

       if (nvOS == IS_WINDOWSNT) then

              objComManage = CreateObject("ComManage.DeleteCOM");

              if !IsObject(objComManage) then

                     return FALSE;

              endif;

          

           if objComManage.IsExistsCOMApp(szCOMAppName) then

                  

                        objComManage.StopCOMApp(szCOMAppName);

                  objComManage.DeleteCOMApp(szCOMAppName);

                    

              endif;

              return TRUE;

       endif;

end;

 

 

 

 

 

 

 

 

3、注册Delphi下的sockSrv服务及中间件服务器

以下函数仅用于Delphi下开发的应用程序

 

 

 

 

 

 

 

//安装套接字服务器

 

 

 

 

 

 

 

prototype InstallSocketSrv(STRING);                 //传入路径

function InstallSocketSrv(szPath)

       STRING szSockSrv;

       NUMBER nResult;

 

 

 

 

 

 

 

 

begin

       RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );

       nResult = RegDBKeyExist("//SYSTEM//CurrentControlSet//Services//GraspSocktSrvr");

    if nResult < 0 then          

       //szSockSrv = TARGETDIR + "//" + szPath;

       if (LaunchAppAndWait (szPath, "/install", WAIT) < 0) then

          return TRUE; 

       endif;

    endif;

      

       return TRUE;

end;                                     

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

//注册应用服务器

prototype InstallAppServer(STRING);  

                                      //传入路径

function InstallAppServer(szPath)

       STRING szKey;

       NUMBER Result;

begin

       RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );

     //注册CLASS                         

    szKey = "//Software//CLASSES//CLSID//" + @U_Reg_AppClass + "//LocalServer32";

    if (RegDBCreateKeyEx (szKey, '') >= 0) then

           RegDBSetKeyValueEx (szKey, '', REGDB_STRING, szAppPath, -1);

    endif;

    //注册TLB

    szKey = "//Software//CLASSES//TypeLib//" + @U_Reg_AppTLB + "//1.0//0//win32";

    if (RegDBCreateKeyEx (szKey, '') >= 0) then

           RegDBSetKeyValueEx (szKey, '', REGDB_STRING, szAppPath, -1);

    endif;

    //注册TLB

    szKey = "//Software//CLASSES//TypeLib//" + @U_Reg_AppTLB + "//1.0//HELPDIR";

    if (RegDBCreateKeyEx (szKey, '') >= 0) then

           RegDBSetKeyValueEx (szKey, '', REGDB_STRING, TARGETDIR, -1);

    endif; 

      

end;

 

附：

 regedit.exe的参数

filename      导入 .reg 文件进注册表

/s            导入 .reg 文件进注册表（安静模式）

/e            导出注册表文件

              例：regedit /e filename.reg HKEY_LOCAL_MACHINE/SYSTEM

/L:system     指定 system.dat

/R:user       指定 user.dat

/C            压缩 [文件名] (Windows 98)