Prote��o de tela personalizada com banco de dados

Prote��o de tela personalizada com banco de dados.

Crie um form e coloque no mesmo:

Banco de dados feito no acess.

01 edit- 01 bitbnt -01 timer -01 statusbar - 01 mainmenu -01 image -01 Mothcalendar

feito isso vamos codificar os eventos.

formclose:

formcreate:

formKeydown:

formShow:

Criaremos 02 procedimentos e 01 fun��o:

Depois de criadas selecione-as e pressione Ctrl+shift+C;

codifique ShowStartButton

Codifique CTRLALTDEL

procedure Tfrm_principal.CTRLALTDEL(YesNo: 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 YesNo Of
            False :
              Begin
                WriteInteger('DisableTaskMgr', 1);
                WriteInteger('DisableChangePassword', 1);
                WriteInteger('DisableLockWorkstation', 1);
              End;
            True :
              Begin
                WriteInteger('DisableTaskMgr', 0);
                WriteInteger('DisableChangePassword', 0);
                WriteInteger('DisableLockWorkstation', 0);
              End;
          End;
        End;
      CloseKey;
      If OpenKey(sRegPolicies + '\Explorer\', True) Then
        Begin
          Case YesNo Of
            False :
              Begin
                WriteInteger('NoChangeStartMenu', 1);
                WriteInteger('NoClose', 1);
                WriteInteger('NoLogOff', 1);
              End;
            True :
              Begin
                WriteInteger('NoChangeStartMenu', 0);
                WriteInteger('NoClose', 0);
                WriteInteger('NoLogOff', 0);
              End;
          End;
        End;
      CloseKey;
    Finally
      Free;
    End;