[USB] Ejection d'un disque [FAQ]

**Jipété** · 22/02/2010, 22h59

Salut à tous !

Mon grain de sel, et mes tests à l'instant :
je plante une clé USB et un disque externe USB aussi dans ma machine puis,
clic droit sur Poste de travail / Gérer / Stockage / Lecteurs logiques
et là, je constate que

la clé est vue dans la colonne "Type" comme "Disque amovible" ;
le disque comporte 3 partitions (créées par votre serviteur il ya qq mois) qui sont vues comme "Disque local".

(Un truc que j'avais remarqué à propos de ce disque (mais est-ce lié aux 3 partoches ?), c'est que "Clic gauche" sur l'icône en Systray puis "Arrêter périphérique de stockage de masse", ça ne le fait pas : "impossible d'arrêter bla bla...".
Alors qu'il n'y a aucun souci avec ma(es) clé(s).)

Un test rapide avec un petit bricolo où j'ai rajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  if (SHFileInfo.dwAttributes and SFGAO_REMOVABLE  <> 0) then attrs := attrs + 'rem';

m'affiche bien "rem" à propos de la clé -- Mais pas à propos du disque USB !

Chercher de ce côté-là ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  ShGetFileInfo(PChar(filename), 0, SHFileInfo, SizeOf (SHFileInfo),
    SHGFI_TYPENAME or SHGFI_DISPLAYNAME or SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_ATTRIBUTES);

**ero-sennin** · 23/02/2010, 08h56

Salut Jipété

Tout d'abord, merci de t'être repenché un peu sur ce sujet !
Ensuite, concernant ta réponse, je ne pense pas que ShGetFileInfo puisse nous être utile dans ce contexte. J'ai lu rapido ce qui se disait sur la MSDN, et j'en ai conclus que c'est utiliser pour obtenir des infos sur un fichier et non un support (à moins que je n'ai pas trop compris la finalité de ton idée).

Pour ce qui est du disque Amovible, je ne me rappelle plus trop... Faudrait éventuellement voir du côté de GET_MEDIA_TYPES ainsi que STORAGE_MEDIA_TYPE. Le souci, c'est que je n'aurai probablement pas le temps de m'y pencher.

**Mac LAK** · 23/02/2010, 10h23

Envoyé par SergioMaster

moralité : changer mon Icône

Ou modifier les noms de volumes / types de partition... Par exemple, "imposer" du FAT32 sur tes clés USB, et du NTFS sur tes disques durs amovibles, ou la présence du mot "KEY" dans le nom de volume d'une clé USB, et "DISK" pour un disque.

Autre solution : tenter d'analyser le MBR pour voir s'il n'y aurait pas une information discriminante quelque part... Sait-on jamais ? Si le disque dur a été formaté la première fois en étant connecté en IDE/SATA, peut-être en reste-t'il une trace dans le MBR et les informations de partition ?

**Jipété** · 23/02/2010, 10h29

Salut Ero !

Envoyé par ero-sennin

Ensuite, concernant ta réponse, je ne pense pas que ShGetFileInfo puisse nous être utile dans ce contexte.

Ben je t'avouerai que le contexte je l'ai pas étudié,

Envoyé par ero-sennin

Faudrait éventuellement voir du côté de GET_MEDIA_TYPES ainsi que STORAGE_MEDIA_TYPE.

Ah ouais, ça a l'air sympa, juste un truc qui m'embête :

Minimum supported client : Windows XP

Alors moi, avec mon dinosaure (solid as a rock, hein !) sous w2k, je pourrai pas tester/pas aider,

Envoyé par ero-sennin

Le souci, c'est que je n'aurai probablement pas le temps de m'y pencher.

Moi non plus,

**SergioMaster** · 26/02/2010, 09h01

Bon, je reviens d'un déplacement , et vous remercie des pistes indiquées .
il doit y avoir solution puisque wmiSysinfos de dipisoft
ici
fait la distinction , donc une piste serait la WMI , ce post tombe fort à propos , merci cincap

je vais me ré-attelé à la tâche lors de mes "temps libres"

en attendant , mon icône sera moins explicite

et indiquera juste que c'est de l'USB

**SergioMaster** · 03/03/2010, 15h52

WMI est bien une mine d'informations , permettant même de savoir s'il faut déconnecter ou non avant d'ejecter .
Mon problème maintenant , est de faire le lien entre Disque logique et Disque Physique et là , je galère

suite au prochain épisode

**Mac LAK** · 03/03/2010, 15h59

Envoyé par SergioMaster

Mon problème maintenant , est de faire le lien entre Disque logique et Disque Physique et là , je galère

Un truc dans le genre de ce que renvoie diskpart ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

echo list volume | diskpart

**Eric Boisvert** · 03/03/2010, 16h02

Pour mon article Dupdisk, j'ai été confronté un peu au même problème...

