FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
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; |
#3
|
|||
|
|||
bufff.... eso no lo hubiese encontrado en la vida.
muchas gracias |
|
|
|