Удаление службы Delphi

[aesoem]

Подскажите, чего то не понимаю... Пишу деинсталлятор для своей программы.

Пытаюсь удалить (предварительно остановленую) службу из своей программы

RunAsAdmin (0, GetAppData+'\SFS\StartSe.exe' ,'/uninstall') ;

RunAsAdmin - процедура запуска сторонней программы от им. админа

высвечивается уведомление windows о том что служба удалена, но по факту, она удаляется только после закрытия моей программы которая инициировала удаление службы...
Пробовал даже со своей программы запускать другую программу которая удаляет службу.. Промежуточная программа закрывается, но сервис по прежнему ждет закрытия программы инициатора)


Служба которую удаляю так-же написана в делфи... Получается нужно капать код удаления службы который Delphi автоматом создает для удаления службы(service.exe /uninstall)? Или делать своей собственный не палагаясь на delphi

[aesoem]

проблема найдена...
Я проверяю запущена ли служба этой функцией....

function StatusStartService:Boolean;
var ssStatus: SERVICE_STATUS;
    schSCManager: SC_HANDLE;
    schService: SC_HANDLE;
begin

  try
  schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
  if schSCManager=0 then RaiseLastOSError;
  schService:=OpenService(schSCManager,'SFSS'#0,SERVICE_ALL_ACCESS);
  if schService=0 then RaiseLastOSError;
  if(QueryServiceStatus(schService,ssStatus)) then begin
    case ssStatus.dwCurrentState of
      SERVICE_STOPPED: result:=false;
      SERVICE_RUNNING: result:=true;
    end;
  end;
  except
                         result:=false;
  end;
end;

после того как функция отрабатывает, она держит сервис и не дает ему закрыться...
что нужно сюда добавить чтобы функция отпустила сервис? что то с хендлом связано
_______________________________
Всем спасибо, косяка впарол...
забыл про CloseServiceHandle
кому интересно, вот рабочий код проверки

function StatusStartService:Boolean;
var ssStatus: SERVICE_STATUS;
    schSCManager: SC_HANDLE;
    schService: SC_HANDLE;
begin

  try
  schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
  if schSCManager=0 then RaiseLastOSError;
  schService:=OpenService(schSCManager,'SFSS'#0,SERVICE_ALL_ACCESS);
  if schService=0 then RaiseLastOSError;
  if(QueryServiceStatus(schService,ssStatus)) then begin
    case ssStatus.dwCurrentState of
      SERVICE_STOPPED: result:=false;
      SERVICE_RUNNING: result:=true;
    end;
  end;
  except
                         result:=false;
  end;
  CloseServiceHandle(schService);
end;