易语言驱动文件配置源码

系统结构:RunAndStartService,auto_load,SetMaxDeviceCount,GetMaxDeviceCount,GetUserRecord,SaveUserRecord,refresh_optlist,refresh_driver,IsFileDisk,FileDiskMount,FileDiskMount2,FileDiskUnMount,AddRecord,text_to_bool,FileSize_To_Text,GetErrorText,ToPartitionName,GET_HIGHT_DWORD,Init,UnInit,GetSCHandle,GetServiceHandle,IsInstallService,InstallDriver,RunService,QueryService,CopyFrom_OPEN_FILE_INFORMATION,GetFileType,GetVersion,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ RunAndStartService
           |  |
           |  |------ auto_load
           |  |
           |  |------ SetMaxDeviceCount
           |  |
           |  |------ GetMaxDeviceCount
           |  |
           |  |------ GetUserRecord
           |  |
           |  |------ SaveUserRecord
           |  |
           |  |------ refresh_optlist
           |  |
           |  |------ refresh_driver
           |  |
           |  |------ IsFileDisk
           |  |
           |  |------ _按钮_刷新_被单击
           |  |
           |  |------ _按钮_卸载_被单击
           |  |
           |  |------ FileDiskMount
           |  |
           |  |------ FileDiskMount2
           |  |
           |  |------ FileDiskUnMount
           |  |
           |  |------ _按钮_添加_被单击
           |  |
           |  |------ AddRecord
           |  |
           |  |------ _按钮_删除_被单击
           |  |
           |  |------ _按钮_载入_被单击
           |  |
           |  |------ _按钮_修改_被单击
           |  |
           |  |------ _超级列表框_配置_当前表项被改变
           |  |
           |  |------ _超级列表框_配置_左键单击表项
           |  |
           |  |------ _选择框_开机加载_被单击
           |  |
           |  |
======help
           |  |
           |  |------ text_to_bool
           |  |
           |  |------ FileSize_To_Text
           |  |
           |  |------ GetErrorText
           |  |
           |  |------ ToPartitionName
           |  |
           |  |------ GET_HIGHT_DWORD
           |  |
           |  |
======CWinService
           |  |
           |  |------ Init
           |  |
           |  |------ UnInit
           |  |
           |  |------ GetSCHandle
           |  |
           |  |------ GetServiceHandle
           |  |
           |  |------ IsInstallService
           |  |
           |  |------ InstallDriver
           |  |
           |  |------ RunService
           |  |
           |  |------ QueryService
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _CloseHandle
           |  |
           |  |---[dll]------   _CreateFile
           |  |
           |  |---[dll]------   _DefineDosDevice
           |  |
           |  |---[dll]------   _DefineDosDevice_Remove
           |  |
           |  |---[dll]------   _DeviceIoControl_OutBin
           |  |
           |  |---[dll]------   _DeviceIoControl
           |  |
           |  |---[dll]------   _DeviceIoControl_InBin
           |  |
           |  |---[dll]------   _FormatMessage
           |  |
           |  |---[dll]------   _GetLastError
           |  |
           |  |---[dll]------   _LocalFree
           |  |
           |  |---[dll]------   _GetDriveType
           |  |
           |  |---[dll]------   CopyFrom_OPEN_FILE_INFORMATION
           |  |
           |  |---[dll]------   GetFileType
           |  |
           |  |---[dll]------   _CloseServiceHandle
           |  |
           |  |---[dll]------   _ControlService
           |  |
           |  |---[dll]------   _CreateService
           |  |
           |  |---[dll]------   _OpenSCManager
           |  |
           |  |---[dll]------   _OpenService
           |  |
           |  |---[dll]------   _QueryServiceStatus
           |  |
           |  |---[dll]------   _StartService
           |  |
           |  |---[dll]------   GetVersion

调用的DLL命令:

.DLL命令 _CloseHandle, 整数型, "kernel32.dll", "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 _CreateFile, 整数型, "kernel32.dll", "CreateFileA"
    .参数 lpFileName, 文本型
    .参数 dwDesiredAccess, 整数型
    .参数 dwShareMode, 整数型
    .参数 lpSecurityAttributes, 整数型
    .参数 dwCreationDisposition, 整数型
    .参数 dwFlagsAndAttributes, 整数型
    .参数 hTemplateFile, 整数型

.DLL命令 _DefineDosDevice, 逻辑型, "kernel32.dll", "DefineDosDeviceA"
    .参数 dwFlags, 整数型
    .参数 lpDeviceName, 文本型
    .参数 lpTargetPath, 文本型

.DLL命令 _DefineDosDevice_Remove, 逻辑型, "kernel32.dll", "DefineDosDeviceA"
    .参数 dwFlags, 整数型
    .参数 lpDeviceName, 文本型
    .参数 lpTargetPath, 整数型

.DLL命令 _DeviceIoControl_OutBin, 逻辑型, "kernel32.dll", "DeviceIoControl"
    .参数 hDevice, 整数型
    .参数 dwIoControlCode, 整数型
    .参数 lpInBuffer, 整数型
    .参数 nInBufferSize, 整数型
    .参数 lpOutBuffer, 字节集
    .参数 nOutBufferSize, 整数型
    .参数 lpBytesReturned, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 _DeviceIoControl, 逻辑型, "kernel32.dll", "DeviceIoControl"
    .参数 hDevice, 整数型
    .参数 dwIoControlCode, 整数型
    .参数 lpInBuffer, 整数型
    .参数 nInBufferSize, 整数型
    .参数 lpOutBuffer, 整数型
    .参数 nOutBufferSize, 整数型
    .参数 lpBytesReturned, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 _DeviceIoControl_InBin, 逻辑型, "kernel32.dll", "DeviceIoControl"
    .参数 hDevice, 整数型
    .参数 dwIoControlCode, 整数型
    .参数 lpInBuffer, 字节集
    .参数 nInBufferSize, 整数型
    .参数 lpOutBuffer, 整数型
    .参数 nOutBufferSize, 整数型
    .参数 lpBytesReturned, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 _FormatMessage, 整数型, "kernel32.dll", "FormatMessageA"
    .参数 dwFlags, 整数型
    .参数 lpSource, 整数型
    .参数 dwMessageId, 整数型
    .参数 dwLanguageId, 整数型
    .参数 lpBuffer, 整数型, 传址
    .参数 nSize, 整数型
    .参数 Arguments, 整数型

.DLL命令 _GetLastError, 整数型, "kernel32.dll", "GetLastError"

.DLL命令 _LocalFree, 整数型, "kernel32.dll", "LocalFree"
    .参数 hMem, 整数型

.DLL命令 _GetDriveType, 整数型, "kernel32.dll", "GetDriveTypeA"
    .参数 nDrive, 文本型

.DLL命令 CopyFrom_OPEN_FILE_INFORMATION, , , "RtlMoveMemory"
    .参数 Dest, 字节集
    .参数 Src, OPEN_FILE_INFORMATION
    .参数 Length

.DLL命令 GetFileType, 整数型, , "GetFileType"
    .参数 a

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

.DLL命令 _ControlService, 整数型, "advapi32.dll", "ControlService"
    .参数 hService, 整数型
    .参数 dwControl, 整数型
    .参数 lpServiceStatus, SERVICE_STATUS

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

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

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

.DLL命令 _QueryServiceStatus, 整数型, "advapi32.dll", "QueryServiceStatus"
    .参数 hService, 整数型
    .参数 lpServiceStatus, SERVICE_STATUS

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

.DLL命令 GetVersion, 整数型, "kernel32.dll", "GetVersion"