[Ajuda delphi]como desabilitar alt+tab e ctrl+alt+del

[leo_cj 0]

Ola pessoal, gostaria de saber se é possivel e como fazer pra o usuário não conseguir usar o alt+tab e nem o ctrl+alt+del enquanto o programa estiver rodando

 

obrigado!

[RickKM 2]

Para Desabitar e Habitar o CTRL+ALT+DEL é:

 

Antes do END. coloque:

 

procedure TravaGT(SimNao: boolean);

var

reg: TRegistry;

begin

 

try

reg := TRegistry.Create;

with reg do begin

RootKey := HKEY_CURRENT_USER;

OpenKey('SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem',true); //se não existir, é criada

case SimNao of

true: WriteInteger('DisableTaskMgr',1);

false: WriteInteger('DisableTaskMgr',0) ;

end;

closeKey;

end;

finally

reg.free;

end;

 

end;

 

Nos buttons você coloca:

procedure TForm1.Button1Click(Sender: TObject);

begin

TravaGT(true); //bloqueia Gerenciador de Tarefas

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

TravaGT(false); //desbloqueia Gerenciador de Tarefas

end;

 

Para Desablilitar e Habilitar o ALT+TAB é, na verdade ele trava:

 

Na seção PRIVATE coloque:

private

Id1:Integer;

{ Private declarations }

public

{ Public declarations }

end;

 

Antes END. coloque:

Procedure TravaAltTab(WND:THandle;Id1:integer;Travar:Boolean);

Begin

if Travar then

Begin

id1 := GlobalAddAtom('Hotkey1');

RegisterHotKey(WND, id1, MOD_ALT, VK_TAB);

id1 := GlobalAddAtom('Hotkey1');

RegisterHotKey(WND, id1, MOD_ALT, VK_TAB);

end

else

Begin

UnRegisterHotKey(WND, id1);

end;

end;

Nos evento onClick dos buttons você coloca:

// Para Travar o ALT+TAB

TravaAltTab(Handle,id1,True);

// Para Destravar o ALT+TAB

TravaAltTab(Handle,id1,False);

 

 

Você pode trocar ao inves de colocar no button você coloca no timer:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

TravaGT(true);

TravaAltTab(Handle,id1,True);

Timer1.enabled:= false;

end;

 

E no onCreate do form você coloca:

procedure TForm1.FormCreate(Sender: TObject);

begin

application.ShowMainForm:= false;

end;

 

Ai quando a pessoa abrir o programa ele não vai ver pq ele ta escondido, e o CTRL+ALT+DEL e o ALT+TAB vai estar desativado. So vai dar para habilitar o CTRL+ALT+DEL se mexer no REGEDIT e o ALT+TAB desligando o pc.

 

OBS: Na hora que você terminar o programa salva e só copila ( CTRL+F9 ) não da RUN ( F9 ) se não você que vai ser a vitima.

 

CODIGOS EM ROXO E VERDE COPIADOS DE OUTRO SITE

[leo_cj 0]

ta dando erro no TRegistry

erro: undeclared identifier: 'TRegistry'

 

espero que você consiga resolver, mas qualquer coisa obrigado por ajudar xD

 

cya

[DragonBoss 9]

declare Registry nas uses, acho que resolve x.x'

[leo_cj 0]

agora não da mais erros, mas eu continuo conseguindo dar alt+tab e abrir o gerenciador de tarefas

[Surfistinha£ 25]

Inicie o Delphi, crie uma nova aplicação. Coloque dois botões no seu form, sete a propriedade caption do button1 para Desabilitar e o button2 para Habilitar (apenas para diferênciar).

No evento OnClick do botão Desabilitar, insira o código abaixo:

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

 

const

 

SPI_SCREENSAVERRUNNING = 97;

 

var

 

OldValue : Longbool;

 

begin

 

SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(True), @OldValue,0);

 

end;

 

 

 

Agora, no evento OnClick do botão Habilitar insira o códigó abaixo:

 

 

 

procedure TForm1.Button2Click(Sender: TObject);

 

const

 

SPI_SCREENSAVERRUNNING = 97;

 

var

 

OldValue : Longbool;

 

begin

 

SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(False), @OldValue,0);

 

end;

[Lukasmart7 1]

Me Manda Uma Pm Que Te Mando Um Site Bom Com Uma Dll Excelente Para o Seu Caso.

 

Essa DLL Pode Travar Também a Tecla Win.

 

Obs:Não Posso posta Pois Estaria Desrespeitando as regras