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

V8.24

Browse Source
This commit is contained in:
f1iwq2
2023-10-19 13:04:16 +02:00
parent 138f0918df
commit b33561a463
16 changed files with 1578 additions and 793 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UnitPareFeu.pas
View File

@@ -24,7 +24,7 @@ Const
NET_FW_MODIFY_STATE_INBOUND_BLOCKED=2;
nom_regle_cdm='CDM rail';
// Ajoute une règle à un programme en utilisant Microsoft Windows Firewall APIs.
// Ajoute une règle au pare feu pour un programme en utilisant Microsoft Windows Firewall APIs.
function AddApplicationRule : boolean;
var
CurrentProfiles,fwPolicy2,RulesObject,NewRule : OleVariant;
@@ -32,7 +32,7 @@ var
r : boolean;
begin
fichier:=CheminProgrammes+'\CDM-Rail\cdr.exe';
// Crée l'objet FwPolicy2
fwPolicy2:=CreateOleObject('HNetCfg.FwPolicy2');
RulesObject:=fwPolicy2.Rules;