GLibWMI_2.1b and USB

[YosvanyRL]

Buenas tardes para todos los del club de delphi y antes de poner mi hilo gracias por el gran aporte y la ayuda que nos dan a nosotros los que empezamos, es bien dificil empezar sin nadie que te ayude en un mundo tan amplio como es la programacion. Yo realmente no tengo mucho tiempo con el trabajo y la escuela para entrar mas frecuente a esta pagina que tanto me gusta pues con ustedes de veras se aprende mucho, y las pocas veces que he necesitado de alguna informacion, muy atentamente me han ayudado.
Por favor, quisiera saber, si alguien conoce como hacer, si es que se puede, poner en un listbox o un combobox una lista con los nombres de las memorias USB puestas en la PC o laptop con winow 7 u 8, y al seleccionar una de ellas que me de su ID unico de manofactura (El que no varia aun aunque se formatee). He tratado con "GLibWMI_2.1b" pero realmente no tengo ni la menor idea de como pudiera hacerse y de veras lo necesito. Si alguien pudiera decirme si existe un componente especial para eso o si con "GLibWMI_2.1b" se puede hacer de alguna manera.
Gracias por todo y favor si alguien conoce de este tema se lo agradeceria mucho pues lo necesito en gran medida.

[dec]

Hola,

El código puede resumirse poco más o menos así:

Código Delphi [-]
procedure TMainForm.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  // Activamos el componente
  USBControllerInfo.Active := True;

  // Recorremos los objetos obtenidos
  for I := 1 to USBControllerInfo.ObjectsCount do
  begin
    // Iremos seleccionando uno de los objetos
    USBControllerInfo.ObjectIndex := I;

    // Una vez seleccionado, podemos acceder a sus propiedades
    USBListBox.Items.Add(USBControllerInfo.USBControllerProperties.Caption);
  end;
end;

procedure TMainForm.USBListBoxClick(Sender: TObject);
var
  I: Integer;
begin
  I := USBListBox.ItemIndex;

  if I <> -1 then
  begin
    // El componente "indiza" comenzando con 1, pero el ListBox lo hace con 0
    USBControllerInfo.ObjectIndex := I + 1;

    USBSerialLabel.Caption :=
     USBControllerInfo.USBControllerProperties.DeviceID;
  end;
end;

En todo caso adjunto el ejemplo escrito en Delphi XE2:

[YosvanyRL]

Gracias por responder tan rapido, ya ahora mismo estoy probandolo.
Gracias miles de nuevo.
Si me queda alguna duda puedo escribir de nuevo sobre este mismo tema?

[dec]

Hola,

Empezado por YosvanyRL

Gracias por responder tan rapido, ya ahora mismo estoy probandolo.
Gracias miles de nuevo.
Si me queda alguna duda puedo escribir de nuevo sobre este mismo tema?

No hay de qué.

Si la duda es sobre este mismo asunto puedes continuar en este mismo hilo. Si se trata de otro asunto siéntete libre de abrir un nuevo hilo en el foro.

[YosvanyRL]

Escribi este codigo exactamente como esta arriba y me salio un error que dice:

Indice fuera de limites (Crear tipo especifico)

Que hago con ese error ahora?

Código Delphi [-]
procedure TMainForm.FormCreate(Sender: TObject); var   I: Integer; begin   // Activamos el componente   USBControllerInfo.Active := True;    // Recorremos los objetos obtenidos   for I := 1 to USBControllerInfo.ObjectsCount do   begin     // Iremos seleccionando uno de los objetos     USBControllerInfo.ObjectIndex := I;      // Una vez seleccionado, podemos acceder a sus propiedades     USBListBox.Items.Add(USBControllerInfo.USBControllerProperties.Caption);   end;

end;

[YosvanyRL]

Ya resolvi el problema del error que le conte anteriormente, y todo funciona perfectamente bien, Gracias una vez mas, pero para cerrar este tema ya sin dudas lo unico que me quedaria por preguntar y si es posible saber como ver el nombre de la memoria que tengo en el puerto. Por ejemplo, mi memoria tiene por nombre "YosvanyUSB", que es como la veo en el explorer, pero cuando me sale la lista de los puertos usb en el listBox lo que veo es "Intel(R0 ICH9 Family USB2 Enhanced host Controler - 293C" o "Intel(R0 ICH9 Family USB2 Universal host Controler - 293C" pero no me sale con el nombre que le puse a la memoria USB en mi caso "YosvanyUSB".
Una vez mas gracias por su ayuda y por favor si no es mucho pedir, tirenme otra ayudita con esto. Pleaseeeeee!!!!!!
Gracias y que tengan buen dia.

[dec]

Hola,

Ahí no sé si voy a poder yo ayudarte, puesto que las propiedades del componente "USB Controllers" son las que tú mismo puedes ver... ignoro si otro componente del paquete de nuestro compañero Neftalí ofrece algo como lo que necesitas, tal vez sí, pero, ahora mismo yo no sabría decirte, la verdad. Espera a ver si algún compañero puede echar una mano.

[YosvanyRL]

Bueno muchisimas gracias y si hay una solucion a mi problem please estare esperando porque lo necesito de veraz.

[Neftali [Germán.Estévez]]

Como bien indica dec, utilizando otros componentes del paquete puedes obtener diversa información no sólo de los USB (como dispositivo), sino también de las particiones que cada uno de los discos puede tener creada (puede haber más de una), inclusive los dispositivos removibles como los USB.
Para ello puedes revisar el TDiskDriveInfo y el TDiskPartitionInfo.

Si quieres acceder a alguna clase más, puedes utilizar el componente genérico WMISQL (revisa la demo). Con él puedes ejecutar consultas para relacionar estas clases.

SELECT * FROM Win32_LogicalDisk
Select * From Win32_PnPEntity
Select * From Win32_LogicalDiskToPartition

No me suena que puedas obtener el "FriendlyName" que reo que se llama lo que tú necesitas, pero con la información que obtienes aquí es posible que puedas obtenerla por otros métodos.

Un saludo.