Número de serie físico del disco duro
 

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:)

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

mira a ver si te sirve este codigo
 

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

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

Saludos!

consulta
 

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

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 !

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

Gratis, funciona (leer instrucciones) http://neftali.clubdelphi.com/?p=240
De Pago, funciona http://www.devlib.net/tgetdiskserial.htm

Gracias por la informacion MAXIUM me fue de mucha ayuda, al igual que la ayuda de neftali...

Creo que no has instalado el package, de ahí que al abrir el proyecto te diga que no encientra el componente.

(1º) En el fichero que te has bajado de la web, en el directorio packages está el package que debes instalar; Ábrelo desde el IDE, compila e instala.
(2º) Una vez instalado el package ya debería ver el componente al abrir el formulario del ejemplo.
Si al compilar te da el error de que no encuentra el ficheros, basta con que añadas el path (donde está CDiskInfo) a los directorios de busqueda (Search path en la opciones del proyecto).

Empesado por mierda>

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;

Ese codigo es el mismo que tiene este libro de trucos en la pagina 76,;):D. me alegra que lo conoscas y aparte de eso tambien existen muchos otros trucos mas....
Saludos...:)