[[Crandel]]

usa esta función

Código Delphi [-]
Function GetDrivePath(DriveLetter:String):String;
var Buffer: array[0..255] of char;
begin
    DriveLetter := Copy(DriveLetter,1,1)+':';
    FillChar(Buffer,SizeOf(Buffer),#0);
    QueryDosDevice(PChar(DriveLetter),Buffer,SizeOf(Buffer));
    Result := StrPas(Buffer);
End;