Festplatte /CD-Rom ohne Volumeid?

[himitsu]

Zitat:

SizeOf(Buf)

Man beachte unbedingt die Beschreibung für nVolumeNameSize

GetVolumeInformation

Zitat:

The length of a volume name buffer, in TCHARs

TCHAR wurde im MSDN nicht umsonst fett geschrieben.
Also Length und nicht SizeOf.


Genau durch solche Fehler entstehen die meisten vProbleme mit den APIs.
- Entweder funktioniert der Code dann nicht, durch einen vermeintlich zu kleine Buffer,
- oder es gibt ganz besonders schöne Speicherüberläufe, da der Buffer größer angegeben wird, als er wirklich ist.

[samso]

Aja, danke! Ich habe meine Bibliotheken immer noch nicht komplett auf Unicode umgestellt.

[himitsu]

Wobei es ja eigentlich schon zu Ansi-Zeiten "falsch" war, auch wenn es zufällig funktioniert.

[p80286]

Vielen Dank für Eure Hinweise. Das hier ist jetzt dabei heraus gekommen:

Delphi-Quellcode:

function GetVolName(Drive:char;out VolSerialNo,FileSystemName:ansistring):ansistring;
var
  DrivePath        : Ansistring;
  MaximumComponentLength : DWORD;
  FileSystemFlags  : DWORD;
  VolumeSerialNo   : DWORD;
  buffer1          : array [0..MAX_PATH] of ansichar;
  buffer2          : array [0..MAX_PATH] of ansichar;
  PVolName         : PChar;
  VolumeName       : Ansistring;
  VolumeNameLength : integer;
begin
  Result := '';
  DrivePath := Drive + ':\';
  fillchar(buffer1,Sizeof(buffer1),' ');
  fillchar(buffer2,Sizeof(buffer2),' ');
  GetVolumeInformation(PChar(DrivePath),
                       PChar(@buffer1[0]),
                       Length(buffer1),
                       @VolumeSerialNo,
                       MaximumComponentLength,
                       FileSystemFlags,
                       PChar(@buffer2[0]),
                       Length(buffer2));
  Result:=buffer1;
  VolSerialNo:=inttostr(VolumeSerialNo);
  FileSystemName:=buffer2;
end;

Unter XP/D7 funktioniert es.

Ich habe übrigens keinen Datenträger mehr gefunden, der mit FindFirst und faVolumeID noch ein Ergebnis brachte (Disketten hab ich keine mehr)

vielen Dank nochmal!
K-H