Name eines Datenträgers auslesen

[Nils_13]

Klar, aber wenn ich die Suchbegriffe nicht kenne, finde ich nichts. Danke Deddy für den Begriff. Das hier ist die fertige Funktion - leserlicher als der Müll der hier sonst so rumfliegt:

Delphi-Quellcode:

function GetVolumeLabel(Drive : Char) : String;
var VolLab            : Array [0..MAX_PATH] of Char;
    MaxLength,SysFlag : DWORD;
    OldErrorMode      : Integer;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if GetVolumeInformation(PChar(Drive+':\'), VolLab, 255, nil, MaxLength, SysFlag, nil, 255) then
      Result := VolLab;
    else
      Result := '';
  finally
    SetErrorMode(OldErrorMode);
  end;
end;