mysql绿色安装版易语言源码

系统结构:检测线程,sys_服务安装,sys_服务卸载,sys_服务启动,sys_服务停止,sys_服务取状态,DLL_服务打开SC管理,DLL_服务关闭SC管理,DLL_服务打开,DLL_服务查询状态,DLL_服务创建,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 检测线程
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ sys_服务安装
           |  |
           |  |------ sys_服务卸载
           |  |
           |  |------ sys_服务启动
           |  |
           |  |------ sys_服务停止
           |  |
           |  |------ sys_服务取状态
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DLL_服务打开SC管理
           |  |
           |  |---[dll]------   DLL_服务关闭SC管理
           |  |
           |  |---[dll]------   DLL_服务打开
           |  |
           |  |---[dll]------   DLL_服务查询状态
           |  |
           |  |---[dll]------   DLL_服务创建

调用的DLL命令:

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

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

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

.DLL命令 DLL_服务查询状态, 整数型, "advapi32.dll", "QueryServiceStatus", , CurrentState =4已启动 =1未启动
    .参数 hService, 整数型, , 服务句柄 由打开服务返回
    .参数 lpServiceStatus, 整数型, 传址 数组, 1.ServiceType 2.CurrentState 3.ControlsAccepted 4.Win32ExitCode 5.ServiceSpecificExitCode 6.CheckPoint 7.WaitHint

.DLL命令 DLL_服务创建, 整数型, "advapi32.dll", "CreateServiceA", , 建立服务对象
    .参数 hSCManager, 整数型
    .参数 lpServiceName, 文本型
    .参数 lpDisplayName, 文本型
    .参数 dwDesiredAccess, 整数型
    .参数 dwServiceType, 整数型
    .参数 dwStartType, 整数型
    .参数 dwErrorControl, 整数型
    .参数 lpBinaryPathName, 文本型
    .参数 lpLoadOrderGroup, 整数型
    .参数 lpdwTagId, 整数型
    .参数 lpDependencies, 字节集, 传址
    .参数 lp, 整数型
    .参数 lpPassword, 整数型