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

[Alexis De la Cr]

Estimados Colegas:

Estoy intentando Obtener el Numero de Serie Fisico del Disco Duro donde se va a instalar la aplicacion que estoy desarrollando. Buscando por aqui Encontre que hay un componente que se llama DiskInfo que hace esa tarea y que ademas es gratuito.

Utilizo Delphi 7 , y una ves que lo instale(Aparentemente bien), no he podido utilizarlo ya que cuando pretendo ejecutar mi aplicacion, por muy sencilla que sea manda el siguiente error

system error. Code 55: El recurso de red o el dispositivo especificados ya no se encuentran disponibles.

Lo curios es que Durante el diseño de la apliacion, el inspector de objetos si muestra correctamente el numero de serie del disco duro.

Aqui es donde me surge una Pregunta, como pasa esto, que si funcione en tiempo de diseño, pero no en tiempo de ejecucion??

Debo aclarar que el numero de serie se obtiene a traves de una dll, si no tienes la dll en la misma carpeta que la aplicacion, el inspector de objetos no muestra el numero de serie.

Otro detalle es que el Demo ejecutable funciona a la perfeccion, pero el codigo fuente al intentar compilarlo, arroja el mismo error y no funciona....

Sera que hay truco por ser gratuito, para poder hacerlo funcionar correctamente?

Bueno si alguien tiene mas experiencia con este componente, se agradeceran los comentarios vertidos aqui.

Saludos

[[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.