Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.05;
Скачать: CL | DM;

Вниз

Как можно программно перестартовать сервис?   Найти похожие ветки 

 
sergch   (2004-08-17 12:44) [0]

Возможно-ли это?


 
Digitman ©   (2004-08-17 12:47) [1]

см.

OpenSCManager
OpenService
ControlService
StartService


 
Ega23 ©   (2004-08-17 12:47) [2]

Да.


 
Ega23 ©   (2004-08-17 12:50) [3]


ProxAPI UPRStatus __stdcall UPRInstallDriver( LPSTR path,
   unsigned uBaseAddr, unsigned uCtrlAddr )
{
SC_HANDLE hSCMan;
SC_HANDLE hServ;

UPRStatus Status = UPRCheckDriverStatus();
if (Status and UPRStatusError) return Status;
if (Status and UPRStatusInstalled)
{
 hSCMan = OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS);
 if(!hSCMan)
  return (UPRStatusErrorSCManager);

 hServ = OpenService(hSCMan, DeviceName,  SERVICE_ALL_ACCESS);
  if(hServ)
  {
   SERVICE_STATUS ServStatus;
   QueryServiceStatus(hServ,&ServStatus);
   if(ServStatus.dwCurrentState == SERVICE_RUNNING )
    ControlService(hServ,SERVICE_CONTROL_STOP, &ServStatus);

   if(!DeleteService(hServ))
   {
    return UPRStatusErrorService;
   }
   else
    if(!CloseServiceHandle(hServ)) return UPRStatusErrorService;
  }
 
}

hServ = CreateService(hSCMan, DeviceName, DeviceName, SERVICE_ALL_ACCESS, SERVICE_KERNEL_DRIVER,
       SERVICE_AUTO_START, SERVICE_ERROR_IGNORE, (LPCTSTR)path, nil, nil,
       (LPCTSTR)"", nil, nil);
if (not hServ) return UPRStatusErrorService;

Status = UPRStartDriver();
return Status;
}




Страницы: 1 вся ветка

Текущий архив: 2004.09.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-1092848545
Holls
2004-08-18 21:02
2004.09.05
Thread creation error


6-1088860356
Delphi5.01
2004-07-03 17:12
2004.09.05
HTTP server + HTTP client


14-1092387785
Layner
2004-08-13 13:03
2004.09.05
Сбор платежей с Сев.Америки, Европы. Как им легче заплатить?


3-1092309455
strelok-47
2004-08-12 15:17
2004.09.05
проблема с лукапами в ADODataSet е


6-1088788913
Dextor
2004-07-02 21:21
2004.09.05
Файлы на IP адресе