1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| procedure TForm1.Button1Click(Sender: TObject);
const
NET_FW_PROFILE_DOMAIN = 0;
NET_FW_PROFILE_STANDARD = 1;
NET_FW_SCOPE_ALL = 0;
NET_FW_IP_VERSION_ANY = 2;
var
fwMgr: OleVariant;
profile: OleVariant;
app: OleVariant;
begin
try
fwMgr := CreateOleObject('HNetCfg.FwMgr');
// Obtient le profil actuel de la stratégie de pare-feu.
profile := fwMgr.LocalPolicy.CurrentProfile;
app := CreateOleObject('HNetCfg.FwAuthorizedApplication');
app.ProcessImageFileName := '%PROGRAMFILES%\Outlook Express\msimn.exe';// par exemple "Outlook "
app.Name := 'Outlook Express';
app.Scope := NET_FW_SCOPE_ALL;
// utilise l'un ou RemoteAddresses portée, mais pas les deux
// app.RemoteAddresses = '*'
app.IpVersion := NET_FW_IP_VERSION_ANY;
app.Enabled := True;
// Utilise cette ligne si vous voulez ajouter l'application, mais handicapés.
// app.Enabled = FALSE
profile.AuthorizedApplications.Add(app);
finally
app := VarNull;
profile := VarNull;
fwMgr := VarNull;
end;
end; |
