datos del disco duro

[seduerey]

me gustaria saber como puedo averiguar el número de serie de un disco duro, el que se genera cuando se formatea.

A poder ser multiplataforma, pero en especial bajo Win98

Gracias

[marcoszorrilla]

Pon un par de etiquetas sobre tu formulario:


procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber: DWORD;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
SerialNumber: string;
SerialNumberd:String;
begin
GetVolumeInformation('C:\',nil,0, @VolumeSerialNumber,
MaximumComponentLength, FileSystemFlags, nil, 0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);

SerialNumberd := IntToStr(HiWord(VolumeSerialNumber) )+ '-' +
IntToStr(LoWord(VolumeSerialNumber));

label1.Caption:='El número de Volumen en Hexadecimal es: '+SerialNumber;
label2.Caption:='El número de Volumen en Decimal es: '+SerialNumberd;
end;


Un Saludo.

[seduerey]

bufff.... eso no lo hubiese encontrado en la vida.


muchas gracias