delphi 怎样获取usb端口

在Delphi中，可以使用WinAPI函数来获取USB端口。

首先，需要引入windows单元，以便使用WinAPI函数。然后，可以使用以下代码来获取USB端口：

1. 使用SetupDiGetClassDevs函数获取设备信息集合：

var
  DevInfo: HDEVINFO;
begin
  DevInfo := SetupDiGetClassDevs(nil, 'USB', 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);
  if DevInfo = INVALID_HANDLE_VALUE then
  begin
    ShowMessage('获取设备信息集合失败！');
    Exit;
  end;
  //...
end;

2. 使用SetupDiEnumDeviceInterfaces函数列举设备接口：

var
  DevInfo: HDEVINFO;
  InterfaceData: TSPDeviceInterfaceData;
  Index: Integer;
begin
  //...
  Index := 0;
  while SetupDiEnumDeviceInterfaces(DevInfo, nil, USB_DEVICE_INTERFACE_GUID, Index, InterfaceData) do
  begin
    Inc(Index);
    //...
  end;

3. 使用SetupDiGetDeviceInterfaceDetail函数获取设备接口详细信息：

var
  DevInfo: HDEVINFO;
  InterfaceDetailData: PSPDeviceInterfaceDetailData;
  RequiredSize: DWORD;
  Index: Integer;
  DevicePath: string;
begin
  //...
  //先进行一次调用以获取所需缓冲区大小
  if not SetupDiGetDeviceInterfaceDetail(DevInfo, @InterfaceData, nil, 0, @RequiredSize, nil) and (GetLastError <> ERROR_INSUFFICIENT_BUFFER) then
  begin
    ShowMessage('获取设备接口详细信息失败！');
    Exit;
  end;
  //根据所需缓冲区大小分配内存
  GetMem(InterfaceDetailData, RequiredSize);
  try
    InterfaceDetailData.cbSize := SizeOf(TSPDeviceInterfaceDetailData);
    //再次调用获取设备接口详细信息
    if not SetupDiGetDeviceInterfaceDetail(DevInfo, @InterfaceData, InterfaceDetailData, RequiredSize, nil, nil) then
    begin
      ShowMessage('获取设备接口详细信息失败！');
      Exit;
    end;
    DevicePath := InterfaceDetailData.DevicePath;
    //...
  finally
    FreeMem(InterfaceDetailData);
  end;

以上代码示例了如何通过Delphi使用WinAPI函数来获取USB端口。根据具体需求，可以根据设备信息集合进行筛选，或者使用设备接口详细信息来进一步操作USB端口。