Teclas de sistema no windows XP

Delphi

02/02/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

02/02/2003

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;


GOSTEI 0
POSTAR