Как определить заводской номер устройства usb накопителя?

[defen]

Здравствуйте! Стоит проблема с написанием программы, которая бы определяла заводской номер usb накопителя. Именно заводской, а не тот, который при форматировании меняется... С железом ни когда не связывался. Читал форумы, не понял ни чего... Если можно, дайте конкретный пример, чтобы не править... Заранее всем спасибо.

[w_mma]

Вопрос актуальный!!

[raxp]

возможно вам нужно это и пост #52

[w_mma]

Задачу, решил )) 100%
WIN DDK

Читаем здесь.
http://forum.vingrad.ru/act-Print/cl.../t-107182.html

добавляем код

function GetDescriptor(hHub:THandle; ConnectionIndex:integer; DescriptorType, DescriptorIndex:byte):PUSB_COMMON_DESCRIPTOR;
var
  rOK:boolean;
  sz:cardinal;
  nBytes:dword;
  reqDesc: PUSB_DESCRIPTOR_REQUEST;
  descCom: PUSB_COMMON_DESCRIPTOR;
begin
  Result:=nil;
  sz := SizeOf(USB_DESCRIPTOR_REQUEST) + SizeOf(USB_COMMON_DESCRIPTOR);
  reqDesc := Pointer(LocalAlloc(LPTR, sz));
  descCom := Pointer(Cardinal(reqDesc) + SizeOf(USB_DESCRIPTOR_REQUEST));
  reqDesc^.ConnectionIndex := ConnectionIndex;
  reqDesc^.SetupPacket.wValue := (DescriptorType shl 8) or DescriptorIndex;
  reqDesc^.SetupPacket.wLength := SizeOf(USB_COMMON_DESCRIPTOR);
  rOK := DeviceIoControl(hHub,IOCTL_USB_GET_DESCRIPTOR_FROM_NODE_CONNECTION,
        reqDesc, sz, reqDesc, sz, nBytes, nil);

  if rOK and (nBytes >= Sz) then begin
    sz := SizeOf(USB_DESCRIPTOR_REQUEST) + descCom^.bLength;
    LocalFree(Dword(reqDesc));
    reqDesc := Pointer(LocalAlloc(LPTR,sz + 2));
    reqDesc^.ConnectionIndex := ConnectionIndex;
    reqDesc^.SetupPacket.wValue := (DescriptorType shl 8) or DescriptorIndex;
    reqDesc^.SetupPacket.wLength := Sz - sizeof(USB_DESCRIPTOR_REQUEST);
    descCom := Pointer(Cardinal(reqDesc) + SizeOf(USB_DESCRIPTOR_REQUEST));
    rOK := DeviceIoControl(hHub,IOCTL_USB_GET_DESCRIPTOR_FROM_NODE_CONNECTION,
                       reqDesc, sz, reqDesc, sz, nBytes,nil);
  end;

  if not rOK then
    LocalFree(DWORD(reqDesc))
  else
    Result := descCom;
end;

procedure UpdateDescriptors(AName: String; AIndex: Integer);
var
  s:string;
  i:integer;
  hF:dword;
  pwcDesc : PWideChar;
begin
  hF := CreateFile(PChar(AName), GENERIC_WRITE + GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  if hF <> INVALID_HANDLE_VALUE then begin
    i := 1;
    repeat
      pwcDesc := Pointer(GetDescriptor(hF, AIndex, USB_STRING_DESCRIPTOR_TYPE, i));
      if pwcDesc <> nil then begin
        pwcDesc := Pointer(Dword(pwcDesc) + 2);
        s := String(WideString(pwcDesc));
        Form1.Memo1.Lines.Add('SerNum = ' + s);
      end;
      i := i +1;
    until pwcDesc = nil;
    CloseHandle(hF);
  end;
end;

И

UpdateDescriptors(sRoot, iPort);

пишем вот так

  for iPort:= 0 to NodeInformation.HubDescriptor.bNumberOfPorts - 1 do begin
    // Отображение информации о порте
    ShowHubPortDetail(hRoot, iPort);
    UpdateDescriptors(sRoot, iPort);
  end;

[w_mma]

Еще одно замечание!!
Порты начинаются с 1!!

То есть:

 for iPort:= 1 to NodeInformation.HubDescriptor.bNumberOfPorts do begin

[Xak59]

Какие библиотеки нужно подключить?