Cómo conectarse Información USB con Delphi en Vista

Question

¿Cómo puedo obtener 'información usb conectada' (ID de instancia del dispositivo, nombre de la clave del controlador ...) desde el Registro en Vista o Windows 7 utilizando delphi? ¿Dónde está esta información en el Registro de Windows? Tengo un código que está trabajando en XP pero no en Vista. (Código de C++: http://www.codeproject.com/KB/system/RemoveDriveByLetter.aspx) ¿Por qué el código no funciona en Vista? Estoy realmente apilado sobre eso. Por favor ayuda.

Muchas gracias por sus respuestas.

Answer 1

Puede usar la clase WMIWin32_DiskDrive. si necesita obtener información sobre la unidad lógica puede consultar la WMI con algo como esto

Select * Win32_LogicalDisk where DriveType = 2 

para acceder a la WMI de Delphi debe importar el V1.x Biblioteca Microsoft WMIScripting usando Componente-> Importar Componente-> Importar type library-> Next -> "Select the library" -> Next-> Add unit to project-> Finish.

, si necesita más información sobre los dispositivos USB se puede comprobar también las siguientes clases

• Win32_USBControllerDevice
• Win32_PnPEntity

Ver este ejemplo (probado en Delphi 2007 y Windows 7)

program GetWMI_USBConnectedInfo; 

{$APPTYPE CONSOLE} 

uses 
    Classes, 
    ActiveX, 
    Variants, 
    SysUtils, 
    WbemScripting_TLB in '..\..\..\Documents\RAD Studio\5.0\Imports\WbemScripting_TLB.pas'; 


procedure GetUSBDiskDriveInfo; 
var 
    WMIServices : ISWbemServices; 
    Root  : ISWbemObjectSet; 
    Item  : Variant; 
    i   : Integer; 
    StrDeviceUSBName: String; 
begin 
    WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil); 
    Root := WMIServices.ExecQuery('Select * From Win32_DiskDrive Where InterfaceType="USB"','WQL', 0, nil);//more info in http://msdn.microsoft.com/en-us/library/aa394132%28VS.85%29.aspx 
    for i := 0 to Root.Count - 1 do 
    begin 
    Item := Root.ItemIndex(i); 
    Writeln('Caption   '+VarToStr(Item.Caption)); 
    Writeln('DeviceID   '+VarToStr(Item.DeviceID)); 
    Writeln('FirmwareRevision '+VarToStr(Item.FirmwareRevision)); 
    Writeln('Manufacturer  '+VarToStr(Item.Manufacturer)); 
    Writeln('Model    '+VarToStr(Item.Model)); 
    Writeln('PNPDeviceID  '+VarToStr(Item.PNPDeviceID)); 
    Writeln('Status   '+VarToStr(Item.Status)); 
    End; 
end; 


begin 
    try 
    CoInitialize(nil); 
    GetUSBDiskDriveInfo; 
    Readln; 
    CoUninitialize; 
    except 
    on E:Exception do 
    Begin 
     CoUninitialize; 
     Writeln(E.Classname, ': ', E.Message); 
     Readln; 
    End; 
    end; 
end.