Cette fonction renvoit la liste des disque logique pour
un # de disque physique via wmi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
 
//==============================================================================
//== Obtien la lettre associée d'un Numéro de disque physique via WMI
//== source des requêtes WMI dans cette fonction
//==  http://msdn2.microsoft.com/en-us/library/aa394592.aspx
//== L'avantage d'utilisé OLE Atomation avec WMI, c'est que la syntax
//== Delphi devient semblable à du VBScript...
//== et il exsite beaucoup d'exemple en VBScript.
//==
//== use urlMon,ActiveX,ComObj
//==============================================================================
Function GetLogicalDriveLetter(PhisicalDrive: Integer): String;
Var
  //== Moniker stuff ==
  hr: HResult;
  wsWMIConnectionStr: widestring;
  oBindCtx: IBindCtx; // BindContext
  oIMoniker: IMoniker; // IMoniker interface
  oIDispatch: IDispatch; // WMI connection
  oleWMI: OleVariant;
  oDisks, oDisk: OleVariant; // Objet Disks (physique)
  oPartitions, oPartition: OleVariant; // Objets Partitions
  oLogicalDisks, oLogicalDisk: OleVariant; // Objets LogicalDisk
  oEnumDisk, oEnumPart, oEnumVolume: IEnumvariant; // Ennumerations
  ulParsed: ULONG;
  sDiskPhysique: String;
  sPartition: String;
  sDiskLogique: String;
  query: String;
