Pesquisar no Programero

sexta-feira, 14 de novembro de 2008

Iniciar e Parar Serviços do Windows (Delphi)

Em certas ocasiões nos deparamos com a necessidade de manipular determinadas atividades do SO, como iniciar ou parar um banco de dados, ou qualquer outro serviço que esteja funcionando no momento. Segue abaixo um código que encontrei na Internet para tal finalidade (não me recordo à fonte, assim que eu a encontrar colocarei).

Iniciar Serviço:

uses WinSvc;
//
// start service
//
// return TRUE if successful
//
// sMachine:
//   machine name, ie: \SERVER
//   empty = local machine
//
// sService
//   service name, ie: Alerter
//
function ServiceStart(
  sMachine,
  sService : string ) : boolean;
var
  //
  // service control
  // manager handle
  schm,
  //
  // service handle
  schs   : SC_Handle;
  //
  // service status
  ss     : TServiceStatus;
  //
  // temp char pointer

  psTemp : PChar;
  //
  // check point

  dwChkP : DWord;
begin
  ss.dwCurrentState := -1;
  // connect to the service
  // control manager
  schm := OpenSCManager(
    PChar(sMachine),
    Nil,
    SC_MANAGER_CONNECT);
  // if successful...
if(schm > 0)then
begin
    // open a handle to
    // the specified service
    schs := OpenService(
      schm,
      PChar(sService),
      // we want to
      // start the service and
      SERVICE_START or
     // query service status
      SERVICE_QUERY_STATUS);
   // if successful...
if(schs > 0)then
begin
      psTemp := Nil;
if(StartService(
           schs,
           0,
           psTemp))then
begin
  // check status
if(QueryServiceStatus(
             schs,
             ss))then
begin
while(SERVICE_RUNNING
            <> ss.dwCurrentState)do
begin
           //
            // dwCheckPoint contains a
            // value that the service
            // increments periodically
            // to report its progress
            // during a lengthy
            // operation.
            //
            // save current value
            //
            dwChkP := ss.dwCheckPoint;
          //
            // wait a bit before
            // checking status again
            //
            // dwWaitHint is the
            // estimated amount of time
            // the calling program
            // should wait before calling
            // QueryServiceStatus() again
            //
            // idle events should be
            // handled here...
            //
            Sleep(ss.dwWaitHint);
if(not QueryServiceStatus(
                 schs,
                 ss))then
begin
          // couldn't check status
              // break from the loop
              break; 
end;
if
(ss.dwCheckPoint <
              dwChkP)then
begin
         // QueryServiceStatus
              // didn't increment
              // dwCheckPoint as it
              // should have.
              // avoid an infinite
              // loop by breaking
              break;
       end;
          end;
        end;
      end;
     // close service handle
      CloseServiceHandle(schs);
   end;
  // close service control
    // manager handle
    CloseServiceHandle(schm);
  end;
// return TRUE if
  // the service status is running
  Result :=
    SERVICE_RUNNING =
      ss.dwCurrentState;
end;

Parar Serviço:

//
// stop service
//
// return TRUE if successful
//
// sMachine:
//   machine name, ie: \SERVER
//   empty = local machine
//
// sService
//   service name, ie: Alerter
//
function ServiceStop(
  sMachine,
  sService : string ) : boolean;
var
//
  // service control
  // manager handle
  schm,
//
  // service handle

  schs   : SC_Handle;
//
  // service status
ss     : TServiceStatus;
  //
  // check point

  dwChkP : DWord;
begin
// connect to the service
  // control manager

  schm := OpenSCManager(
    PChar(sMachine),
    Nil,
    SC_MANAGER_CONNECT);
// if successful...
if(schm > 0)then
begin
// open a handle to
    // the specified service

    schs := OpenService(
      schm,
      PChar(sService),
   // we want to
      // stop the service and
      SERVICE_STOP or
   // query service status
      SERVICE_QUERY_STATUS);
// if successful...
if(schs > 0)then
begin
if(ControlService(
           schs,
           SERVICE_CONTROL_STOP,
           ss))then
begin
  // check status
if(QueryServiceStatus(
             schs,
             ss))then
begin
while(SERVICE_STOPPED
            <> ss.dwCurrentState)do
begin
            //
            // dwCheckPoint contains a
            // value that the service
            // increments periodically
            // to report its progress
            // during a lengthy
            // operation.
            //
            // save current value
            //
            dwChkP := ss.dwCheckPoint;
      //
            // wait a bit before
            // checking status again
            //
            // dwWaitHint is the
            // estimated amount of time
            // the calling program
            // should wait before calling
            // QueryServiceStatus() again
            //
            // idle events should be
            // handled here...
            //
            Sleep(ss.dwWaitHint);
