Como identificar se um serviço esta instalado?

Delphi

20/02/2009

como faço para descobrir se um determinado Serviço do Windows esta instalado no computador atraves da aplicação?


Atenciosamente,
Pestana.


Pestana_

Pestana_

Curtidas 0

Melhor post

Marco Salles

Marco Salles

21/02/2009

Pestana meu filho, certa vez fiz uma função Verificar Serviços Instalados usando a API EnumServicesStatus .. E esta API que faz toda a mágica
Olha a assinatura desta API

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


esta definida na Unit WinSvc

Declare essa Unit na seccão uses da Interface

e defina a função

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


[b:ff36148612]Note que eu mantive o mesmo nome dos parâmetros da Api Original[/b:ff36148612]

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;


Para Chamar a função :

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


[b:ff36148612]cloque no Edit o Nome do Serviço...[/b:ff36148612]


GOSTEI 1

Mais Respostas

Pestana_

Pestana_

20/02/2009

bom dia Marco!

Obrigado por responder a minha dúvida, eu não tenho como olhar isso agora, mas assim que eu testar eu vou informar o resultado.


Atenciosamente,
Pestana.


GOSTEI 0
Pestana_

Pestana_

20/02/2009

Muito Obrigado Marco Salles funcionou do jeito que eu queria!!!


Abraços.


GOSTEI 0
Marco Salles

Marco Salles

20/02/2009

que Bom que tenha servido...


GOSTEI 0
POSTAR