delphi 检索usb

Delphi是一种基于Object Pascal的编程语言，支持Windows操作系统。要在Delphi中检索USB设备，可以使用Windows API函数来完成。

首先，需要引入Windows单元，在使用前先定义一些常量和数据类型。然后，使用SetupAPI（安装API）函数来获取USB设备信息。可以通过调用SetupAPI函数来枚举已连接的USB设备，获取设备的设备路径和设备描述信息。

下面是一个示例代码：

uses
  ...
  Windows, SetupApi;

const
  DIGCF_PRESENT = $00000002;
  DIGCF_DEVICEINTERFACE = $00000010;

type
  SP_DEVINFO_DATA = packed record
    cbSize: DWORD;
    ClassGuid: TGUID;
    DevInst: DWORD;
    Reserved: ULONG_PTR;
  end;

  SP_DEVICE_INTERFACE_DATA = packed record
    cbSize: DWORD;
    InterfaceClassGuid: TGUID;
    Flags: DWORD;
    Reserved: ULONG_PTR;
  end;

  PSP_DEVICE_INTERFACE_DETAIL_DATA = ^SP_DEVICE_INTERFACE_DETAIL_DATA;
  SP_DEVICE_INTERFACE_DETAIL_DATA = packed record
    cbSize: DWORD;
    DevicePath: array [0..MAX_PATH] of Char;
  end;

procedure EnumerateUSBDevices;
var
  DeviceInterfaceData: SP_DEVICE_INTERFACE_DATA;
  DeviceInterfaceDetailData: PSP_DEVICE_INTERFACE_DETAIL_DATA;
  DeviceInfoData: SP_DEVINFO_DATA;
  DeviceIndex: DWORD;
  DeviceInfoSet: HDEVINFO;
  DevicePath: string;
begin
  DeviceInterfaceData.cbSize := SizeOf(DeviceInterfaceData);
  DeviceInfoData.cbSize := SizeOf(DeviceInfoData);
  DeviceIndex := 0;

  DeviceInfoSet := SetupDiGetClassDevs(nil, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);
  try
    while SetupDiEnumDeviceInterfaces(DeviceInfoSet, nil, GUID_DEVINTERFACE_USB, DeviceIndex, DeviceInterfaceData) do
    begin
      SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, @DeviceInterfaceData, nil, 0, nil, @DeviceInfoData);

      DevicePath := DeviceInterfaceDetailData.DevicePath;
      // 可以在这里对获取到的USB设备进行处理

      Inc(DeviceIndex);
    end;
  finally
    SetupDiDestroyDeviceInfoList(DeviceInfoSet);
  end;
end;

begin
  EnumerateUSBDevices;
end.

上述代码通过调用SetupAPI函数枚举已连接的USB设备，并将设备路径存储在DevicePath变量中。你可以在适当的位置对获取到的USB设备进行进一步处理，例如显示设备信息、进行读写操作等。

当然，以上只是一个简单的示例代码，实际中可能需要根据具体需求进行修改和扩展。希望对你有所帮助！