Installshield 添加应用程序到防火墙例外

      
        function AddProcessFwauthor()

    STRING szCServer,szFServer,szTmp;

    OBJECT objFirewall, objProfile, objCS, objFS;

begin

    SdShowMsg(
      
      
        "
      
      
        将服务器添加到Windows防火墙例外程序中，请稍后...
      
      
        "
      
      
        , TRUE); 

    

    
      
      
        //
      
      
        要添加到防火墙程序的应用程序的完整路径：安装目录\WinClient.exe
      
      

    szCServer = TARGETDIR ^ (
      
        "
      
      
        WinClient
      
      
        "
      
       + 
      
        "
      
      
        .exe
      
      
        "
      
      
        );

    
      
      
        try
      
      
        set
      
       objFirewall = CoCreateObject(
      
        "
      
      
        HNetCfg.FwMgr
      
      
        "
      
      
        );

    
      
      
        catch
      
      
        

    endcatch;



    
      
      
        try
      
      
        set
      
       objProfile =
      
         objFirewall.LocalPolicy.CurrentProfile;

        
      
      
        set
      
       objCS = CoCreateObject(
      
        "
      
      
        HNetCfg.FwAuthorizedApplication
      
      
        "
      
      
        );

        szTmp 
      
      =
      
         szCServer;

        LongPathToQuote(szTmp, FALSE);

        objCS.ProcessImageFileName 
      
      =
      
         szTmp;  

        

        
      
      
        //
      
      
        要添加到防火墙例外程序的显示名称
      
      

        objCS.Name = 
      
        "
      
      
        WinClient
      
      
        "
      
      
        ;

        objCS.Scope 
      
      = 
      
        0
      
      
        ;

        objCS.RemoteAddresses 
      
      = 
      
        "
      
      
        *
      
      
        "
      
      
        ;

        objCS.IpVersion 
      
      = 
      
        2
      
      
        ;

        objCS.Enabled 
      
      =
      
         TRUE;

        objProfile.AuthorizedApplications.Add(objCS);

    
      
      
        catch
      
      
        

    endcatch;

    SdShowMsg(
      
      
        "
      
      
        将服务器添加到Windows防火墙例外程序中，请稍后...
      
      
        "
      
      
        , FALSE);

    
      
      
        return
      
      
         TRUE;

end;