易语言API取设备信息源码

系统结构:SetupDiGetClassDevs,SetupDiEnumDeviceInfo,LocalSize,SetupDiGetDeviceRegistryProperty,GetLastError,SetupDiDestroyDeviceInfoList,HeapAlloc,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetupDiGetClassDevs
           |  |
           |  |---[dll]------   SetupDiEnumDeviceInfo
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   SetupDiGetDeviceRegistryProperty
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   SetupDiDestroyDeviceInfoList
           |  |
           |  |---[dll]------   HeapAlloc

调用的DLL命令:

.DLL命令 SetupDiGetClassDevs, 整数型, "setupapi.dll", "SetupDiGetClassDevsA"
    .参数 PGUIDC, 整数型
    .参数 PCTSTR, 文本型
    .参数 HWND, 整数型
    .参数 DWORD, 整数型

.DLL命令 SetupDiEnumDeviceInfo, 整数型, "setupapi.dll", "SetupDiEnumDeviceInfo"
    .参数 DeviceInfoSet, 整数型
    .参数 MemberIndex, 整数型
    .参数 DeviceInfoData, SP_DEVINFO_DATA, 传址

.DLL命令 LocalSize, 整数型, "kernel32", "LocalSize"
    .参数 hmem, SP_DEVINFO_DATA

.DLL命令 SetupDiGetDeviceRegistryProperty, 整数型, "setupapi.dll", "SetupDiGetDeviceRegistryPropertyA"
    .参数 DeviceInfoSet, 整数型
    .参数 DeviceInfoData, SP_DEVINFO_DATA
    .参数 Property, 整数型
    .参数 PropertyRegDataType, 整数型, 传址
    .参数 PropertyBuffer, 整数型
    .参数 PropertyBufferSize, 整数型
    .参数 RequiredSize, 整数型, 传址

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

.DLL命令 SetupDiDestroyDeviceInfoList, 整数型, "setupapi.dll", "SetupDiDestroyDeviceInfoList"
    .参数 DeviceInfoSet, 整数型

.DLL命令 HeapAlloc, 整数型, "kernel32", "GlobalAlloc"
    .参数 wflags, 整数型
    .参数 dwBytes, 整数型