Form (janela) Fixo

[Américo Xavier]

boa noite comunidade,

nem precisa falar estou voltando a programar e quando programava era o delphi 3, imagine o que perdi xD. o que estou precisando...

1º como manter um form de Login fixo e apos a autenticação a janela some e libera o desktop, igual esses programas de lan house, a parte de autenticação não precisa, só mesmo como travar o bendito Form.

2º apos o 1º item, vou precisar que form que fique ativo, mas não em foco, de preferência no canto superior esquerdo ou direito contando em decrescente partindo de 45:00 (quarenta e cinco minutos), mas esse form não pode ter o botões de _- X para que não seja possível fechar esse relógio.

3º Hibernação e Desligamento, Após os itens 1º e 2º preciso de uma janela que pergunte, Deseja Desligar ou Hibernar o computador, no Delphi tem alguma função que permite disparar a hibernação e o Desligamento ou temos que usar alguma DDL externa ?

Galera obrigado por qualquer ajudar

Saúde Paz e muito Sucesso

Américo

[Micheus]

1º como manter um form de Login fixo e apos a autenticação a janela some e libera o desktop, igual esses programas de lan house, a parte de autenticação não precisa, só mesmo como travar o bendito Form.

Esta parte eu não tenho nada implementado, então, espero que outro colega possa lhe ajudar.

Mas, apenas para melhorar a informação... O que você quer é que sua aplicação entre no ar logo que o Windows inicia e bloqueie o acesso do usuário a qualquer coisa nele até que seja feito o login válido. É isto mesmo?

2º apos o 1º item, vou precisar que form que fique ativo, mas não em foco, de preferência no canto superior esquerdo ou direito contando em decrescente partindo de 45:00 (quarenta e cinco minutos), mas esse form não pode ter o botões de _- X para que não seja possível fechar esse relógio.

Quanto a não fechar. Mesmo sem o "X", pode ser utilizado o ALT+F4. Então, o negócio é você interceptar o evento CloseQuery e setar a variável CanClose apenas quando o tempo se esgotar. Algo tipo:

procedure TForm1.Form1Close(Sender :TObject; CanClose :Boolean);
begin
  CanClose := <timer zerado>;  // já que é contagem regressiva
end;

3º Hibernação e Desligamento, Após os itens 1º e 2º preciso de uma janela que pergunte, Deseja Desligar ou Hibernar o computador, no Delphi tem alguma função que permite disparar a hibernação e o Desligamento ou temos que usar alguma DDL externa ?

Para esta parte leia deste post em diante;

Abraços

[Américo Xavier]

Micheus, grato pela ajuda...

Perfeita sua colocação, com relação a tela de login entrar junto com o start do windows e não permitir acesso a nenhum programa é isso mesmo, inclusive já estou pesquisando uma rotina que monitore a execução deste programa e evite que alguém o pare com o gerenciador de tarefas, já que mesmo desabilitando essas tecla há formas de parar de outras formas

Grato

Americo

[Jhonas]

Micheus, grato pela ajuda...

Perfeita sua colocação, com relação a tela de login entrar junto com o start do windows e não permitir acesso a nenhum programa é isso mesmo

complementando o que o Micheus já expôs....

No WinXP, você precisa alterar o Registro do Windows.

* Para o usuário atual, use a chave

HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon

* Para todos os usuários, use a chave

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon

Nos dois casos, no valor "Shell" informe o nome do seu executável, incluindo o caminho completo para ele.

exemplo:

Shell=C:\Teste\Meuprog.exe

como dar exclusividade para o programa, olhe neste post

http://scriptbrasil.com.br/forum/index.php...st&p=110923

abraço