请帮忙看看这段代码 调用windouw 服务接口的代码 调用OpenService返回0是为什么

[一声雷响老子闪亮登场]

Type
SERVICE_STATUS = Record
dwServiceType: Cardinal;
dwCurrentState: Cardinal;
End;
HANDLE = Cardinal;

Const
SERVICE_ERROR_NORMAL = 1;

Const
//OpenSCManager函数操作权限
SC_MANAGER_ALL_ACCESS = $F003F; //所有权限

//OpenService函数操作权限
SERVICE_ALL_ACCESS = $F01FF; //所有权限

function ControlService(hService: HANDLE; dwControl: Cardinal; var ServiceStatus: SERVICE_STATUS): Boolean;
External '[e-mail] stdcall';

function OpenService(hSCManager: HANDLE; lpServiceName: String; dwDesiredAccess: Cardinal): HANDLE;
External '[e-mail] stdcall';

function OpenSCManager(lpMachineName, lpDatabaseName: String; dwDesiredAccess: Cardinal): HANDLE;
External '[e-mail] stdcall';

function OpenServiceManager(): HANDLE;
begin
if UsingWinNT() then
begin
result := OpenSCManager('','',SC_MANAGER_ALL_ACCESS);
if result = 0 then
MsgBox('the servicemanager is not available', mbError, MB_OK)
end else begin
MsgBox('only nt based systems support services', mbError, MB_OK)
result := 0;
end;
end;

function IsServiceInstalled(ServiceName: string): Boolean;
var
hSCM : HANDLE;
hService: HANDLE;
begin
result := false;
hSCM := OpenServiceManager();
if hSCM <> 0 then
begin
hService := OpenService(hSCM,ServiceName,SERVICE_QUERY_CONFIG);
if hService <> 0 then
begin
result := true;
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end;
end;

我的操作系统是xp
调用OpenServiceManager可以返回句柄
查询的是MySQL服务肯定是存在的

[「已注销」]

用GetLastError()看一下错误码

[一声雷响老子闪亮登场]

奇怪返回也是0

[一声雷响老子闪亮登场]

返回是1060

[一声雷响老子闪亮登场]

为什么会返回指定的服务未安装？我确认MySQL服务肯定是存在的

[lyhoo163]

MYSQL参数设置正确吗？

[一声雷响老子闪亮登场]

谢谢各位的回答 是我程序编译编码的问题