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 !

[edupomar]

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

[MAXIUM]

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

[edupomar]

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

[Neftali [Germán.Estévez]]

Empezado por edupomar

y sigo con el mismo problema, donde puede estar el error..???, pero que gran aporte 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).

[rgstuamigo]

Empesado por mierda>

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;

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