Discussion :

[Laskar]

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.

[Laskar]

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

J'ai utilisé les WMI :

Code :

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

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 :

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

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 !