Display Drive Name

function DriveDisplayName(const Drive: string): string;

var

  FI: ShellAPI.TSHFileInfo; // info about drive

begin

  ShellAPI.SHGetFileInfo(

    PChar(Drive),

    0,

    FI,

    SizeOf(FI),

  Result := FI.szDisplayName;

end;