Delphi 服务程序注册与卸载

uses winsvc;
function InstallService(ServiceName, DisplayName, FileName: string): boolean;
var
SCManager,Service: THandle;
Args: pchar;
begin
Result := False;
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCManager = 0 then Exit;
try
  Service := CreateService(SCManager, //句柄
                  PChar(ServiceName), //服务名称
                  PChar(DisplayName), //显示服务名
                  SERVICE_ALL_ACCESS, //服务访问类型
                  SERVICE_WIN32_OWN_PROCESS, //服务类型 or SERVICE_INTERACTIVE_PROCESS
                  SERVICE_AUTO_START, //自动启动服务
                  SERVICE_ERROR_IGNORE, //忽略错误
                  PChar(FileName), //启动的文件名
                  nil, //name of load ordering group (载入组名) 'LocalSystem'
                  nil, //标签标识符
                  nil, //相关性数组名
                  nil, //帐户(当前)
                  nil); //密码(当前)

  Args := nil;
  StartService(Service, 0, Args);
  CloseServiceHandle(Service);
finally
  CloseServiceHandle(SCManager);
end;
Result := True;
end;

procedure UninstallService(ServiceName: string);
var
SCManager,Service: THandle;
ServiceStatus: SERVICE_STATUS;
begin
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCManager = 0 then Exit;
try
  Service := OpenService(SCManager, PChar(ServiceName), SERVICE_ALL_ACCESS);
  ControlService(Service, SERVICE_CONTROL_STOP, ServiceStatus);
  DeleteService(Service);
  CloseServiceHandle(Service);
finally
  CloseServiceHandle(SCManager);
end;
end;

procedure ServiceCtrlHandler(Control: dword); stdcall;
begin
case Control of
  SERVICE_CONTROL_STOP:
  begin
    Stopped := True;
    Status.dwCurrentState := SERVICE_STOPPED;
  end;
  SERVICE_CONTROL_PAUSE:
  begin
    Paused := True;
    Status.dwcurrentstate := SERVICE_PAUSED;
  end;
  SERVICE_CONTROL_CONTINUE:
  begin
    Paused := False;
    Status.dwCurrentState := SERVICE_RUNNING;
  end;
  SERVICE_CONTROL_INTERROGATE: ;
  SERVICE_CONTROL_SHUTDOWN: Stopped := True;
end;
SetServiceStatus(StatusHandle, Status);
end;

取得當前系統已安裝的NtService

相關Api:  EnumServicesStatus

The EnumServicesStatus function enumerates services in the specified service control manager database. The name and status of each service are provided.

This function has been superseded by the EnumServicesStatusEx function. It returns the same information EnumServicesStatus returns, plus the process identifier and additional information for the service. In addition, EnumServicesStatusEx enables you to enumerate services that belong to a specified group.

BOOL EnumServicesStatus(
  SC_HANDLE hSCManager,
  DWORD dwServiceType,
  DWORD dwServiceState,
  LPENUM_SERVICE_STATUS lpServices,
  DWORD cbBufSize,
  LPDWORD pcbBytesNeeded,
  LPDWORD lpServicesReturned,
  LPDWORD lpResumeHandle
);

sample:

uses Windows,WinSvc;

function ServiceGetList(sMachine: string; dwServiceType,
  dwServiceState: DWord; slServicesList: TStrings): boolean;
var
  j: integer;
  schm: SC_Handle;
  nBytesNeeded, nServices, nResumeHandle: DWord;
  ServiceStatusRecs: array[0..511] of TEnumServiceStatus;
begin
  Result := false;
  schm := OpenSCManager(PChar(sMachine), nil, SC_MANAGER_ALL_ACCESS);
  try
    if (schm = 0) then Exit;
    nResumeHandle := 0;
    while True do
    begin
      EnumServicesStatus(schm, dwServiceType, dwServiceState, @ServiceStatusRecs[0], sizeof(ServiceStatusRecs),
        @nBytesNeeded, @nServices, @nResumeHandle);
      for j := 0 to nServices - 1 do
      begin
        slServicesList.Add(ServiceStatusRecs[j].lpDisplayName + '---' + ServiceStatusRecs[j].lpServiceName);
      end;
      if nBytesNeeded = 0 then Break;
    end;
    Result := true;
  finally
    if schm > 0 then
      CloseServiceHandle(schm);
  end;
end;

procedure TForm1.btnServiceGetListClick(Sender: TObject);
begin
  ServiceGetList('', SERVICE_WIN32, SERVICE_STATE_ALL, lbServices.Items);
end;