Identifikation von CD's

[RedDust]

Hallo erstmal,

ich schreibe gerade an einer art Datenbank für CD's. Nun hätt ich mal noch ein paar Fragen:

1. Gibt es eine Möglichkeit die ID einer CD auszulesen???
2. Kann man herausfinden ob es sich bei einem Laufwerk (z.B. D:\) um eine Festplatte, CD-LW oder so handelt? (Hat sich erledigt, hab' Infos gefunden)
3. Die Datenträgerbezeichnung auslesen

wär echt super wenn ihr mir weiterhelfen könntet

[edit]

zu 2.

Delphi-Quellcode:

procedure GetDrives(const AItems: TStrings);
const  DriveTypeTexts: array[DRIVE_UNKNOWN..DRIVE_RAMDISK] of String =   ('Unbekannt', 'Kein Wurzelverzeichnis', 'Diskette', 'Festplatte', 'Netzlaufwerk', 'CDROM', 'RAMDisk');
var  Drive: Char;
     DriveType: Integer;
     DriveMask: Integer;
     Flag: Integer;
begin
  DriveMask:=GetLogicalDrives;
  flag:=1;
  for Drive := 'A' to 'Z' do  begin
    if (flag and DriveMask)<>0 then
      begin 
        DriveType := GetDriveType(PChar(Format('%S:\',[Drive]) ) ) ;
        AItems.Add(Format('%s: %s', [Drive, DriveTypeTexts[DriveType]]));
    end;
  flag:=flag shl 1;
  end;
end;

[/edit]

[StefanW]

zu den anderen 2 Fragen müsste dir die suche was brauchbares finden...
such mal nach "Seriennummer" und "Datenträgerbezeichnung"

[Boombuler]

Guck mal unter:

GetVolumeInformation

Greetz
Boombuler