Windows 7 Güvenlik Duvarı

[zengin]

s.a

Windows 7 Güvenlik Duvarı hakkında daha önceden cok konuşulmuş olmasına rağmen sonuç alamadım ben Güvenlik Duvarını delphi ile açıp kapatmak istiyorum fakat buradaki örneklerlede deneme yaptım sonuç alamadım

örnek : Denetim Masası\Tüm Denetim Masası Öğeleri\Windows Güvenlik Duvarı\Ayarları Özelleştir
açmak istiyorum
bu konuda yardımlarınızı bekliyorum kolay gelsin

[vkamadan]

Merhabalar , rundll32.exe yi kullanarak shell32.dll e firewall appletini parametre geçerek aşağıdaki örnekte olduğu gibi çalıştırabilirsiniz,

Kod: Tümünü seç

WinExec(PChar('rundll32.exe shell32.dll,'+
    'Control_RunDLL Firewall.cpl'),SW_SHOWNORMAL);

eğer port yada program eklemek istiyorsanız bunu doğrudan Firewall a COM üzerinden erişip doğrudan yazılımınızada yaptırabilrisiniz.

Kod: Tümünü seç

procedure addPortToFirewall(EntryName: string;
  PortNumber: Cardinal);
var
  fwMgr,port:OleVariant;
  profile:OleVariant;
begin
  fwMgr := CreateOLEObject('HNetCfg.FwMgr');
  profile := fwMgr.LocalPolicy.CurrentProfile;
  port := CreateOLEObject('HNetCfg.FWOpenPort');
  port.Name := EntryName;
  port.Protocol := NET_FW_IP_PROTOCOL_TCP;
  port.Port := PortNumber;
  port.Scope := NET_FW_SCOPE_ALL;
  port.Enabled := true;
  profile.GloballyOpenPorts.Add(port);
end;

// kullanımı
addPortToFirewall('MySQL' , 3306) ;

Kolay gelsin.

[zengin]

s.a

Ustacıgım vermiş oldugun bu kod yeterli oldu

Kod: Tümünü seç

WinExec(PChar('rundll32.exe shell32.dll,'+'Control_RunDLL Firewall.cpl'),SW_SHOWNORMAL);

Cok teşekkür ederim sizlerede kolay gelsin