Запуск/остановка сарвиса в NT

From

Vyacheslav Shubin ()

To

Andrey Mikhaylin ()

Date

2001-10-16T09:52:45Z

Area

SU.WINDOWS.NT.PROG

From: "Vyacheslav Shubin" <shubin@krista.ru>


Так удаляется сервис.

const
  ServiceName="Подопытный сервис";
var
  Serv : THandle;
  SCHANDLE : SC_HANDLE;
  ServiceStatus : TServiceStatus;
begin
  SCHANDLE := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if (SCHANDLE = 0) then RaiseLastWin32Error;
  Serv := OpenService(SCHANDLE, ServiceName,SERVICE_ALL_ACCESS);
  if (Serv = 0) then RaiseLastWin32Error;
  DeleteService(Serv);
  CloseServiceHandle(SCHANDLE);
  CloseServiceHandle(Serv);
end;

Если надо порулить его состоянием, то вместо DeleteService используется
QueryServiceStatus(Serv,ServiceStatus);
ServiceStatus.dwCurrentState := "Требуемое состояние" {SERVICE_STOPPED,}
SetServiceStatus(Serv,ServiceStatus);

Хочу обратить внимание что у сервиса есть 2 имени 1 - имя регистрации, 2 -
имя отображаемое в менеджере сервисов для пользователя. константа
ServiceName - имя регистрации.

Успехов. Вячеслав Шубин.

"Andrey Mikhaylin" <Andrey.Mikhaylin@p21.f1951.n5020.z2.fidonet.org>
сообщил/сообщила в новостях следующее:
news:3709911169@p21.f1951.n5020.z2.ftn...
>              -= It's a happy day to die, my friend!!! =-
>
> Подскажите как из программы (D5) осуществить сабж. Можно с ссылкой на
и-нет.
>
>             Inquisitor / ISC - [Incorrect Software Clan]
>             file://E-Mail: inquisit@sdf.lonestar.org
>             file://ICQ: 10505173
>             file://NetMail: 2:5020/1951.21 AKA 2:5020/779.777
>


--- ifmail v.2.15dev5
 * Origin: Krista NPO (2:5020/400)