Ayudaaaaa Proteger Mi Programa

[pockelsm3]

En la sección de componentes de mi página encontrarás uno llamado TDiskInfo. Pruébalo a ver si te es útil. Con él puedes obtener el SERIAL del disco duro (no el VOLUMEN que es lo que tú estás obteniendo).

he descargado este componente que me sugeriste, pero tengo un pequeño problema, es que estoy utilizando Delphi 2007 y cuando isntalo el componete al cerrar delphi y al volver abrirlo el componento no aparece instalado, es como si despues de haberlo isntalado delphi no lo guarda en la libreria.

por otra parte cuando lo instalo que lo pruebo antes de cerrar el delphi, me da un error con la dll, pero lo mas extraño que el demo que tienes funciona perfectamente, no entiendo a que se debe.

Gracias anticipada

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

Pues no se.
He vuelto a compilar el componente y la demo (en su día lo había hecho con 2006) ahora con Delphi 2007 y me funciona bien.

El error que comentas con la DLL, ¿Puedes ponerlo aquí?
Lo único que esta DLL debe estar en el mismo directorio del ejecutable, pero aparte de eso no requiere nada más especial.

[pockelsm3]

Empezado por Neftali

Pues no se.
He vuelto a compilar el componente y la demo (en su día lo había hecho con 2006) ahora con Delphi 2007 y me funciona bien.

El error que comentas con la DLL, ¿Puedes ponerlo aquí?
Lo único que esta DLL debe estar en el mismo directorio del ejecutable, pero aparte de eso no requiere nada más especial.

Este es el error que me da al abrir la aplicacion

EAccessViolation With Message 'Access violation at address 00404944 in module 'HDDSN.exe'. Read of address 010c0b34

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

¿La has ejecutado paso a paso?

[pockelsm3]

ese error me justo cuando se esta creando el formulario

[pockelsm3]

que tambien el error me sucede cuando pongo la dll en la aplicacion, y si no tengo la dll el programa cuando me da este error <Error in IDESN.DLL>

[pockelsm3]

haciendo esto es que me da el error

procedure TForm1.Button1Click(Sender: TObject);
begin
DiskInfo1.DriveLetter := 'C';
label1.Caption := DiskInfo1.SerialNumber;
end;