+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال حول windows firewall (/showthread.php?tid=2103)
سؤال حول windows firewall - nacer dj - 13-06-2010
السلام عليكم ورحمة الله تعالى وبركاته
كيف أجعل هذه النافذة لاتظهر عند تشغيل برنامجي
![[صورة: 795817545.jpg]](http://www3.0zz0.com/2010/06/13/10/795817545.jpg)
سؤال حول windows firewall - kachwahed - 13-06-2010
وعليكم السلام ورحمة الله وبركاته
جرب:
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;
سؤال حول windows firewall - nacer dj - 13-06-2010
مشكور
ناجح 100%