سؤال حول windows firewall

[nacer dj]

السلام عليكم ورحمة الله تعالى وبركاته
كيف أجعل هذه النافذة لاتظهر عند تشغيل برنامجي

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
جرب:

PHP كود :

uses
  WinSvc, ShellAPI;

procedure StopFirewall;
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StopFirewall;
end; 


بالتوفيق.

[nacer dj]

مشكور
ناجح 100%