if(not QueryServiceStatus(
                 schs,
                 ss))then
begin
        // couldn't check status
              // break from the loop
              break; 
end;
if(ss.dwCheckPoint <
              dwChkP)then
begin
            // QueryServiceStatus
              // didn't increment
              // dwCheckPoint as it
              // should have.
              // avoid an infinite
              // loop by breaking
              break;
          end;
          end;
        end;
      end;
   // close service handle
      CloseServiceHandle(schs);
    end;
  // close service control
    // manager handle
    CloseServiceHandle(schm);
  end;
// return TRUE if
  // the service status is stopped
  Result :=
    SERVICE_STOPPED =
      ss.dwCurrentState;
end;

Exemplo de uso:

Para inciar:
   ServiceStart('nome_do_computador', 'nome_do_servico');
Para parar:
   ServiceStop('nome_do_computador', 'nome_do_servico');

 

Exemplo completo

Para aqueles que encontraram alguma dificuldade em implementar, ou que estejam buscando uma maneira de faze-lo segue um exemplo completo e rodando, qualquer dúvida é só postar nos comentários.

13 comentários:

  1. Meu amigo, não entendo nadica de nada de informática, mas vim agradecer suas visitas ao meu blog. Uma ótima semana. Abraços

    ResponderExcluir
  2. OLÁ SÓ FAZENDO UMA VISITNHA, ADORO INFORMÁTICA , PASSEANDO AQUI NA NET ACABEI ENCONTRANDO SEU BLOG, MUITO BOM!!! ABRAÇOS.

    ResponderExcluir
  3. Olá amigo. Essa função ServiceStop, quando executa, para o serviço, mas trava o aplicativo. E na função ServiceStart, quando roda dá um erro na linha "ss.dwCurrentState := -1; " não aceita valor negativo !

    ResponderExcluir
  4. Olá amigo Anônimo, este código é utilizado por mim já a algum tempo em aplicações a muito em produção, nunca tive nenhum problema, mas mesmo assim irei construir um exemplo e postarei o link para download aqui em breve, abraços e obrigado pelo comentário...

    ResponderExcluir
  5. A todos que se interessarem hoje criei um pequeno programa que para e inicia serviços, exemplificando a matéria desse post, ele pode ser baixado pelo link indicado, qualquer dúvida estamos ai...

    ResponderExcluir
  6. Ok, funcionou bacana fiz um timer para ver se o sistema estava travando e na verdade nao, ele estava processando, para iniciar o serviço ele gasta 22 segundos e para para 1 minuto.
    quanto ao Negativo que não funciona é so tirar o sinal.

    Valeu irmao, esta precisando disto e não conseguia.

    Obrigado
    Segue ai o Log Iniciar:
    Inicio:19/02/2011 14:35:27
    Fim:19/02/2011 14:35:49
    Total:30/12/1899 00:00:22

    Segue ai o Log Parar:
    Inicio: 19/02/2011 14:35:55
    Fim:19/02/2011 14:36:55
    Total:30/12/1899 00:01:00

    ResponderExcluir
  7. Ola, estou tendo dificuldades em fazer sua rotina funcionar no windows 7. Ja tentei executar como administrador, mas não funciona.

    Tem alguma sugestão?

    ResponderExcluir
  8. Uhulll.. Valeu.. muito bom.funcionou que é uma uva.

    ResponderExcluir
  9. Muito bom, ajudou bastante!

    ResponderExcluir
  10. E isso ae! Parabens!

    http://www.kupsoft.com
    Junior Penascais

    ResponderExcluir
  11. Valeu!
    Muito obrigado.
    Funcionou em rede perfeitamente.

    ResponderExcluir
  12. Eduardo, muito boa as funções, porém acho que voce esqueceu de dizer que só funcionar se executar em modo Administrador, de outra forma não funciona.

    Outra coisa, a propriedade dwCurrentState:=-1 não é aceitável no Delphi2010, talvez no Delphi 7, não testei ainda. Portanto para essa delphi 2010 o valor iniciar deve ser 0.

    Mas de fato é uma baita ferramenta

    Obrigado
    Marcelo Narezzi

    ResponderExcluir
  13. Marcelo e Eduardo, confirmando agora que nem no Delphi 7 o dwCurrentState=-1 é aceitável. Aqui só rodou com o valor 0.

    Redbob

    ResponderExcluir

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.