szczegółowe inf o CD

Potrzebuję uzyskac informacje o płycie CD, najlepiej by bylo gdyby mozna wyciągnąć nr seryjny płyty, data nagrania, ilość sesji itp.
Ciekawe czy ktoś to umie zrobic ??

Nr seryjny płyty można odczytać tak:

Function NrSeryjny(naped:Char):DWord;
var Serial,Tymcz:DWord;
begin
GetVolumeInformation(PChar(naped+':'), nil, 0, @Result, Tymcz, Tymcz, nil, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=IntToStr(NrSeryjny('F'));
end;

Wydaje mi się że takie pytania były wiele razy