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