Festplatte /CD-Rom ohne Volumeid?

[samso]

Vielleicht ist das hier, dass was Du suchst

Delphi-Quellcode:

function VolumeId(const Drive: String): string;
var
  OldErrorMode: Integer;
  NotUsed, VolFlags: Cardinal;
  Buf: array [0..MAX_PATH] of Char;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    Buf[0] := #0;
    if GetVolumeInformation(PChar(Drive), Buf, sizeof(Buf), nil, NotUsed, VolFlags, nil, 0)
    then
      SetString(Result, Buf, StrLen(Buf))
    else
      Result := '';
  finally
    SetErrorMode(OldErrorMode);
  end;
end;