Teclas de sistema no windows XP

02/02/2003

2

ALguem sabe me dizer uma forma eficaz de impedir o funcionamento das teclas de sistema no windows XP?
Ja tentei varios metodos mas esta complicando para impedir teclas como ctrl+alt+del and alt+tab...

Ajuda eh muito bem vinda!

Obrigado


Responder

Posts

03/02/2003

Anonymous

Tenho 2 rotinas pra fazer isto... Teste ai e veja se vai funcionar ...

Um Abraco
Werlon Goulart

*****Ocultar aplicação da lista de tarefas - CTRL+ALT+DEL
- Declare a função abaixo antes da palavra implementation:

function RegisterServiceProcess(dwProcessID, dwType: Integer):
Integer; stdcall; external ´KERNEL32.DLL´;

- Coloque dois botões no Form;
- No evento OnClick do Button1 coloque:

RegisterServiceProcess(GetCurrentProcessID, 1);

- No evento OnClick do Button2 coloque:

RegisterServiceProcess(GetCurrentProcessID, 0);

=== Para testar ===

Clique no Button1 e pressione CTRL+ALT+DEL. O seu programa
não aparecerá na lista.

Clique no Button2 e pressione CTRL+ALT+DEL. Agora seu programa
aparecerá na lista.

******************************** Como habilitar e desabilitar as teclas ctrl+alt+del ?

// 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;


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar