[[seoane]]

Este codigo deberia de funcionar para obtener el numero de serie, solo lo probe con cds de datos, pero creo que es lo que buscabas.

var
  Serial: DWORD;
  Dummy: Cardinal;
begin
  // La letra de la unidad de CDs supongo que es la D
  if GetVolumeInformation( 'D:\',nil,0,@Serial,Dummy, Dummy,nil,0) then
    begin
       // Aqui haz lo que quieres con el numero de serie
    end;
end;