Mensagens - desabilitar ctrl_alt_del e alt_tab

Top  Previous  Next

procedure SystemKeys(Disable: Boolean);

var

  OldVal : LongInt;

begin

  SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0);

end;

--------------------------------------------------------------------------

OUTRO JEITO

--------------------------------------------------------------------------

Como impedir o Ctrl+Alt+Del E o ALT+TAB?

 

{desabilita}

procedure TForm1.Button1Click(Sender: TObject);

Var

 numero: integer;

begin

 SystemParametersInfo(97,Word(true),@numero,0);

end;

 

{habilita}

procedure TForm1.Button2Click(Sender: TObject);

Var

 numero: integer;

begin

 SystemParametersInfo(97,Word(false),@numero,0);

end;

--------------------------------------------------------------------------

OUTRO JEITO AINDA

--------------------------------------------------------------------------

procedure RegisterServiceProcess(procId, ServType: Cardinal) stdcall; external 'kernel32';

 

procedure TForm1.Button1Click(Sender: TObject);

begin

    RegisterServiceProcess(GetCurrentProcessID,$00000001);

end;

--------------------------------------------------------------------------

CTRL+ESC, CTRL+ALT+DEL, ALT+TAB

--------------------------------------------------------------------------

   

     public

         Enabled1: Integer;

 

     procedure TForm1.Button1Click(Sender: TObject);

     var

       Dummy : integer;

     begin

      Dummy := 0;

      if Enabled1 = 1 then

         Enabled1 := 0 //0 means enable ctl-alt-delete

      else

         Enabled1 := 1//1 means disable controls

 

      {Disable ALT-TAB}

      SystemParametersInfo( SPI_SETFASTTASKSWITCH, Enabled1, @Dummy, 0);

      {Disable CTRL-ALT-DEL}

      SystemParametersInfo( SPI_SCREENSAVERRUNNING, Enabled1, @Dummy, 0);

     end