Número de serie físico del disco duro

[REDCOM]

Saludos a todos los foristas.

Cómo obtengo el número de serie físico del disco duro
instalado en la computadora

Gracias por su tiempo y gentileza

[[kuan-yiu]]

En la sección "Temas Similares" , situada al fondo de esta misma página puedes encontrar varios hilos que creo que te servirán.

[mierda]

Hola, aqui tengo un ejemplo que te servira:

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 la llamada

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

Enga un saludo

pd: leyendo los enlaces relacionados, dicen que este truco no funciona.Mejor que utiliza este de los trucos
http://www.clubdelphi.com/trucos/index.php?id=185

[delphi.com.ar]

Empezado por mierda

Hola, aqui tengo un ejemplo que te servira...

Solo quiero aclarar que ese ejemplo retorna el número de serie Lógico, no Físico.

Saludos!

[edupomar]

muy buena aportacion de nefatali, resolvi el problema...

[[rretamar]]

Supongo que es para algún tipo de protección anticopia ¿ no ?.

Un problema de las bibliotecas para obtener el número de serie "físico" es que (al menos las que probé) necesitan que se ejecuten con privilegios de administrador. Eso puede ser una limitación importante para el software que use ese tipo de protección. Lo barato a veces sale caro...

Saludos !