deixar sistema em primeiro plano. bloquear acesso

Question

Gostaria de controlar por hor�rio o acesso ao pc para o meu filho. Ele anda ficando muito no computador.Sei que existem alguns programas na internet, mas n�o encontrei nenhum simples. A maioria cria c...

Vitor Alcantara · Answer

Para colocar a sua aplica��o em primeiro plano voc� poderia deixar o seu form com as propriedades:

Align : AlCliente;
FormStyle : FsStayOnTop
WindowState : WsMaximized
BorderIcon : []

Para fazer com que ele n�o perca o focu e fique sempre sobreposto voc� pode fazer do seguinte modo com a utiliza��o de um Timer:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not focused then
  Application.BringToFront;
end;

Dessa forma o seu form ir� ficar sempre sobreposto aos outros, mesmo que ele utilize algum programa ele n�o poder� ver pois o form estara sobreposto.

Para evitar que o form se feche com ALT+F4 voc� pode criar uma v�riavel global do tipo Boolean e setar ela como false para n�o fechar e True para fechar.

Coloca no evento onCloseQuery

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CancClose := Fechar;
end;

Voc� s� seta a v�riavel Fechar para true caso seja digitada tal senha ou nos hor�rios que voc� permita.

Agora ele poderia muito bem fechar a aplica��o simplismente dando um CTRL+ALT+DEL, para evitar isso voc� tem que alterar o valor �DisableTaskMgr� para 1 da chave
�HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\SYSTEM� do registro.

Ex:

Procedure EnableCtrlAltDel(Travar:Boolean);
const
  sRegPolicies = �\Software\Microsoft\Windows\CurrentVersion\Policies�;
begin
  with TRegistry.Create do
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey(sRegPolicies+�\System\�,True) then
    begin
      case Travar of
        True:
        begin
          WriteInteger(�DisableTaskMgr�,1) ;
        end;
        False:
        begin
          WriteInteger(�DisableTaskMgr�,0) ;
        end;
      end;
    end;
    CloseKey;
end;

para desabilitar utiliza EnableCtrlAltDel(True) para habilitar utiliza EnableCtrlAltDel(false).

F�rum deixar sistema em primeiro plano. bloquear acesso #345388