Foros Club Delphi - datos del disco duro

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - datos del disco duro (https://www.clubdelphi.com/foros/showthread.php?t=1880)

datos del disco duro

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

Pon un par de etiquetas sobre tu formulario:

Código:

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.

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

muchas gracias