LogOff do Programa

Delphi

21/10/2004

Como poderia efetuar logoff do programa.
Pesquisei no fórum e encontrei muito logoff do windows.

Valeu a força!!

JR.


Jrjoliv2003

Jrjoliv2003

Curtidas 0

Melhor post

Reginaldo174

Reginaldo174

21/10/2004

se vc utiliza form normal (chamando com showmodal) basta chamar o form que solicita senha. Se não vc pode criar um executável para abrir o seu sistema ... assim quando o usuário clicar em logoff vc fecha o sistema com application.terminate e passa o comando winexec(´c:\abresistema.exe´,sw_shownormal);

onde abresistema é o executável que vai abrir o seu sistema e depois se fecha automacatimente.

Está é a minha sugestão.


GOSTEI 1

Mais Respostas

Paulo_amorim

Paulo_amorim

21/10/2004

Olá

O que exatamente você quer fazer? Desconectar com o Banco, desabilitar funções ou o quê?

Até+


GOSTEI 0
Jrjoliv2003

Jrjoliv2003

21/10/2004

Bem,
abro o sistema ele pede uma senha que é validada para entrar no sistema propriamente dito. Gostaria de colocar uma opçao no menu chamada LogOff. Quando clicasse nessa opção, fechasse o sistema e ativasse a tela de acesso novamente.


Valeu a força!!

JR.


GOSTEI 0
Paulo_amorim

Paulo_amorim

21/10/2004

Olá

Seu MainForm eh o Login ou o seu Form principal memso?

Se for o Login, eu imagino que ele esteja apenas escondido (visto que não se pode fechar o MainForm), então basta fechar teu Form principal e mostrar o Login

Se o Form principal eh o MainForm, vc pode fazer:

frmPrincipal.Hide;
frmLogin.ShowModal;


Pelo menos foi isso que entendi

Espero que ajude
Até+


GOSTEI 0
Jrjoliv2003

Jrjoliv2003

21/10/2004

Eu tenho dois forms: frmLogin e frmPrincipal.

Quando clico no botão entrar do frmLogin ele ativa o frmPrincipal e fecha o frmLogin.

O logof quero colocar no frmPrincipal em uma das opções de menu.

Valeu a força !!!

JR.


GOSTEI 0
Paulo_amorim

Paulo_amorim

21/10/2004

Olá

Então o que impede que se mostre a tela de login?

Até+


GOSTEI 0
Jrjoliv2003

Jrjoliv2003

21/10/2004

Resolvi dessa maneira:

Na opção logoff coloquei

Application.Terminate;
winexec(´C:\soft\ame.exe´,sw_shownormal);

Valeu a força!!

JR.


GOSTEI 0
POSTAR