delphi 判斷 usb

Delphi可以使用Windows API函数来判断USB设备。首先要使用SetupDiGetClassDevs函数获取设备信息，然后使用SetupDiEnumDeviceInterfaces函数枚举设备接口，使用SetupDiGetDeviceInterfaceDetail函数获取接口详细信息。可以根据接口信息判断设备是否为USB设备。

以下是一个简单的示例代码：

1.声明函数

声明Windows API函数，包括 SetupDiGetClassDevs, SetupDiEnumDeviceInterfaces, SetupDiGetDeviceInterfaceDetail等函数。

2. 获取设备信息

使用SetupDiGetClassDevs函数获取设备信息。需要传递两个参数，第一个参数是GUID，表示要查找的设备类型；第二个参数为NULL，表示查找所有可用的设备。返回值为设备信息的句柄。

3. 枚举设备接口

使用SetupDiEnumDeviceInterfaces函数枚举设备接口，需要传递三个参数，第一个参数是设备信息的句柄，第二个参数是设备描述符，第三个参数是接口GUID。

4. 获取接口信息

使用SetupDiGetDeviceInterfaceDetail函数获取接口详细信息，需要传递三个参数，第一个参数是设备信息的句柄，第二个参数是接口描述符，第三个参数是接口详细信息结构体。

5. 判断是否为USB设备

根据接口详细信息结构体来判断设备是否为USB设备。

示例代码：

//获取设备信息

hDevInfo := SetupDiGetClassDevs(@GUID_DEVCLASS_USB, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);

if hDevInfo = INVALID_HANDLE_VALUE then

begin

ShowMessage('SetupDiGetClassDevs failed.');

Exit;

end;

//枚举设备接口

devInterfaceData.cbSize := SizeOf(devInterfaceData);

index := 0;

while SetupDiEnumDeviceInterfaces(hDevInfo, nil, GUID_DEVINTERFACE_USB_DEVICE, index, devInterfaceData) do

begin

//获取接口详细信息

if not SetupDiGetDeviceInterfaceDetail(hDevInfo, @devInterfaceData, nil, 0, @requiredSize, nil) then

begin

if GetLastError = ERROR_INSUFFICIENT_BUFFER then

begin

mem := AllocMem(requiredSize);

devInterfaceDetailData.cbSize := SizeOf(devInterfaceDetailData);

if not SetupDiGetDeviceInterfaceDetail(hDevInfo, @devInterfaceData, mem, requiredSize, @requiredSize, @devInfoData) then

begin

ShowMessage('SetupDiGetDeviceInterfaceDetail failed.');

end

else

begin

//判断是否为USB设备

if devInterfaceDetailData.DevicePath.IndexOf('USB') >= 0 then

begin

//是USB设备

end;

end;

FreeMem(mem);

end;

end;

Inc(index);

end;

//释放设备信息句柄

SetupDiDestroyDeviceInfoList(hDevInfo);

以上就是使用Delphi判断USB设备的简单方法。