Delphi-Comment obtenir la liste des disques durs amovibles USB et des clés USB?

vous pouvez accéder à ces informations en utilisant WMI. Si vous utilisez ce SQL, vous pouvez accéder aux informations sur les disques installés.

select * from Win32_diskdrive where size<>NULL

ce code récupère des informations sur les disques durs.

procedure  TForm1.DoInventario(aWSQL:string; var mmResult:TMemo);
var
  Locator:ISWbemLocator;
  Services:ISWbemServices;
  SObject:ISWbemObject;
  ObjSet:ISWbemObjectSet;
  Enum:IEnumVariant;
  TempObj:OleVariant;
  Value:Cardinal;
  TS:TStrings;
begin

  try
    Locator := CoSWbemLocator.Create();
    // Conectar con el Servicio de WMI
    Services := Locator.ConnectServer(
        STR_LOCALHOST,        {ordenador local}
        STR_CIM2_ROOT,        {root}
        STR_EMPTY, STR_EMPTY, {usuario y password -en local no son necesarios-}
        STR_EMPTY,STR_EMPTY, 0, nil);
    // Acceder a los datos
    ObjSet := Services.ExecQuery(aWSQL, 'WQL',
                wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
    Enum :=  (ObjSet._NewEnum) as IEnumVariant;
    // Hemos encontrado algun objeto?
    while (Enum.Next(1, TempObj, Value) = S_OK) do begin
      SObject := IUnknown(TempObj) as ISWBemObject;
      // encontrado?
      if (SObject <> nil) then begin
        // Acceder a la propiedad
        SObject.Properties_;
        // Cargamos las propiedades
        TS := TStringList.Create();
        try
          TS.Add(SObject.GetObjectText_(0));
          // lo pasamos al memo
          mmResult.Lines.Text := mmResult.Lines.Text + TS.Text;
        finally
          FreeAndNil(TS);
        end;
      end;
    end;
  except
    // Recuperar excepciones
  end;

end;

vous devez ajouter ActiveX et WbemScripting_TLB (cela doit être importé) dans vos utilisations. Avec cela, vous pouvez accéder à toutes les informations des disques.

pour récupérer la lettre de tous les disques que vous pouvez combiner (récupérer peut faire avec le même code) l'accès aux classes Win32_LogicalDiskToPartition et Win32_DiskDrive.

select * from Win32_LogicalDiskToPartition
select * from Win32_DiskDrive

si vous recherchez WMI, vous pouvez trouver d'autres codes apparentés.

Cordialement.

Je ne suis pas sûr si vous cherchez juste à énumérer des lettres de lecteur? La boucle en boucle ci-dessous fait ça, en parcourant toutes les lettres, qu'il y ait ou non un lecteur pour cette lettre.

Ou, si vous êtes à la recherche pour une autre façon de trouver des lecteurs amovibles, il existe une fonction pour que ci-dessous, trop. (La vôtre peut-être mieux...) Étonnamment, sur mon test, Windows.GetDriveType ne considère pas les lecteurs de CD comme amovibles. Les lecteurs USB sont marqués comme amovible, comme on le ferait attendre.

  Function RemovableDrive(Drive: char): Boolean;
  begin
    Result := (Windows.GetDriveType(PChar(Drive + ':\')) = Windows.Drive_Removable);
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  var
    Drive: Char;
  begin
    for Drive := 'A' to 'Z' do
      Memo1.Lines.Add('Drive: ' + Drive + ' is ' + BoolToStr(RemovableDrive(Drive), TRUE));
  end;