13-06-2010, 11:54 AM
السلام عليكم ورحمة الله تعالى وبركاته
كيف أجعل هذه النافذة لاتظهر عند تشغيل برنامجي
![[صورة: 795817545.jpg]](http://www3.0zz0.com/2010/06/13/10/795817545.jpg)
كيف أجعل هذه النافذة لاتظهر عند تشغيل برنامجي
13-06-2010, 03:05 PM
وعليكم السلام ورحمة الله وبركاته
جرب:
بالتوفيق.
جرب:
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;
13-06-2010, 03:53 PM
مشكور
ناجح 100%
ناجح 100%