Delphi Tutorial

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

This entry was posted on Thursday, February 22nd, 2007 at 6:53 am and is filed under System. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.