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