رد کردن Firewall

چطور می شه یه پورت رو در سیستم باز کردن بدون اینکه Firewall ویندوز سوالی نپرسه.

این کد غیر فعال کردن Firewall

uses

  Windows, winsvc, shellapi;

  

procedure Close_Firewal;

var

  SCM, hService: LongWord;

  sStatus: TServiceStatus;

begin

  SCM      := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);

  hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS);



  ControlService(hService, SERVICE_CONTROL_STOP, sStatus);

  CloseServiceHandle(hService);

end;



begin

  Close_Firewal;

end.

دستت درد نکنه آقا باحال بود