易语言SYS驱动文件安装加载启动工具源码

系统结构:InstallDriver,CreateDriver,StartDriver,StopDriver,RemoveDriver,GetFileName,OpenSCManagerA,OpenServiceA,CloseServiceHandle,ControlService,GetLastError,StartServiceA,CreateServiceA,DeleteFileA,ExitProcess,

======窗口程序集1
           |  |
           |  |------ _InstallDrv_被单击
           |  |
           |  |------ InstallDriver
           |  |
           |  |------ CreateDriver
           |  |
           |  |------ StartDriver
           |  |
           |  |------ _StartDrv_被单击
           |  |
           |  |------ StopDriver
           |  |
           |  |------ RemoveDriver
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ _StopDrv_被单击
           |  |
           |  |------ GetFileName
           |  |
           |  |------ _RemoveDrv_被单击
           |  |
           |  |------ _LookFile_被单击
           |  |
           |  |------ _Up_被单击
           |  |
           |  |------ _CloseMe_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   OpenSCManagerA
           |  |
           |  |---[dll]------   OpenServiceA
           |  |
           |  |---[dll]------   CloseServiceHandle
           |  |
           |  |---[dll]------   ControlService
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   StartServiceA
           |  |
           |  |---[dll]------   CreateServiceA
           |  |
           |  |---[dll]------   DeleteFileA
           |  |
           |  |---[dll]------   ExitProcess

调用的DLL命令:

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

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

.DLL命令 CloseServiceHandle, 整数型, , "CloseServiceHandle"
    .参数 hSCObject, 整数型

.DLL命令 ControlService, 整数型, , "ControlService"
    .参数 hService, 整数型
    .参数 dwControl, 整数型
    .参数 lpServiceStatus, ehtrh45hb4, 传址

.DLL命令 GetLastError, 整数型, , "GetLastError"

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

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

.DLL命令 DeleteFileA, 整数型, , "DeleteFileA"
    .参数 Path, 文本型

.DLL命令 ExitProcess, , "kernel32.dll", "ExitProcess"
    .参数 ExitCode, 整数型