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

From

Alex Shakhajlo (2:461/701)

To

Andrey Mikhaylin ()

Date

2001-10-16T03:23Z

Area

SU.WINDOWS.NT.PROG

Hi, Andrey!

15 Oct 01 11:41, Andrey Mikhaylin said to All:

 AM> Подскажите как из пpогpаммы (D5) осуществить сабж. Можно с ссылкой на
 AM> и-нет.

var sch, srh: THandle;
    ServiceStatus: TServiceStatus;
begin
sch := openSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if sch <> 0 then begin
   srh := OpenService(sch, 'SeviceName', SERVICE_ALL_ACCESS);
   if srh <> 0 then begin
      ControlService(srh, SERVICE_CONTROL_STOP, ServiceStatus);
      CloseServiceHandle(srh);
   end;
   CloseServiceHandle(sch);
end;
end;

Если ServiceName - пеpеменная, то должна быть типа PChar или @(array of char)

Bye, Sinc, Alex

--- GoldED/W32 3.0.1
 * Origin: ! (2:461/701)