Fórum Como identificar se um serviço esta instalado? #368616

 function EnumServicesStatus(hSCManager: SC_HANDLE; dwServiceType,
  dwServiceState: DWORD; var lpServices: TEnumServiceStatus; cbBufSize: DWORD;
  var pcbBytesNeeded, lpServicesReturned, lpResumeHandle: DWORD): BOOL; stdcall;

function VerificarService( nService,sMachine : string;
                           dwServiceType,dwServiceState : DWord): boolean;

function TForm1.VerificarService(nService, sMachine: string; dwServiceType,
                              dwServiceState: DWord): boolean;
const
  cnMaxServices = 4096;
type
  TSvcA = array[0..cnMaxServices]
          of TEnumServiceStatus;
  PSvcA = ^TSvcA;
var
  i : integer;
  hSCManager:SC_Handle;
  pcbBytesNeeded,
  lpServicesReturned,
  lpResumeHandle: DWord;
  lpServices: PSvcA;
begin
try
  Result := false;
  hSCManager := OpenSCManager(
    PChar(sMachine),
    Nil,
    SC_MANAGER_ALL_ACCESS);
  if(hSCManager > 0)then
  begin

    lpResumeHandle := 0;
    New(lpServices);

    EnumServicesStatus(
      hSCManager,
       dwServiceType,
      dwServiceState,
      lpServices^[0],
      SizeOf(lpServices^),
      pcbBytesNeeded,
      lpServicesReturned,
      lpResumeHandle);
    for i := 0 to lpServicesReturned-1 do

     if Uppercase(StrPas(lpServices^[i].lpServiceName)) = Uppercase(nService) Then
      begin
        Result := true;
        Break;
      end;
  end;
  finally
    Dispose(lpServices);
   CloseServiceHandle(hSCManager);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if VerificarService(edit1.text, ´´,
  SERVICE_WIN32,
  SERVICE_STATE_ALL) then
showmessage(´instalado´)
end;