Login para aplicación.

[[Delphius]]

Hola, a mi lo que me sigue intrigado es el porque ese motivo de lanzar un exe.

Si se trata de mostrar una form... ¿para que ese Shellexecute?
Me parece que te estas mareando en un vaso de agua. Hay cosas que no me termino de explicar ese comportamiento.

Por favor muestranos el código como lo tienes.

He armado un ejemplo ultra simple de un login. El usuario es "usuario", y la clave es "clave". Si te fijas, una vez que se ingresa, guardo en una variable bandera de que el usuario ha sido validado. Dependiendo de este valor se muestra el form de logueo o no.

En la sección FTP del club hay un ejemplo un tanto más complicado.

Me gustaria que nos detalles explícitamente como estas mostrando tus forms. ¿Usas Show? ¿liberas la memoria una vez que las creas?

Saludos,

[Black_Ocean]

Hola [Delphius], sólo le quería avisar de que al parecer olvidó incluir el archivo Unit1.dfm en el zip, que corresponde al formulario de la Unit1.pas, por lo que, el usuario que preguntó no podrá compilar ni tampoco testear el ejemplo que usted ha puesto aquí.

Saludos.

[[Delphius]]

Empezado por Black_Ocean

Hola [Delphius], sólo le quería avisar de que al parecer olvidó incluir el archivo Unit1.dfm en el zip, que corresponde al formulario de la Unit1.pas, por lo que, el usuario que preguntó no podrá compilar ni tampoco testear el ejemplo que usted ha puesto aquí.

Saludos.

Muchas gracias por avisar.
Aqui adjunto el archivo que falta. Disculpen.

Saludos,

[[Lepe]]

¿No tendrás la ventana de login en autocreate Forms? (en delphi, Project -> Options, debes quitarlo de la lista de autocreate y pasarlo a "available forms'.

Apunto este detalle porque dices que se muestra 2 veces (una la creas tú con Login := TLogin.Create(Self) y la otra la crea delphi porque está en formularios autocreados).

Yo el login lo haría así:

Código Delphi [-]
var salir:boolean;
begin

Login := TLogin.Create(Self);
Try
 if Login.ShowModal = mrcancel then
   salir := true;
Finally
Login.Free;
if salir then 
  Application.Terminate
else
  ShellExecute('administracion.exe'.....)

Como se suele decir: "cada cosa para su cosa".

La ventana de login: Cuando el usuario pulsa aceptar y validas la contraseña, deberías asignar la propiedad ModalResult de dicha ventana:

Código Delphi [-]
procedure Tlogin.BotonOkClick(...);
begin
 if  constasena = 'noteenojes' then
   ModalResult := mrOk
 else
  ModalResult := mrcancel
end;

La aplicación principal: muestra la ventana de login y según el resultado termina la aplicación o bien ejecuta la administracion.

Saludos