[b]Exemplo p/fazer Logoff Automatico[/b]

Delphi

12/05/2003

Tenho um aplicativo em IB6. Cadastro uma senha para cada usuário. Pretendo fazer com q ao passar um determinado tempo(ex. 5 a 10 minutos) se o usuario utilizar o sistema, o proprio fara logoff automatico e entrara na tela de logon.


Tem alguem q possa passar-me um exemplo deste.


DESDE JA AGRADEÇO A SUA ATENÇÃO.


sds
Anderson


Agaraujo

Agaraujo

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

12/05/2003

Experimente os exemplos abaixo:

function ExitWindowsEx(uFlags : integer; // shutdown operation

dwReserved : word) : boolean; // reserved

external ´user32.dll´ name ´ExitWindowsEx´;

procedure Tchau;

const

EWX_LOGOFF = 0; // Dá ´logoff´ no usuário atual

EWX_SHUTDOWN = 1; // ´Shutdown´ padrão do sistema

EWX_REBOOT = 2; // Dá ´reboot´ no equipamento

EWX_FORCE = 4; // Força o término dos processos

EWX_POWEROFF = 8; // Desliga o equipamento

begin

ExitWindowsEx(EWX_FORCE, 0);

end;


GOSTEI 0
Rafael Roni

Rafael Roni

12/05/2003

Se for logoff do windows o codigo acima funcina mas se vc quiser fazer um logoff do seu sistema coloque om Ttimer 600000 e no evento se nao me falha memoria chamado Ontimer a form de login


GOSTEI 0
POSTAR