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

Вниз

Старт стоп сервиса   Найти похожие ветки 

 
maxim161 ©   (2006-01-31 19:31) [0]

В общем, сталкнулся с такой проблемой: Сервис установить\удалить командами servicename /(un)install я могу, а как стартануть\остановить сервис, может быть есть что-то вроде servicename /start...


 
xShadow ©   (2006-01-31 19:56) [1]

net start и net stop смотри


 
Джо ©   (2006-01-31 20:11) [2]

Смотри Service functions в SDK. В частности, стартует сервис функция StartServive, приостанавливает и останавливает функция ControlService с соответствующими параметрами, если не ошибаюсь.


 
Rouse_ ©   (2006-01-31 21:46) [3]

в ServiceName имя сервиса:

procedure StopService;
var
 SCManager, Service: SC_HANDLE;
 ServiceStatus: TServiceStatus;
begin
 SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
 if SCManager <> 0 then
 try
   Service := OpenService(SCManager, ServiceName, SERVICE_STOP);
   if Service <> 0 then
   try
     if not ControlService(Service, SERVICE_CONTROL_STOP, ServiceStatus)
       and (ServiceStatus.dwCurrentState = SERVICE_STOPPED) then
     begin
       ShowMessage("StopService > ControlService: [SERVICE_CONTROL_STOP] " + SysErrorMessage(GetLastError));
       Exit;
     end;
   finally
     CloseServiceHandle(Service);
   end;
 finally
   CloseServiceHandle(SCManager);
 end;      
end;

function RunService: Boolean;
var
 SCManager, Service: SC_HANDLE;
 P: PChar;
begin
 Result := False;
 SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
 if SCManager <> 0 then
 try
   Service := OpenService(SCManager, ServiceName, SERVICE_START);
   if Service <> 0 then
   try
     P := nil;
     Result := StartService(Service, 0, P) or
       (GetLastError = ERROR_SERVICE_ALREADY_RUNNING);
   finally
     CloseServiceHandle(Service);
   end
   else
     Result := GetLastError = ERROR_SERVICE_DOES_NOT_EXIST;
 finally
   CloseServiceHandle(SCManager);
 end;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.057 c
15-1143558642
oldman
2006-03-28 19:10
2006.04.16
Gluteus maximus...


2-1143754713
mr1Andersen
2006-03-31 01:38
2006.04.16
Блокировка


2-1144061876
Anatolik_
2006-04-03 14:57
2006.04.16
Уважаемые, подскажите есть в реестре ключик, хранящий дату


2-1143632624
apic
2006-03-29 15:43
2006.04.16
Уважаемые мастера, ПАМАГИТЕ!!!!!!!!!!!!!


2-1143822213
fast2
2006-03-31 20:23
2006.04.16
Как с помощ., SQL найти колличество записей, значения которых...