Accés aux lecteurs physiques

Bonjour à tous.

Il existe une fonction dans Delphi qui donne la liste des lecteurs logiques (GetLogicalDrives) et qui retourne "C:\", "D:\", etc.

Existe-t-il une fonction qui permette d'obtenir le lecteur physique à partir du lecteur logique et qui serait du genre :

GetPhysicalDrives('C:\') et retournerait "\\.\PhysicalDrive0" ? ( j'ai pas trouvé :( )

Merci.

Bon, je me réponds à moi-même ...

J'ai utilisé les WMI :

Code:

---

1 2 3 4

// 'Drive' est égale à 'C:' par exemple // On cherche la partition ObjSet := Services.ExecQuery('REFERENCES OF{Win32_LogicalDISK="'+Drive+'"} WHERE ResultClass=Win32_LogicalDiskToPartition ', 'WQL',wbemFlagReturnImmediately and wbemFlagForwardOnly , nil); Partition := DeviceIDFromAssoc(ObjSet);

---

puis, de la partition, on passe au lecteur

Code:

---

1 2	ObjSet := Services.ExecQuery('REFERENCES OF{Win32_DiskPartition="'+Partition+'"} WHERE ResultClass=Win32_DiskDriveToDiskPartition','WQL',wbemFlagReturnImmediately and wbemFlagForwardOnly , nil); PhysicalDrive := AnsiReplaceStr(DeviceIDFromAssoc(ObjSet),'\\','\');

---

au final, PhysicalDrive = "\\\\.\\PHYSICALDRIVE0" ... Bingo !

J'utilise un marteau-pilon pour écraser une noix mais ça marche ! :P