چطور می شه یه پورت رو در سیستم باز کردن بدون اینکه 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.