Inicio > Componentes > Componente TDiskInfo

Componente TDiskInfo

viernes, 27 de febrero de 2009 Dejar un comentario Ir a comentarios
Share Button

Este componente permite para recuperar información diversa sobre los Discos existentes en el de sistema; Discos duros, diskettes, discos de red, discos RAM… Colóquelo en un formulario y defina la letra del disco.

Puede recuperar la información sobre:

  • Volumem; Etiqueta, número…
  • Serial number (no número de volumen)
  • Espacio; Libre, total, ocupado.
  • Icono del suistema
  • Nombre en el Explorer y descripción
  • Tipo de disco
  • Sistema de ficheros
  • Clusters, Sectores,…

  • Incluye código fuente
  • Incluye EXE (demo)

Historial:

(version 1.2)
Corrected bug at retrive Serial number (not volume number) from various disks.

Download Descargar componente

Vota este post
Categories: Componentes Tags: ,
Subscribe
Notify of
guest

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

26 Comments
Inline Feedbacks
Ver todos los comentarios
Robson Dantas
Robson Dantas
15 years ago

Texto em portuguese – Brazil:

Pegar Número Serial do PenDrive:
http://scissec.scis.ecu.edu.au/conference_proceedings/2007/forensics/23_Luo_Tracing_USB_Device_artefacts_on_Windows_XP.pdf

Colocar no TDiskInfo

EDUARDO
15 years ago

GRACIAS POR SU GRAN APORTE, EN VERDAD QUE GRACIAS…

EDUARDO
15 years ago

MUY BUEN APORTE, EXCELENTE APLICACION, HAY MIL APLICACIONES QUE SON PAGADAS, PERO TU APORTE ME FUE DE MUCHA AYUDA, GRACIAS…

Carlos Perez
Carlos Perez
15 years ago

El componente diskinfo, no trabaja para disco sata, como se puede resolver esto ??
Salu2

Alzheimer
Alzheimer
14 years ago

tu komponente solo funciona kon diskos lógikos???
no puedo obtener información del disko físiko komo tal sino de las particiones k le he hecho….

Octavio Sanchez
Octavio Sanchez
14 years ago

Se instalamuy bien y me dá toda la información, excepto el numero de serie del disco.

Me envia este error «», alguien podria decirme que dahcer para resolverlo.

Te antemano gracias

OpsMc
14 years ago

El componente me había servido de maravilla….pero con vista no funciona ayudaaaaaaaaaaaaaaaaaa

Amadis
14 years ago

Estimado neftali, hace tiempo uso tus componentes, principalmente el HardDiskInfo y recientemente estoy instalando todo lo que usaba antes en XP y Delphi 7 en Vista y Delphi 2009 architect para luego migrar los proyectos y me he encontrado con que el componente HardDiskInfo no funciona bien en vista o bien no lo puedo hacer andar. El problema es que no arroja el Nº de serie del disco. Pero si los demas datos. Has comprobado eso? O será error mío. PD. el demo produce el mismo efecto.

Otra cosa, me parece que no funciona el link para bajar la Glib completa. de la parte de componentes.

He buscado en clubdelphi sobre proglemas de glib con vista pero no he visto nada.

SALUDOS Y EXITOS.

Amadis

GREKO
GREKO
14 years ago

Tengan en cuenta que deben de poner el archivo IDESN.dll junto con el .exe para que tome el numero de serie fisico

Luis
Luis
13 years ago

Hola, el componente no me funciona en Windows Vista/7, Delphi 7 arranca normalmente, me gustaria saber si existe una version mas actual compatible con vista o seven.

maiquemasque
13 years ago

Hola Neftalí. Gracias por este maravilloso aporte :) Pero me uno al club de «no funciona en vista / 7″ . Probé a darle compatibilidad con xp, ejecutar como administrador, desde la propia cuenta de administrador. Pero nada, no da el número de serie del HD.

No da ningún otro problema, ni se bloquea…nada. Tan solo que no da el número de serie. Y tengo todo correcto, tal y como me funciona en XP.

Gracias otra vez, un saludo…»maiquemasque»

Salvador
Salvador
13 years ago

Efectivamente todo funciona perfectamente en WIN 7 a ecepcion del número de serie, un saludo Neftali. :D

Jose
Jose
11 years ago

Buenas Neftali. Tengo un problemita. No se porqué, al componente en el diseño me funciona perfectamente pero si cambio la unidad en tiempo de ejecución me da un access violation.

Estoy usando Delphi 7 y windows 7, aunque este fallo me ha pasado alguna vez también con xp. Con ese mismo código en otras aplicaciones me ha funcionado.

Gracias por todo

Jose
Jose
11 years ago

He creado una aplicación nueva, en el form he añadido el componente. En el diseño como ya te he dicho antes me funciona perfectamente. He añadido un botón al form, y en el evento click he puesto:

diskinfo1.DriveLetter:=’c’;
ShowMessage(DiskInfo1.SerialNumber);

En el momento de asignar la letra de la unidad salta el access violation.
Esto me trae de cabeza no se por donde meterle mano.

Gracias.

Jose
Jose
11 years ago

Muchisimas gracias por contestar. La demo si que me funciona. En otra aplicación que hice también, pero no se porqué a en esta aplicación y en otras que he hecho me falla.

Como se haría lo de sharemem¿¿??

Miraré de todas formas la demo a ver si veo algo de sharemem.

Muchisimas gracias por las molestias, de verdad. Un saludo.

Jose
Jose
11 years ago

Ya está, he visto en la demo lo que es el sharemem.

Muchisimas gracias por todo, de veras. Aquí me tienes para lo que necesites.

Enhorabuena por todo lo que tienes desarrollado.

Un abrazo. Cuidate.

dvlt
dvlt
11 years ago

Hola Neftalí,
estoy intentando sacar la calidad de la señal wifi a través de WMI, mi problema es el siguiente, al ejecutar este código me salta una excepción ‘EOleException Incompatible 8004100C’ y no sé a que es debido. Me podrías echar un cable por favor?

Gracias!

procedure SignalStrengthValue;
var
Locator : ISWbemLocator;
Services : ISWbemServices;
ObjectSet : ISWbemObjectSet;
ObjRet : OleVariant;
Enum : IEnumvariant;
SObject: ISWbemObject;
value : Cardinal;
SProp: ISWbemProperty;
begin;
Locator := CoSWbemLocator.Create;
Services := Locator.ConnectServer(‘.’, ‘root\wmi’,», », »,», 0, Nil);

ObjectSet:= Services.ExecQuery(‘SELECT * FROM MSNdis_80211_ReceivedSignalStrength’,’WQL’, wbemFlagForwardOnly , nil);
Enum := ObjectSet._NewEnum As IEnumVariant;

while (Enum.Next(1, objRet, Value) = S_OK) do
begin
sObject := IUnknown(objRet) As ISWBemObject;
SProp := SObject.Properties_.Item(‘Ndis80211ReceivedSignalStrength’, 0);
end;

end;

26
0
Would love your thoughts, please comment.x
()
x