如何从Delphi中的服务名称/句柄中找到进程ID？

program GetProcessIDFromServiceName;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

function GetProcessIDFromServiceName(const ServiceName: string): DWORD;
var
  hSCManager: SC_HANDLE;
  hService: SC_HANDLE;
  dwProcessID: DWORD;
  dwBytesNeeded: DWORD;
  dwError: DWORD;
begin
  Result := 0;
  hSCManager := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if hSCManager = 0 then
    Exit;

  hService := OpenService(hSCManager, PChar(ServiceName), SERVICE_QUERY_STATUS);
  if hService = 0 then
  begin
    CloseServiceHandle(hSCManager);
    Exit;
  end;

  if QueryServiceStatus(hService, nil^, 0, dwBytesNeeded) then
  begin
    dwError := ERROR_INSUFFICIENT_BUFFER;
  end
  else
  begin
    dwError := GetLastError();
    if dwError <> ERROR_INSUFFICIENT_BUFFER then
    begin
      CloseServiceHandle(hService);
      CloseServiceHandle(hSCManager);
      Exit;
    end;
  end;

  dwBytesNeeded := dwBytesNeeded + 1024;
  GetMem(lpServiceStatus, dwBytesNeeded);
  try
    if QueryServiceStatus(hService, lpServiceStatus^, dwBytesNeeded, dwBytesNeeded) then
    begin
      dwProcessID := lpServiceStatus.dwProcessId;
      Result := dwProcessID;
    end;
  finally
    FreeMem(lpServiceStatus);
  end;

  CloseServiceHandle(hService);
  CloseServiceHandle(hSCManager);
end;

var
  dwProcessID: DWORD;
begin
  try
    dwProcessID := GetProcessIDFromServiceName('YourServiceName');
    if dwProcessID <> 0 then
      WriteLn(Format('Process ID: %d', [dwProcessID]))
    else
      WriteLn('Service not found');
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
  ReadLn;
end.