易语言专用版注册系统服务模块源码 [db:版本]

易语言专用版注册系统服务模块源码

系统结构:初始化并安装,安装服务,启动服务,停止服务,删除服务,修改服务描述,获取服务状态,ServiceMain,ServiceStrl,ServiceProcess,系统服务启动给与返回成功,SvcCtrlHandler,ReportSvcStatus,ServiceMain2,API_OpenSCManager,StartServiceCtrlDispatcher,RegisterServiceCtrlHandler,SetServiceStatus,API_CreateService,API_CloseServiceHandle,API_OpenService,API_LockServiceDatabase,API_ChangeServiceConfig2A,API_QueryServiceStatus,API_lstrcpyn,API_StartServiceCtrlDispatcher,API_SuspendThread,API_ResumeThread,API_CloseHandle,API_CreateThread,API_RegisterServiceCtrlHandler,API_SetServiceStatus,API_ControlService,API_DeleteService,API_StartService,

======程序集1
| |
| |------ _启动子程序
| |
| |------ 初始化并安装
| |
| |------ 安装服务
| |
| |------ 启动服务
| |
| |------ 停止服务
| |
| |------ 删除服务
| |
| |------ 修改服务描述
| |
| |------ 获取服务状态
| |
| |------ ServiceMain
| |
| |------ ServiceStrl
| |
| |------ ServiceProcess
| |
| |------ 系统服务启动给与返回成功
| |
| |------ SvcCtrlHandler
| |
| |------ ReportSvcStatus
| |
| |------ ServiceMain2
| |
| |
======调用的Dll
| |
| |---[dll]------ API_OpenSCManager
| |
| |---[dll]------ StartServiceCtrlDispatcher
| |
| |---[dll]------ RegisterServiceCtrlHandler
| |
| |---[dll]------ SetServiceStatus
| |
| |---[dll]------ API_CreateService
| |
| |---[dll]------ API_CloseServiceHandle
| |
| |---[dll]------ API_OpenService
| |
| |---[dll]------ API_LockServiceDatabase
| |
| |---[dll]------ API_ChangeServiceConfig2A
| |
| |---[dll]------ API_QueryServiceStatus
| |
| |---[dll]------ API_lstrcpyn
| |
| |---[dll]------ API_StartServiceCtrlDispatcher
| |
| |---[dll]------ API_SuspendThread
| |
| |---[dll]------ API_ResumeThread
| |
| |---[dll]------ API_CloseHandle
| |
| |---[dll]------ API_CreateThread
| |
| |---[dll]------ API_RegisterServiceCtrlHandler
| |
| |---[dll]------ API_SetServiceStatus
| |
| |---[dll]------ API_ControlService
| |
| |---[dll]------ API_DeleteService
| |
| |---[dll]------ API_StartService

调用的DLL命令:

.DLL命令 API_OpenSCManager, 整数型, "advapi32.dll", "OpenSCManagerA"
.参数 lpMachineName, 文本型
.参数 lpDatabaseName, 文本型
.参数 dwDesiredAccess, 整数型

.DLL命令 StartServiceCtrlDispatcher, 整数型, "Advapi32.dll", "StartServiceCtrlDispatcherA", , '形成后台服务的参数
.参数 lpServiceTable, SERVICE_TABLE_ENTRY, 数组

.DLL命令 RegisterServiceCtrlHandler, 整数型, "Advapi32.dll", "RegisterServiceCtrlHandlerA", , '形成后台服务的参数
.参数 lpServiceName, 整数型
.参数 lpHandlerProc, 整数型

.DLL命令 SetServiceStatus, 整数型, "Advapi32.dll", "SetServiceStatus", , '形成后台服务的参数
.参数 hServiceStatus, 整数型
.参数 lpServiceStatus, SERVICE_STATUS

