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

V5.74

Browse Source
This commit is contained in:
f1iwq2
2023-04-10 18:17:03 +02:00
parent a13df2cd9d
commit 5e35f9a042
36 changed files with 251 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
UnitPareFeu.pas
View File

@@ -7,7 +7,7 @@ function cree_regle : boolean;
implementation
uses
SysUtils,ActiveX,ComObj,Variants,UnitPrinc,Graphics,unitConfig;
SysUtils,ActiveX,ComObj,Variants,UnitPrinc,Graphics,unitConfig,verif_version;
Const
NET_FW_ACTION_ALLOW = 1;
NET_FW_IP_PROTOCOL_TCP = 6;
@@ -29,8 +29,8 @@ var
s,fichier : string;
r : boolean;
begin
r:=false;
if IsWow64Process then fichier:='C:\Program Files (x86)\CDM-Rail\cdr.exe' else fichier:='C:\Program Files\CDM-Rail\cdr.exe';
fichier:=CheminProgrammes+'\CDM-Rail\cdr.exe';
// Crée l'objet FwPolicy2
fwPolicy2:=CreateOleObject('HNetCfg.FwPolicy2');
RulesObject:=fwPolicy2.Rules;