Как остановить службу Windows

[noname_06]

Доброго времени суток!
Пытаюсь разобраться с остановкой служб Windows. Использование sc stop не подходит, т.к. хочу отслеживать вариант "служба не запущена" и "не могу остановить". На основании нарытого в интернете получился следующий, но нерабочий, код :
Попытка №1 (Логику кода не понял, копипаст наугад. Хотя кое-что может и понял, но не уверен )

procedure TForm1.btn1Click(Sender: TObject);
var
  h_manager, h_svc: SC_Handle;
  svc_status: TServiceStatus;
  dwCheckPoint: DWord;
begin
  try
  h_manager:=OpenSCManager('',nil, SC_MANAGER_CONNECT);
  if h_manager > 0 then
  begin
    h_svc := OpenService(h_manager,PChar('MY TEST SERVICE NAME'),
    SERVICE_STOP or SERVICE_QUERY_STATUS);
    if h_svc > 0 then
    begin
      if(ControlService(h_svc,SERVICE_CONTROL_STOP, svc_status)) then
      begin
        if(QueryServiceStatus(h_svc,svc_status))then
        begin
          while(SERVICE_STOPPED <> svc_status.dwCurrentState)do
          begin
            dwCheckPoint := svc_status.dwCheckPoint;
            Sleep(svc_status.dwWaitHint);
            if(not QueryServiceStatus(h_svc,svc_status))then break;
            if(svc_status.dwCheckPoint < dwCheckPoint)then break;
          end;
        end;
      end;
      CloseServiceHandle(h_svc);
    end;
    CloseServiceHandle(h_manager);
  Memo1.Lines.Add('Служба остановлена');
  end;
  except
  Memo1.Lines.Add('Ошибка остановки службы' + IntToStr(GetLastError));
  end;
end;

РЕШЕНО:
Попытка №2

uses WinSvc;
...
procedure TForm1.btn1Click(Sender: TObject);
var
aa:cardinal;ess:TEnumServiceStatus;
begin
aa:=OpenService(OpenSCManager(nil,nil, SC_MANAGER_ALL_ACCESS),'mmcss',SERVICE_ALL_ACCESS);
mmo1.Lines.Add(IntToStr(aa));
ControlService(aa,SERVICE_CONTROL_STOP,ess.ServiceStatus);
mmo1.Lines.Add(IntToStr(GetLastError));
CloseServiceHandle(aa);
end;

//Код ошибки: 1051 (0x041B) Команда остановки была отправлена службе, от которой зависят другие службы. = все арбайтен)

Это нормально что хэндл службы постоянно меняется?

[GunSmoker]

Ты бы проверку ошибок расставил бы. Тогда и будет рабочий и надёжный. А не говно.

Это нормально что хэндл службы постоянно меняется?

Все описатели - суть вещь динамическая. Это нормально, что у тебя в гардеробе/раздевалке каждый раз другой номер?

[noname_06]

Все описатели - суть вещь динамическая

Видимо у меня сформировалось ошибочное мнение что хэндл служба получает при запуске и не меняет его во время выполнения.

Ты бы проверку ошибок расставил бы. Тогда и будет рабочий и надёжный. А не говно.

Вначале чтения Вашего ответа слово г***о вызвало острую попоболь , но потом вспомнил что этот код - лишь слегка адаптированная заготовка под мои нужды и в таком виде использоваться в программе не может (тут попоболь прошла ). По поводу ссылки - абсолютно согласен и ВСЕГДА стараюсь вначале ПОНЯТЬ как это работает, и лишь потом писать под свои нужды, сверяясь с образцом. Хотя каюсь, грешен, одно время был уверен, что можно жить нарезкой из чужого "выкака".

[GunSmoker]

Любой описатель формируется при открытии. Это не идентификатор. У одной службы может быть много описателей. К примеру, одну и ту же службу можно открыть два раза с разными правами. Получим два разных описателя.