SetupApi проблема с получением информации об USB носителе

[MotoArhangel]

Пробую получить информацию о подключенной флешке. Но по каким то причинам не работает, возвращается пустая строка. В чем может быть беда?
Так же прилагаю проект.

unit UsbInfo;
 
interface
 
uses
  Windows,
  Classes,
  SetupAPI;
 
function AddUSBInfo(aGUID:TGUID;PropertyCode:integer):string;
 
implementation
 
function InfoUsbDevice(PropertyCode: Integer; PnPHandle: HDEVINFO;const DevData: TSPDevInfoData): String;
var
  dwPropertyRegDataType, dwRequiredSize: DWORD;
begin
  Result := '';
  dwRequiredSize := 0;
  dwPropertyRegDataType := REG_SZ;
  SetupDiGetDeviceRegistryPropertyA(PnPHandle, DevData,
    PropertyCode, dwPropertyRegDataType, nil, 0, dwRequiredSize);
  if not (dwPropertyRegDataType in [REG_SZ, REG_MULTI_SZ]) then Exit;
  if GetLastError = ERROR_INSUFFICIENT_BUFFER then
  begin
    SetLength(Result, dwRequiredSize);
    SetupDiGetDeviceRegistryPropertyA(PnPHandle, DevData,
      PropertyCode, dwPropertyRegDataType, @Result[1],
      dwRequiredSize, dwRequiredSize);
  end;
  case dwPropertyRegDataType of
    REG_SZ: Result := PChar(Result);
    REG_MULTI_SZ: Result := ExtractMultiString(Result);
  end;
end;
 
function AddUSBInfo(aGUID:TGUID;PropertyCode:integer):string;
var
  DrivePnPHandle: HDEVINFO;
  DeviceNumber:DWORD;
  DevData: TSPDevInfoData;
  DeviceInterfaceData: TSPDeviceInterfaceData;
  RES:BOOL;
begin
  DrivePnPHandle := SetupDiGetClassDevs(@aGUID, nil, 0, DIGCF_PRESENT);
  if DrivePnPHandle = INVALID_HANDLE_VALUE then  Exit;
 
  DeviceNumber := 0;
  repeat
   DeviceInterfaceData.cbSize := SizeOf(TSPDeviceInterfaceData);
   DevData.cbSize := SizeOf(TSPDevInfoData);
   RES := SetupDiEnumDeviceInfo(DrivePnPHandle, DeviceNumber, DevData);
   if (RES) then
    begin
     result:=pansichar(InfoUsbDevice(PropertyCode,DrivePnPHandle, DevData));
     Inc(DeviceNumber);
    end;
  until not RES;
  SetupDiDestroyDeviceInfoList(DrivePnPHandle);
end;
end.

unit MainForm;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,Vcl.ExtCtrls,
  StrUtils, setupAPI, USBinfo;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    procedure UsbNotification;
    procedure OnDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
    { Private declarations }
  public
    procedure DeviceInfo;
    function ExistWordInString(aString:PWideChar;aSearchString:string;aSearchOptions: TStringSearchOptions): Boolean;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Tform1.ExistWordInString(aString:PWideChar;aSearchString:string;aSearchOptions: TStringSearchOptions): Boolean;
var
  Size : Integer;
begin
  Result:=false;
  Size:=StrLen(aString);
  result := SearchBuf(aString, Size, 0, 0, aSearchString, aSearchOptions)<>nil;
end;
 
procedure TForm1.DeviceInfo;
Var
  s:string;
begin
  s:='';
  s:=AddUSBInfo(GUID_DEVINTERFACE_USB_DEVICE,SPDRP_MFG);
  if s<>'' then  Memo1.Lines.Add('1 '+s);
 
  s:='';
  s:=AddUSBInfo(GUID_DEVINTERFACE_USB_DEVICE,SPDRP_DEVICEDESC);
  if s<>''then Memo1.Lines.Add('2 '+s);
 
  s:='';
  s:=AddUSBInfo(GUID_DEVINTERFACE_USB_DEVICE,SPDRP_DEVICEDESC);
  if s<>'' then Memo1.Lines.Add('3 '+s);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  UsbNotification;
