Delphi-PRAXiS - Delphi Identifikation von CD's

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]