.DLL命令 API_CreateService, 整数型, "advapi32.dll", "CreateServiceA"
.参数 hSCManager, 整数型
.参数 lpServiceName, 文本型
.参数 lpDisplayName, 文本型
.参数 dwDesiredAccess, 整数型
.参数 dwServiceType, 整数型
.参数 dwStartType, 整数型
.参数 dwErrorControl, 整数型
.参数 lpBinaryPathName, 文本型
.参数 lpLoadOrderGroup, 文本型
.参数 lpdwTagId, 整数型
.参数 lpDependencies, 文本型
.参数 lpServiceStartName, 整数型
.参数 lpPassword, 文本型

.DLL命令 API_CloseServiceHandle, 整数型, "advapi32.dll", "CloseServiceHandle"
.参数 Handle, 整数型

.DLL命令 API_OpenService, 整数型, "advapi32.dll", "OpenServiceA"
.参数 hSCManager, 整数型
.参数 lpServiceName, 文本型
.参数 dwDesiredAccess, 整数型

.DLL命令 API_LockServiceDatabase, 整数型, "advapi32.dll", "LockServiceDatabase"
.参数 hSCManager, 整数型

.DLL命令 API_ChangeServiceConfig2A, 整数型, "ADVAPI32.DLL", "ChangeServiceConfig2A"
.参数 hService, 整数型
.参数 dwInfoLevel, 整数型
.参数 lpInfo, SERVICE_DESCRIPTION

.DLL命令 API_QueryServiceStatus, 整数型, "advapi32.dll", "QueryServiceStatus", , 4：启动　7：暂停　1：停止　0：找不到服务
.参数 hService, 整数型
.参数 lpServiceStatus, SERVICE_Mode, 传址

.DLL命令 API_lstrcpyn, 整数型, , "lstrcpynA"
.参数 lpString1, 文本型
.参数 lpString2, 文本型
.参数 iMaxLength, 整数型

.DLL命令 API_StartServiceCtrlDispatcher, 整数型, "advapi32.dll", "StartServiceCtrlDispatcherA"
.参数 SERVICE_TABLE, SERVICE_Table, 数组

.DLL命令 API_SuspendThread, 逻辑型, "kernel32.dll", "SuspendThread", , , 挂起线程
.参数 线程句柄, 整数型

.DLL命令 API_ResumeThread, , "kernel32.dll", "ResumeThread"
.参数 线程句柄, 整数型

.DLL命令 API_CloseHandle, 整数型, , "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。非0表示成功。
.参数 对象句柄, 整数型, , hObject，要关闭的对象句柄。

.DLL命令 API_CreateThread, 整数型, , "CreateThread", , 启动一个处理子程序的线程，可多个线程同时启动。
.参数 安全描述结构, 整数型, , lpThreadAttributes，标准应为SECURITY_ATTRIBUTES类型
.参数 初始堆栈大小, 整数型, , dwStackSize，默认为0
.参数 线程函数指针, 子程序指针, , lpStartAddress
.参数 子程序参数, 整数型, , lpParameter，传递给线程函数的参数
.参数 创建标志, 整数型, , dwCreationFlags，当线程立即执行时为0
.参数 线程索引, 整数型, 传址, lpThreadId，指向接收变量

.DLL命令 API_RegisterServiceCtrlHandler, 整数型, "advapi32.dll", "RegisterServiceCtrlHandlerA"
.参数 lpServiceName, 文本型
.参数 lpHandlerProc, 整数型

.DLL命令 API_SetServiceStatus, 整数型, "advapi32.dll", "SetServiceStatus"
.参数 hServiceStatus, 整数型
.参数 lpServiceStatus, SERVICE_Mode

.DLL命令 API_ControlService, 逻辑型, "advapi32.dll", "ControlService"
.参数 hService, 整数型
.参数 dwControl, 整数型
.参数 lpServiceStatus, SERVICE_Mode, 传址

.DLL命令 API_DeleteService, 整数型, "advapi32.dll", "DeleteService"
.参数 hService, 整数型

.DLL命令 API_StartService, 整数型, "advapi32.dll", "StartServiceA"
.参数 hService, 整数型
.参数 dwNumServiceArgs, 整数型
.参数 lpServiceArgVectors, 整数型