Pular para o conteúdo principal

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.

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
    Respostas
    1. Obrigado pela participação Marcelo! Na época da post usávamos Windows XP, essas atualizações do Windows acabaram exigindo alguns ajustes extras ;-]

      Excluir
  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
  14. Parabéns Eduardo, e obrigado por compartilhar seu conhecimento. Fiz algumas adapatações para o meu ambiente pois utlizo enumerados para status e funcionou 100% utilizando Delphi CE 11.3. Incoroprei os créditos na classe que crei. Mais uma vez parabéns.

    ResponderExcluir
    Respostas
    1. Olá Lindomar! Fico feliz em ter ajudado e obrigado por comentar!

      Excluir

Postar um comentário

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

Mais visitadas

Aplicação Flask usando Nginx e Gunicorn

Aplicação Flask usando Nginx e Gunicorn Se você já desenvolveu uma aplicação Flask básica, sabe que o servidor de desenvolvimento embutido não é ideal para produção. Ele não é projetado para lidar com altos volumes de tráfego ou conexões simultâneas. Para tornar sua aplicação Flask mais robusta e pronta para produção, podemos usar o Gunicorn como servidor de aplicação e o Nginx como proxy reverso. Neste artigo, vamos adaptar o exemplo anterior ( Criando uma Aplicação CRUD com Flask, PostgreSQL e Docker ) para incluir o Nginx e o Gunicorn. O que são Nginx e Gunicorn? Gunicorn O Gunicorn (Green Unicorn) é um servidor de aplicação WSGI que roda aplicações Python como o Flask. Ele é eficiente e simples de configurar, lidando com múltiplas requisições ao mesmo tempo, algo que o servidor embutido do Flask não faz bem. Nginx O Nginx é um servidor web que atua como um proxy reverso. Ele recebe requisições HTTP e as encaminha ao Gunicorn. Além disso, o Nginx pode: Servir arquivos ...

Criando sua Primeira Aplicação Web com Python e Docker

  Criando sua Primeira Aplicação Web com Python e Docker Hoje vamos fazer algo prático: criar uma aplicação web simples em Python usando Flask e executá-la dentro de um contêiner Docker. Se você não sabe exatamente o que é Docker ou Flask, não se preocupe! Vou explicar tudo de forma simples para que você consiga acompanhar sem problemas. O que é Docker? Docker é uma ferramenta que permite empacotar aplicações e suas dependências em contêineres, garantindo que elas funcionem da mesma forma em qualquer ambiente. Em outras palavras, com o Docker, você cria um ambiente isolado e padronizado para rodar suas aplicações. Como instalar o Docker Acesse o site oficial do Docker . Baixe e instale a versão apropriada para o seu sistema operacional (Windows, macOS ou Linux). Após a instalação, verifique se está tudo funcionando abrindo um terminal e executando: docker --version Se o Docker estiver instalado corretamente, ele vai exibir a versão instalada. O que é Flask? Flask é um m...