Alguem sabe como ler o serial do HD?Digo da eprom!

Não sei se estou enganado,mas as rotinas que tem por aí para ler o serial do HD não leem da Eprom?

Eu faço assim:

function NumeroSerie(Unidade:PChar):String;
{Retorna o Número serial da unidade especificada}
var
VolName,SysName : AnsiString;
SerialNo,MaxCLength,FileFlags : DWord;
begin
try
SetLength(VolName,255);
SetLength(SysName,255);
GetVolumeInformation(Unidade,PChar(VolName),255,@SerialNo,
MaxCLength,FileFlags,PChar(SysName),255);
result := IntToHex(SerialNo,8);
except
result := ´ ´;
end;
end;

Espero que sirva.........um abraço Henry