easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V9.0

Browse Source 
V9.0
This commit is contained in:
f1iwq2
2024-07-21 10:25:58 +02:00
parent f2cbfc2936
commit d2909cc5eb
43 changed files with 9783 additions and 3658 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
UnitPareFeu.pas
View File

@@ -38,13 +38,13 @@ begin
// Crée l'objet FwPolicy2
fwPolicy2:=CreateOleObject('HNetCfg.FwPolicy2');
RulesObject:=fwPolicy2.Rules;
CurrentProfiles:=fwPolicy2.CurrentProfileTypes;
//CurrentProfiles:=net_fw_profile2_private or net_fw_profile2_public;
// CurrentProfiles:=fwPolicy2.CurrentProfileTypes;
CurrentProfiles:=net_fw_profile2_private or net_fw_profile2_public; //autorise les profils privés et publics
//Crée l'objet de la règle.
NewRule:=CreateOleObject('HNetCfg.FWRule');
NewRule.Name:=sp;
NewRule.Name:=sp;
NewRule.Description:='Autorise le socket de/vers '+sp;
NewRule.Applicationname:=fichier;