Neue Hardware Erkennen und Laufwerkbuchstabe ausgeben

[hedie]

Die Volumenseriennumer dürfte wohl doch ein kleines Problem Darstellen

Der Code den ich verwenden wollte gibt nur "müll" zurück (ein viereckchen)

Delphi-Quellcode:

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;