易语言更改系统服务说明源码

系统结构:打开SC管理服务_,关闭SC服务管理句柄_,打开服务_,查询服务状态_,启动服务_,锁定服务数据库_,更改服务配置_,控制服务_,读取服务配置_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开SC管理服务_
           |  |
           |  |---[dll]------   关闭SC服务管理句柄_
           |  |
           |  |---[dll]------   打开服务_
           |  |
           |  |---[dll]------   查询服务状态_
           |  |
           |  |---[dll]------   启动服务_
           |  |
           |  |---[dll]------   锁定服务数据库_
           |  |
           |  |---[dll]------   更改服务配置_
           |  |
           |  |---[dll]------   控制服务_
           |  |
           |  |---[dll]------   读取服务配置_

调用的DLL命令:

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

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

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

.DLL命令 查询服务状态_, 整数型, "advapi32.dll", "QueryServiceStatus"
    .参数 hService, 整数型
    .参数 lpServiceStatus, SERVICE_STATUS, 传址

.DLL命令 启动服务_, 整数型, "advapi32.dll", "StartServiceA"
    .参数 服务句柄, 整数型
    .参数 dwNumServiceArgs, 整数型
    .参数 lpServiceArgVectors, 整数型

.DLL命令 锁定服务数据库_, 整数型, "advapi32.dll", "LockServiceDatabase"
    .参数 hSCManager, 整数型

.DLL命令 更改服务配置_, 整数型, "ADVAPI32.DLL", "ChangeServiceConfig2A"
    .参数 hService, 整数型
    .参数 dwInfoLevel, 整数型
    .参数 lpInfo, SERVICE_DESCRIPTION

.DLL命令 控制服务_, 整数型, "advapi32.dll", "ControlService"
    .参数 服务句柄, 整数型
    .参数 dwControl, 整数型
    .参数 lpServiceStatus, 字节集

.DLL命令 读取服务配置_, 整数型, "advapi32.dll", "QueryServiceConfig2A"
    .参数 hService, 整数型
    .参数 dwInfoLevel, 整数型
    .参数 lpBuffer, SERVICE_DESCRIPTION
    .参数 cbBufSize, 整数型
    .参数 pcbBytesNeeded, 整数型