Informationen über eine CD

[Uncle Cracker]

Wie und welche Informationen kann ich über eine CD bekommen.

Ich habe irgendwo mal folgenden Code gefunden:

Delphi-Quellcode:

Type
  tVolumeInfo = Record
      Drive: Char;
      Name: String;
      SerialNumber: DWord;
      FileSystemName: String;
    End;

Function GetVolumeInfo (aDrive: Char): tVolumeInfo; 
Var
  OldErrorMode: Integer; 
  Dummy1, Dummy2: DWord;
  VolumeNameBuf, 
  FileSystemNameBuf: Array [0..MAX_PATH] of Char;
  VolumenSerialNumber: pDWord; 

  Info: tVolumeInfo;
Begin
  With Info Do 
    Begin
      Drive := aDrive; 
      Name := '';
      SerialNumber := 0;
      FileSystemName := ''; 
    End; 

  OldErrorMode := SetErrorMode (SEM_FAILCRITICALERRORS);
  Try
    If GetVolumeInformation (
        pChar (aDrive + ':\'),
        VolumeNameBuf, SizeOf (VolumeNameBuf),
        VolumenSerialNumber, Dummy1, Dummy2,
        FileSystemNameBuf, SizeOf (FileSystemNameBuf)
      )
    Then
      Begin
        Info.Name := VolumeNameBuf;
        Info.SerialNumber := VolumenSerialNumber^;
        Info.FileSystemName := FileSystemNameBuf;
      End;
  Finally
    SetErrorMode (OldErrorMode);
  End;

  Result := Info;
End;


procedure TForm1.Button1Click(Sender: TObject);
Var
  Info: tVolumeInfo;
  Str: String;
Begin
  Info := GetVolumeInfo ('e');

  Str := 'Informationen über Laufwerk' + #32 + Info.Drive;
  Str := Str + #13#10#32#32 + 'Name: ' + Info.Name;
  Str := Str + #13#10#32#32 + 'Serial: ' + IntToStr (Info.SerialNumber);
  Str := Str + #13#10#32#32 + 'System: ' + Info.FileSystemName;

  MessageDlg (Str, mtInformation, [mbOK], 0);
End;

Jedoch gibt diese Funktion mir keine Inforamtion über eine leere CD aus.

Außerdem wollte ich noch fragen, ob sich die Seriennummer der CD ändert, sobald ich etwas darauf gebrannt habe und ob es vielleicht CD Infos gibt, die von CD zu CD anderes sind, jedoch sich beim bespielen der CD nicht ändern.

Vielleicht hat sich schon mal jemand mit diesem Thema auseinander gesetzt und kann mir helfen.


Danke UC

[Stanlay Hanks]

Hi. Also soweit ich weiß, ändert sich die Seriennummer einer CD nicht, wenn man sie bespielt. Wäre ja auch irgendwie unlogisch.

Leider kann ich dir ansonsten aber nicht weiterhelfen.

Man liest sich, Stanlay

[Luckie]

Der Code ist auch nicht speziell für CD's, sondern für Laufwerke aller Art. Und speziell für CD's kann ich mir vorstellen, dass du da spezielle Header-Übersetzungen brauchst.

[Uncle Cracker]

Ist es denn irgendwie möglich heraus zubekommen, wann die CD gebrannt wurde oder den Hersteller der CD oder etwas ähnliches?

ICh bräuchte nämlich was, dass sich nie ändert.

[sharkx]

Das Datum wann die CD bebrannt wurde, bekommst du anhand des Dateidatums. Allerdings gibt es auch bei manchen Brennprogrammen die Option, das original Datum der erstellten File zu übernehmen.

[Uncle Cracker]

Habe ich gerade getestet, CloneCD übernimmt das Originaldatum der datei, kann man vielleicht das Brenndatum herausbekommen?

Bei Nero ist es möglich sogar den Hersteller der CD anzeigen zu lassen, kann man das vielleicht irgendwie herausbekommen?


Danke UC