Delphi中从注册表检测MySQL Server服务状态的方法

嘿，我懂你现在的处境——之前用进程方式检测MySQL状态挺顺利，但想通过注册表查MySQL55服务的运行状态却没成功。其实这里有个容易踩的小坑：注册表只存服务的配置信息（比如启动类型、安装路径），它不会实时更新服务的当前运行状态，所以直接读注册表根本拿不到服务是否在跑的实时结果。

要检测服务的运行状态，得用Windows系统的服务控制管理器（SCM）API，这是最可靠的方式。下面给你完整的实现代码：

核心检测函数 #

uses
  Windows, SysUtils;

function IsMySQL55ServiceRunning: Boolean;
var
  hSCM: SC_HANDLE;
  hService: SC_HANDLE;
  ServiceStatus: SERVICE_STATUS;
begin
  Result := False;
  // 第一步：打开服务控制管理器，获取句柄
  hSCM := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if hSCM = 0 then
  begin
    // 可添加错误提示：ShowMessage('无法打开服务管理器：' + SysErrorMessage(GetLastError));
    Exit;
  end;

  try
    // 第二步：打开指定的MySQL55服务（注意：服务名要和系统中实际的一致，默认是MySQL55）
    hService := OpenService(hSCM, 'MySQL55', SERVICE_QUERY_STATUS);
    if hService = 0 then
    begin
      // 若失败可能是服务名不对，去系统服务面板看服务「属性」里的服务名称
      // ShowMessage('找不到MySQL55服务：' + SysErrorMessage(GetLastError));
      Exit;
    end;

    try
      // 第三步：查询服务的当前状态
      if QueryServiceStatus(hService, ServiceStatus) then
      begin
        // 判断服务是否处于运行状态
        Result := (ServiceStatus.dwCurrentState = SERVICE_RUNNING);
      end;
    finally
      // 关闭服务句柄，避免资源泄漏
      CloseServiceHandle(hService);
    end;
  finally
    // 关闭服务管理器句柄
    CloseServiceHandle(hSCM);
  end;
end;

代码关键点说明 #

• 服务名确认：系统中MySQL5.5的服务名默认是MySQL55，但如果安装时改过，你需要去「服务」面板找到MySQL服务，右键查看「属性」里的「服务名称」，替换代码里的字符串。
• 权限问题：如果程序没有足够权限，OpenSCManager或OpenService可能失败，此时可以用SysErrorMessage(GetLastError)获取具体错误信息排查。
• 资源释放：所有打开的句柄必须用CloseServiceHandle关闭，避免资源泄漏。

额外：用注册表查看服务配置信息 #

如果你只是想获取服务的静态配置（比如启动类型），可以读注册表，路径是HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MySQL55，示例代码：

uses
  Registry, SysUtils;

// 返回值含义：2=自动启动，3=手动启动，4=禁用
function GetMySQL55ServiceStartType: Integer;
var
  Reg: TRegistry;
begin
  Result := -1; // 默认返回-1表示失败
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\MySQL55', False) then
    begin
      if Reg.ValueExists('Start') then
        Result := Reg.ReadInteger('Start');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

内容的提问来源于stack exchange，提问作者user9733020