como buscar un archivo txt?

[negrokau]

Hola amigos, tengo una idea de como proteger mi sistema para que no puedan ingresar desde otra PC si lo copian y pegan... pero no se como hacerlo jaja y para necesito la ayuda de ustedes...

Al ingresar usuario y contraseña, que tambien busque un archivo txt que voy a crear con el nombre 'FILTRO', sino lo encuentra sencillamente no acceso al sistema... lo que no se es como hacer que busque ese archivo, me pase toda la mañana buscando la forma pero o no entendi o no encontre la forma en el foro...

Les agradeceria su ayuda... desde ya muchas gracias...

[ecfisa]

Empezado por negrokau

lo que no se es como hacer que busque ese archivo, me pase toda la mañana buscando la forma pero o no entendi o no encontre la forma en el foro...

Hola negrokau.

Sin entrar a polemizar sobre la eficacia de ese método de seguridad , para verificar la existencia de un archivo podes usar la función FileExists.

Por ejemplo:

Código Delphi [-]
...
  if FileExists('C:\Carpeta\Filtro.txt') then
    ShowMessage('Existe')
  else
    ShowMessage('No existe');

Saludos

[negrokau]

jaja y la verdad no es muyyyy eficaz ese metodo, pero mi sistema tampoco es 'EL SISTEMA' como para que esten hackeando jaja
es mas, capaz que ni siquiera lo copien como para usar en otro negocio, pero si llega a pasar eso, por lo menos que no puedan acceder...
gracias por todo, un abrazo....

[ecfisa]

Hola negrokau.

En estos enlaces tenes funciones que obtienen el serial físico del disco rígido, que es una protección más efectiva que la del archivo de texto.

• Evitar la copia de nuestra aplicacion hecha en delphi
• Hard Disk Physical Serial Number (delphi)

Si haces una búsqueda por los foros seguro encontras mas al respecto.

Saludos

[Casimiro Notevi]

Empezado por ecfisa

Sin entrar a polemizar sobre la eficacia de ese método de seguridad ,

'Error: File 'C:\FILTRO.TXT' not found'

[cloayza]

'Error: File 'C:\FILTRO.TXT' not found'

Aún me estoy riendo....