رد کردن Firewall

[a_b_toops]

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

[Valadi]

این کد غیر فعال کردن 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.

[Batman]

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