Hm ok hab ich auch noch nich mit gearbeitet, werd das mal versuchen das wird wohl sowas sein:
Delphi-Quellcode:
var
HDD: Array[1..3] of Byte;
Drive:Char;
begin
for Drive := 'A' to 'Z' do
begin
case GetDriveType(PChar(Drive + ':/')) of
DRIVE_FIXED: HDD:=(Drive+':\');