A-AA+then

ฟังก์ชั่น จะคืนค่าของ Disk Label

function GetDiskLabel(Drv: String): String;
var
  Buff: array [0..254] of Char;
  r: UINT;
begin
  FillChar(Buff, SizeOf(Buff), 0);
  GetVolumeInformation(PChar(Drv), Buff, SizeOf(Buff), nil, r, r, nil, 0);
  Result := Buff;
end;

ตัวอย่าง

GetDiskLabel('A:\');

Delphi

Relate

^