Get Volume Name

This function used to get volume name.

function VolumeName(DriveName: Char): string;
var
max, Flags: DWORD;
Buf: array [0..MAX_PATH] of Char;
begin
try
GetVolumeInformation(PChar(DriveName + ‘:\’), Buf, sizeof(Buf), nil, max, Flags, nil, 0);
Result := StrPas(buf);
except
result := ”;
end;
end;

Download: Source Code

Incoming search terms:

• delphi get drive name
• delphi GetVolumeInformation
• delphi XE volume label
• delphi volume
• delphi get volume name
• delphi get volume label
• delphi get drive label
• delphi get disk label
• komponen tmxprotector delphi xe
• get drives names delphi