易语言系统服务设置源码

系统结构:InService,UnService,ServiceMain,Handler,StartService,Service,Update,GetIP,StartServiceCtrlDispatcher,RegisterServiceCtrlHandler,SetServiceStatus,lstrcpyn,OpenSCManager,CreateService,OpenService,StartService,CloseServiceHandle,ControlService,DeleteService,

======窗口程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ InService
           |  |
           |  |------ UnService
           |  |
           |  |------ ServiceMain
           |  |
           |  |------ Handler
           |  |
           |  |------ StartService
           |  |
           |  |------ Service
           |  |
           |  |------ Update
           |  |
           |  |------ GetIP
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   StartServiceCtrlDispatcher
           |  |
           |  |---[dll]------   RegisterServiceCtrlHandler
           |  |
           |  |---[dll]------   SetServiceStatus
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   OpenSCManager
           |  |
           |  |---[dll]------   CreateService
           |  |
           |  |---[dll]------   OpenService
           |  |
           |  |---[dll]------   StartService
           |  |
           |  |---[dll]------   CloseServiceHandle
           |  |
           |  |---[dll]------   ControlService
           |  |
           |  |---[dll]------   DeleteService

调用的DLL命令:

.DLL命令 StartServiceCtrlDispatcher, 逻辑型, , "StartServiceCtrlDispatcherA"
    .参数 SERVICE_TABLE_ENTRY, SERVICE_TABLE_ENTRY, 数组

.DLL命令 RegisterServiceCtrlHandler, 整数型, , "RegisterServiceCtrlHandlerA"
    .参数 lpServiceName, 文本型
    .参数 lpHandlerProc, 整数型

.DLL命令 SetServiceStatus, 逻辑型
    .参数 hServiceStatus, 整数型
    .参数 lpServiceStatus, SERVICE_STATUS

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

.DLL命令 OpenSCManager, 整数型, , "OpenSCManagerA"
    .参数 lpMachineName, 整数型
    .参数 lpDatabaseName, 整数型
    .参数 dwDesiredAccess, 整数型

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

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

.DLL命令 StartService, 逻辑型, , "StartServiceA"
    .参数 服务句柄, 整数型
    .参数 dwNumServiceArgs, 整数型
    .参数 lpServiceArgVectors, 整数型

.DLL命令 CloseServiceHandle, 逻辑型
    .参数 SC对象句柄, 整数型

.DLL命令 ControlService, 逻辑型
    .参数 hService, 整数型
    .参数 dwControl, 整数型
    .参数 lpServiceStatus, SERVICE_STATUS, 传址

.DLL命令 DeleteService, 逻辑型
    .参数 hService, 整数型