/*Prog*/ Delphi-Neftalí /*finProg*/

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

GRACIAS POR SU GRAN APORTE, EN VERDAD QUE GRACIAS…

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

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

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

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

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

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

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

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.

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”

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

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

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.

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.

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.

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;