Mega Code Archive

 

Categories / Delphi / Hardware

 

How to get the volume name

Title: How to get the volume name function GetVolumeName(DriveLetter: Char): string; var dummy: DWORD; buffer: array[0..MAX_PATH] of Char; oldmode: LongInt; begin oldmode := SetErrorMode(SEM_FAILCRITICALERRORS); try GetVolumeInformation(PChar(DriveLetter + ':\'), buffer, SizeOf(buffer), nil, dummy, dummy, nil, 0); Result := StrPas(buffer); finally SetErrorMode(oldmode); end; end; Usage Example: procedure TForm1.Button1Click(Sender: TObject); begin Caption := GetVolumeName('c'); end;