Bloquear mouse e tecla

Olá pessoal,

Segue um dica bem lega e simples para bloquear teclado e mouse. Nesta dica, o CTRL + ALT + DEL não fica travado.

function BlockInput(fbLookIt:Boolean):Integer; stdcall; external 'user32.dll';

Para bloquear, chame a função da seguinte forma:
BlockInput (true)

Para desbloquear, chame a função da seguinte forma:
BlockInput (false);

Grande abraço!

EXECUTAR APLICATIVOS COM PERMISSÃO DE ADMINISTRADOR

Nas propriedades do atalho do aplicativo antes do destino coloca isso:

runas /savecred /user:administrador “C:\Windows\System32\cmd.exe”

Posicionar o cursor no próximo campo

Boa Noite pessoal.

Para posicionar o cursor no próximo campo pode se usar o seguinte comando:

declare a unit Controls, se não estiver já declarada.

SelectNext(Self.ActiveControl, True, True);

Onde:

O primeiro parâmetro e controle ativo.

Segundo parâmetro (Com valor True) informa que a procura é pra frente. Se quiser fazer o contrário é so informar false que ele procura o campo anterior.

Terceiro é pra verificar se ele vai obedeçer o TabStop do campo.