易语言查询服务状态源码

系统结构:系统服务_查询服务状态,打开SC管理服务_,获取服务状态_,关闭SC服务管理句柄_,打开服务_,

======程序集1
           |  |
           |  |------ 系统服务_查询服务状态
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开SC管理服务_
           |  |
           |  |---[dll]------   获取服务状态_
           |  |
           |  |---[dll]------   关闭SC服务管理句柄_
           |  |
           |  |---[dll]------   打开服务_

调用的DLL命令:

.DLL命令 打开SC管理服务_, 整数型, "advapi32.dll", "OpenSCManagerA"
    .参数 机器名称, 整数型, , lpMachineName
    .参数 数据库名, 整数型, , lpDatabaseName
    .参数 数据库, 整数型, , dwDesiredAccess

.DLL命令 获取服务状态_, 整数型, "advapi32.dll", "QueryServiceStatus", , QueryServiceStatus获取服务状态
    .参数 hService, 整数型
    .参数 lpServiceStatus, SERVICE_STATUS

.DLL命令 关闭SC服务管理句柄_, 整数型, "advapi32.dll", "CloseServiceHandle"
    .参数 SC对象句柄, 整数型

.DLL命令 打开服务_, 整数型, "advapi32.dll", "OpenServiceA", , API_OpenService
    .参数 hSCManager, 整数型
    .参数 lpServiceName, 文本型
    .参数 dwDesiredAccess, 整数型