Получить Список Устройств Delphi

Для получения списка устройств в программировании на Delphi существует несколько способов. Один из них заключается в использовании стандартной библиотеки Windows API.

var  DeviceInfoSet: HDEVINFO;  DeviceInterfaceData: TSPDeviceInterfaceData;  DeviceInterfaceDetailData: PSPDeviceInterfaceDetailData;  DeviceInterfaceDetailDataSize: DWORD;  RequiredSize: DWORD;  MemberIndex: DWORD;begin  DeviceInfoSet := SetupDiGetClassDevs(nil, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);  if DeviceInfoSet <> INVALID_HANDLE_VALUE then  try    DeviceInterfaceData.cbSize := SizeOf(DeviceInterfaceData);    MemberIndex := DWORD(-1);    while SetupDiEnumDeviceInterfaces(DeviceInfoSet, nil, GUID_NULL, MemberIndex, DeviceInterfaceData) do    begin      Inc(MemberIndex);      RequiredSize := 0;      SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, @DeviceInterfaceData, nil, 0, RequiredSize, nil);      if GetLastError = ERROR_INSUFFICIENT_BUFFER then      begin        DeviceInterfaceDetailDataSize := RequiredSize;        DeviceInterfaceDetailData := AllocMem(DeviceInterfaceDetailDataSize);        DeviceInterfaceDetailData.cbSize := SizeOf(DeviceInterfaceDetailData);        try          if SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, @DeviceInterfaceData, DeviceInterfaceDetailData, DeviceInterfaceDetailDataSize, RequiredSize, nil) then          begin            // Получаем информацию о устройстве            // ...          end;        finally          FreeMem(DeviceInterfaceDetailData);        end;      end;    end;  finally    SetupDiDestroyDeviceInfoList(DeviceInfoSet);  end;end;

Данный код использует функции SetupDiGetClassDevs, SetupDiEnumDeviceInterfaces и SetupDiGetDeviceInterfaceDetail из Windows API для получения списка подключенных устройств распознаваемых операционной системой. После чего можно получить необходимую информацию о каждом устройстве.