Begin
  //== Utilise WMI a travers OLE et une Session Moniker...
  //== Source http://msdn2.microsoft.com/en-us/library/aa383539.aspx
  //==        http://msdn2.microsoft.com/en-us/library/aa389763.aspx
  //==        http://msdn2.microsoft.com/en-us/library/ms221192.aspx
  //== Initialise les objets COM ==
  CoInitialize(Nil);
  sDiskLogique := '';
  Try
  //== DEBUT Equivalent à GetObject de VBScript via OLE ==
  //== voir: http://support.microsoft.com/kb/122288 ==
    //== Obtient un bind Context ==
    hr := CreateBindCtx(0, oBindCtx);
    If hr <> 0 Then OleCheck(hr);
    //== Obtient IMoniker interface  ==
    wsWMIConnectionStr := 'winmgmts:\\.\root\cimv2';
    hr := MkParseDisplayNameEx(oBindCtx, PWideChar(wsWMIConnectionStr), ulParsed, oIMoniker);
    If hr <> 0 Then OleCheck(hr);
    //== Obtient un objet WMI  ==
    hr := oIMoniker.BindToObject(oBindCtx, Nil, IUnknown, oIDispatch);
    If hr <> 0 Then OleCheck(hr);
    oleWMI := oIDispatch;
  //== FIN Equivalent à GetObject de VBScript ==
 
    //== Trouve tous les disques Physiques ==
    query := 'SELECT Caption, DeviceID FROM Win32_DiskDrive';
    oDisks := oleWMI.ExecQuery(query);
    oEnumDisk := IUnknown(oDisks._NewEnum) As IEnumVariant;
    While oEnumDisk.Next(1, oDisk, ulParsed) = 0 Do
    Begin
      sDiskPhysique := oDisk.DeviceID;
      If StrToInt(sDiskPhysique[length(SDiskPhysique)]) = PhisicalDrive Then
      Begin
        //== Pour chaque disque, trouve toutes les partitions ==
        query := 'ASSOCIATORS OF {Win32_DiskDrive.DeviceID=''';
        query := query + sDiskPhysique;
        //uery := ''' OR Win32_DiskDrive.DeviceID=''';
        //query := query + sDiskPhysique+1;
        query := query + '''} WHERE AssocClass = Win32_DiskDriveToDiskPartition';
        oPartitions := oleWMI.ExecQuery(query);
        oEnumPart := IUnknown(oPartitions._NewEnum) As IEnumVariant;
        While oEnumPart.Next(1, oPartition, ulParsed) = 0 Do
        Begin
          sPartition := oPartition.DeviceID;
          //== Pour chaque partition, Trouve les Disques Logiques (lettre) ==
          query := 'ASSOCIATORS OF {Win32_DiskPartition.DeviceID="';
          query := query + sPartition;
          query := query + '"} WHERE AssocClass = Win32_LogicalDiskToPartition';
          oLogicalDisks := oleWMI.ExecQuery(query);
          oEnumVolume := IUnknown(oLogicalDisks._NewEnum) As IEnumVariant;
          While oEnumVolume.Next(1, oLogicalDisk, ulParsed) = 0 Do
          Begin
            //== Accumule les lettres associées au disque Physique demandé ==
            sDiskLogique := sDiskLogique + oLogicalDisk.DeviceID;
          End;
        End;
      End;
    End;
  Finally
    //== Liberatrion des objets COM ==
    CoUninitialize();
    result := sDiskLogique;
  End;
End;

**SergioMaster** · 03/03/2010, 16h34

ce serait plutôt l'inverse , une fonction du genre :

Function GetPhysicalDrive(LogicalDrive: String): String;

pour obtenir par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
GetPhysicalDrive('C:');  --> \\\\.\\PHYSICALDRIVE1
GetPhysicalDrive('D:');  --> \\\\.\\PHYSICALDRIVE1  
GetPhysicalDrive('F:');  --> \\\\.\\PHYSICALDRIVE0

Effectivement je me penche sur les ASSOCIATORS OF

**Eric Boisvert** · 03/03/2010, 16h41

Envoyé par SergioMaster

ce serait plutôt l'inverse

Je sais bien... mais c'est un point de départ...
Et je n'ai pas le temps de l'écrire à l'envers pour vous....

Alors Bonne continuité dans votre code.

**SergioMaster** · 05/03/2010, 10h32

Envoyé par Eric Boisvert

Je sais bien... mais c'est un point de départ...
Et je n'ai pas le temps de l'écrire à l'envers pour vous....

Je n'en demande pas tant , et merci pour ce code

en fait j'avance et je découvre

j'en suis a un mix de deux "WMISQL"
1- 'REFERENCES OF {Win32_LogicalDISK="C:"} WHERE ResultClass=Win32_LogicalDiskToPartition '

ici je peux obtenir les infos de partition dans la partie deviceID de l'antécédent ce qui me donne "Disk #0, Partition #2" pour le DEVICEID

2-REFERENCES OF {Win32_DiskPartition="Disk #0, Partition #2"} WHERE ResultClass=Win32_DiskDriveToDiskPartition

ici , toujours dans antécédent, j'obtiens la valeur cherchée
ce qui me donne : \\\\\\\\.\\\\PHYSICALDRIVE0

Me reste "plus qu'a" traiter correctement les informations de antécédent pour en faire des variables , encore quelques efforts en perspective ....

[Edit] Un premier resultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
// drive sous la forme 'C:' 
//uses     WbemScripting_TLB, Variants, ActiveX, StrUtils;
 
// Constantes WMI
const
  STR_LOCALHOST = '.';
  STR_CIM2_ROOT = 'root\cimv2';
  STR_CLASS     = 'Win32_DISKDRIVE';
// Autres
const
  STR_EMPTY = '';
 
function GetPhysicalDrive(Drive : String) : String;
  var
   Locator:ISWbemLocator;
   Services:ISWbemServices;
   SObject:ISWbemObject;
   ObjSet:ISWbemObjectSet;
   Enum:IEnumVariant;
   Value:Cardinal;
   partition : String;
 
    function DeviceIDFromAssoc(ObjectSet : ISWbemObjectSet): String;
    var   SObject:ISWbemObject;
        Enum:IEnumVariant;
        TS:TStrings;
        p,q : Integer;
    begin
     // Obtenir DeviceID de Antécédent
     Enum :=  (ObjSet._NewEnum) as IEnumVariant;
     // un objet trouvé ?
     if (Enum.Next(1, TempObj, Value) = S_OK) then begin
      SObject := IUnknown(TempObj) as ISWBemObject;
      if (SObject <> nil) then begin
        // Acceder aux propriétés
        SObject.Properties_;
        TS := TStringList.Create();
        try
          TS.Add(SObject.GetObjectText_(0));
          p:=pos('DeviceID=\"',TS.Text)+11;     // "sale" mais efficace
          q:=pos('Dependent',TS.Text)-6;        //
          Result:=Copy(TS.Text,p,q-p);
        finally
          FreeAndNil(TS);
        end;
      end;
      end;
    end;
   try
    Locator := CoSWbemLocator.Create();
    // Connection au service WMI
    Services := Locator.ConnectServer(
        STR_LOCALHOST,        {local}
        STR_CIM2_ROOT,        {root}
        STR_EMPTY, STR_EMPTY, {Utilisateur et Mot de passe -en local inutile-}
        STR_EMPTY,STR_EMPTY, 0, nil);
    // Acceder aux données
   ObjSet := Services.ExecQuery('REFERENCES OF {Win32_LogicalDISK="'+Drive+'"} WHERE ResultClass=Win32_LogicalDiskToPartition ',
                                'WQL',wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
 
   Partition:=DeviceIDFromAssoc(ObjSet);
   // on passe de la partition au disque physique
   ObjSet := Services.ExecQuery('REFERENCES OF {Win32_DiskPartition="'+Partition+'"} WHERE ResultClass=Win32_DiskDriveToDiskPartition',
                                'WQL',wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
 
   result:=AnsiReplaceStr(DeviceIDFromAssoc(ObjSet),'\\','\');
   except
     result:='unknown';
   end;
  end;

[USB] Ejection d'un disque [FAQ]

API, COM et SDKs Delphi

Discussions similaires

Partager

Partager