end;
 
procedure TForm1.UsbNotification;
var
  NF:TDEV_BROADCAST_DEVICEINTERFACE;
  Size: Integer;
begin
  Size := SizeOf(TDEV_BROADCAST_DEVICEINTERFACE);
  ZeroMemory(@NF, Size);
  NF.dbcc_size := Size;
  //NF.dbcc_size:=sizeof(TDEV_BROADCAST_DEVICEINTERFACE);
  NF.dbcc_devicetype:=DBT_DEVTYP_DEVICEINTERFACE;
  NF.dbcc_classguid := GUID_DEVINTERFACE_USB_DEVICE;
  NF.dbcc_reserved := 0;
  NF.dbcc_name := #0;
 //RegisterDeviceNotification(Handle,@NF,DEVICE_NOTIFY_ALL_INTERFACE_CLASSES);
  RegisterDeviceNotification(Handle,@NF,device_notify_window_handle);
end;
 
end.

Возможно не правильно указал гуид?

GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';

[WinCoder]

В диспетчере посмотри GUID

[MotoArhangel]

В принципе брат отсюда:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Действительно у флешки показывает следующее:

{4d36e967-e325-11ce-bfc1-08002be10318}

[MotoArhangel]

Все осознал. Как то из под ubunt'ы восстанавливал раздел и из нее сделал загрузочную флешку Она и стала определяться как Хард, а я тут голову ломаю
Добавил:

GUID_DEVCLASS_DISKDRIVE: TGUID      = '{4d36e967-e325-11ce-bfc1-08002be10318}';

Подправил где необходимо, результат тот же

[Человек_Борща]

Что вам мешает получить инфу через WMI?

[MotoArhangel]

Сообщение от Человек_Борща

Что вам мешает получить инфу через WMI?

В принцыпе для меня более понятный вариант.
Вопрос, В Win32_DiskDrive серийник флешки правильнее вытаскивать как?
SerialNumber или PNPDeviceID?

И еще один попутный вопрос. Если использовать WbemScripting_TLB то в win xp при запуске приложение появляется ошибка.Собираю проект под win7 x64(WbemScripting_TLB взят отсюда же) + Delphi xe7. Как этого избежать?

var
  WMIServices  : ISWbemServices;
  Root: ISWbemObjectSet;
  Item: Variant;
  i,ii: Integer;
  start,stop,freq:Int64;
begin
  QueryPerformanceFrequency(freq);
  QueryPerformanceCounter(start);

  WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  Root := WMIServices.ExecQuery('Select * From Win32_DiskDrive','WQL', 0, nil);
  for i := 0 to Root.Count - 1 do
  begin
    Item := Root.ItemIndex(i);
    for ii := VarArrayLowBound(Item.Capabilities, 1) to VarArrayHighBound(Item.Capabilities, 1) do if (Item.Capabilities[ii] = 7) then begin
      Memo1.Lines.Add('Caption      '+VarToStr(Item.Caption));
      Memo1.Lines.Add('Name         '+VarToStr(Item.Name));
    end;
  end;
  QueryPerformanceCounter(stop);
end;

Предполагаю что причина в Item := Root.ItemIndex(i); Посмотрел примеры в некоторых организовано по другому.

[Человек_Борща]

Вопрос, В Win32_DiskDrive серийник флешки правильнее вытаскивать как?
SerialNumber или PNPDeviceID?

Зависит от производителя флешки. Кто-то пишет его в SerialNumber кто-то нет. Если там нет, то читать из PnPDeviceID

[MotoArhangel]

Спасибо за участие. Разобрался.
Единственно смутило значение SerialNumber. Совершенно не тот, что в PnPDeviceID указывается.
Производитель сам его указывает? Флешка Китай=)