Iniciar y Detener un Servicio en Windows 7 x32 y x64

[[nlsgarcia]]

Club Delphi,

Revisen este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinSvc;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
   Machine = '\\MachineName'; // Machine = '\\127.0.0.1';  
   Service = 'Active@ Disk Monitor';

// Inicia un Servicio en Windows 7
function ServiceStart(Machine, Service: String) : Boolean;
var
   schm,
   schs: SC_Handle;
   ss: TServiceStatus;
   psTemp: PChar;
   dwChkP: DWord;

begin

   ss.dwCurrentState := 1;
   schm := OpenSCManager(PChar(Machine), SERVICES_ACTIVE_DATABASE, SC_MANAGER_CONNECT);

   if (schm>0) then
   begin

      schs := OpenService(schm, PChar(Service), SERVICE_START or
      SERVICE_QUERY_STATUS);

      if (schs>0) then
      begin
         psTemp := nil;
         if (StartService(schs, 0, psTemp)) then
            if (QueryServiceStatus(schs, ss)) then
               while (SERVICE_RUNNING<>ss.dwCurrentState) do
               begin
                  dwChkP := ss.dwCheckPoint;
                  Sleep(ss.dwWaitHint);
                  if (not QueryServiceStatus(schs, ss)) then
                     Break;
                  if (ss.dwCheckPoint < dwChkP) then
                     Break;
               end;
         CloseServiceHandle(schs);
      end;

      CloseServiceHandle(schm);

   end;

   Result := SERVICE_RUNNING=ss.dwCurrentState;

end;

// Detiene un Servicio en Windows 7
function ServiceStop(Machine, Service: String) : Boolean;
var
   schm,
   schs: SC_Handle;
   ss: TServiceStatus;
   dwChkP: DWord;

begin

   schm := OpenSCManager(PChar(Machine), nil, SC_MANAGER_CONNECT);

   if (schm>0) then
   begin

      schs := OpenService(schm, PChar(Service), SERVICE_STOP or
      SERVICE_QUERY_STATUS);

      if (schs>0) then
      begin
         if (ControlService(schs, SERVICE_CONTROL_STOP, ss)) then
            if (QueryServiceStatus(schs, ss)) then
               while (SERVICE_STOPPED<>ss.dwCurrentState) do
               begin
                  dwChkP := ss.dwCheckPoint;
                  Sleep(ss.dwWaitHint);
                  if (not QueryServiceStatus(schs, ss)) then
                     Break;
                  if (ss.dwCheckPoint < dwChkP) then
                     Break;
               end;
         CloseServiceHandle(schs);
      end;

      CloseServiceHandle(schm);

   end;

   Result := SERVICE_STOPPED=ss.dwCurrentState;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Msg : String;

begin

   if (ServiceStart(Machine, Service)) then
   begin
      Msg := 'Servicio Iniciado Satisfactoriamente';
      MessageDlg(Msg,mtInformation,[mbOK],0);
   end
   else
   begin
      Msg := 'Servicio No Iniciado Satisfactoriamente';
      MessageDlg(Msg,mtError,[mbOK],0);
   end

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   Msg : String;

begin

   if (ServiceStop(Machine, Service)) then
   begin
      Msg := 'Servicio Finalizado Satisfactoriamente';
      MessageDlg(Msg,mtInformation,[mbOK],0);
   end
   else
   begin
      Msg := 'Servicio No Finalizado Satisfactoriamente';
      MessageDlg(Msg,mtError,[mbOK],0);
   end

end;

end.

El código anterior permite iniciar o detener un Servicio en Windows por medio de las Service Functions APIs. El código fue realizado en Delphi 7 y Delphi 2010 y funciono correctamente en Windows 7 Professional x32 y x64.

Espero sea útil

Nelson.