방화벽에 응용 프로그램 추가 예외

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;

테스트 통과, yeah!