Главная страница
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.046 c
2-1143725492
TPot
2006-03-30 17:31
2006.04.16
Размер массива


1-1142348475
Алик
2006-03-14 18:01
2006.04.16
Печать документа с помощью ShellExecute на default принтере


4-1137259089
Guest386x
2006-01-14 20:18
2006.04.16
Блокирование клавиатуры


15-1143444875
KyRo
2006-03-27 11:34
2006.04.16
Фильтрация


2-1143708974
Вова2
2006-03-30 12:56
2006.04.16
Установка доступа к дискам!!!