Wie kann ich die Volume-ID eines Laufwerks ermitteln?

Die Funktion "VolumeID" gibt die Volume-ID, also den Namen einer Partition zurück:

function VolumeID(DriveChar: Char): string;
var OldErrorMode : Integer;
    NotUsed, VolFlags : DWORD;
    Buf : array [0..MAX_PATH] of Char;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    GetVolumeInformation(PChar(DriveChar + ':\'), Buf, sizeof(Buf), nil, NotUsed, VolFlags, nil, 0);
    Result := Format('[%s]',[Buf]);
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

Delphi 1

Delphi 2

Delphi 3

Delphi 4

nicht getestet

Version nicht betroffen

getestet

siehe auch:

Wie kann ich die ID-Nummer einer Audio-CD ermittlen?

Delphi FAQ