Determine if Service is Running

Determine if a Windows service is currently running.

Note:This software is available as a pre-release.

Download the Chilkat Service ActiveX here: ChilkatService.zip
Unzip and register with regsvr32.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
service: ERROR;
retval: Integer;

begin
service := TChilkatService.Create(Self);

service.ServiceName := 'MyService';

//  returns -1 for failure (inability to check)
//  returns 1 if running.
//  returns 0 if not running.

retval := service.IsRunning();
if (retval < 0) then
  begin
    ShowMessage('Failed to query service control manager');
  end
else
  begin
    if (retval = 1) then
      begin
        ShowMessage('Service is running');
      end
    else
      begin
        ShowMessage('Service is not running');
      end;
  end;
end;