Número de cd?

[DarkByte]

Lepe... no estoy molesto.... no te preocupes, si lo dices por eso, todo lo contrario.

[[Lepe]]

Empezado por DarkByte

Lepe... no estoy molesto.... no te preocupes, si lo dices por eso, todo lo contrario.

mmmm, Creo que tendré que leer un poco mas de Literatura, a ver si agrando mi vocabulario, porque algunas veces uso palabras que pueden parecer "antipáticas" cuando mi intención es comentar algo. ¿Algun buen libro que me recomienden?

Saludos

[[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;