Çalışan program içerisinden firewall'u kapatmak için aşağıdaki şekilde bir kod kullanıyorum
Bu koda exe admin olarak çalışır ise düzgün çalışıyor fakat kullanıcı admin değil ise I/O error hatası veriyor
1. Bu kodu kullanıcı admin olsun yada olmasın çalıştırmanın bir yolu varmıdır
2. Calistiracağım exenin özelliklerindeki "Privilage Lavel" içerisindeki "Run this program as an administrator" dışarıdan set edilebilirmi.
Teşekkürler
Kod: Tümünü seç
Const
NET_FW_PROFILE2_DOMAIN = 1;
NET_FW_PROFILE2_PRIVATE = 2;
NET_FW_PROFILE2_PUBLIC = 4;
var
fwPolicy2 : OleVariant;
Kod: Tümünü seç
try
CoInitialize(nil);
try
begin
// Create the FwPolicy2 object.
fwPolicy2 := CreateOleObject('HNetCfg.FwPolicy2');
fwPolicy2.FirewallEnabled[NET_FW_PROFILE2_DOMAIN]:= False;
fwPolicy2.FirewallEnabled[NET_FW_PROFILE2_PRIVATE]:= False;
fwPolicy2.FirewallEnabled[NET_FW_PROFILE2_PUBLIC]:= False;
end;
finally
CoUninitialize;
end;
except
end;
