Componente DiskInfo, para Obtener el Numero de Serie del Disco Duro

[[Caral]]

Hola
Esta funcion obtiene en numero de serie del disco:

Código Delphi [-]
   function GetVolumeID(DriveChar: Char): String;
   var
     MaxFileNameLength, VolFlags, SerNum: DWord;
   begin
     if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
        @SerNum, MaxFileNameLength, VolFlags, nil, 0)
     then
     begin
       Result := IntToHex(SerNum,8);
       Insert('-', Result, 5);
     end
     else
         Result := '';
   end;

Ejemplo de llamada a la funcion:

Código Delphi [-]
Label1.Caption:=GetVolumeId('c');

Creo que esto estaba en trucomania.
Saludos

[Alexis De la Cr]

Estimado Caral:

Muchas Gracias por Tomarte el tiempo para responder. Sin embargo este mismo Codigo ya aparece en algunos post aqui en el foro.

El detalle de este Codigo es que no te muestra el Numero de Serie del disco duro, sino del Volumen, el cual se renueva aleatoriamente cada vez que Formatea el Disco duro.

De todas MAneras Gracias por el Tip.

Alexis De la Cruz

[[egostar]]

Hola Alexis

Visita la página de Domingo (seoane), ahi tienes el código que requieres, solo hay una cuestión, pudiera ser que el número de serie no esté disponible en algunos discos duros, no se como explicarlo, pero seoane te pudiera dar mas detalles.

Salud OS.