Display Drive Name

Post date: Sep 18, 2010 9:39:46 PM

Returns the display name for the drive with the given root path. 

function DriveDisplayName(const Drive: string): string;
var
  FI: ShellAPI.TSHFileInfo; // info about drive
begin
  ShellAPI.SHGetFileInfo(
    PChar(Drive),
    0,
    FI,
    SizeOf(FI),

ShellAPI.SHGFI_DISPLAYNAME);

  Result := FI.szDisplayName;
end;