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;