Fórum Travar teclado e mouse #286445

sobe

esse é um grande problema que os usaurios do xp e nt ou 2000 tem, pq a prioridade para esses sistemas sao a tecla CTRL+ALT+DEL, pq as vezes vc trava mas se vc teclar CTRL+ALT+DEL ele destrava,


uma solução que achei na net e mudar o registro do windows, so que isso so para xp, 2000 ou nt para os outros podera usar o comando abaixo

xp ou 2000 ou nt
COMO BLOQUEAR CTRL+ALT+DEL

#
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;

reg.OpenKey(´Software´, True);
reg.OpenKey(´Microsoft´, True);
reg.OpenKey(´Windows´, True);
reg.OpenKey(´CurrentVersion´, True);
reg.OpenKey(´Policies´, True);
reg.OpenKey(´System´, True);

if bTF = True then
begin
reg.WriteString(´DisableTaskMgr´, ´1´);
end
else if bTF = False then
begin
reg.DeleteValue(´DisableTaskMgr´);
end;
reg.CloseKey;
end;

$$$EXEMPLO P CHAMAR ROTINA$$$
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(True);
end;
$$$EXEMPLO P DESTRAVAR$$$
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(False);
end;
#



agora nos outros pode usar o seguinte

{Funcao de um dll do windows}
Function BlockInput (fbLookIt:Boolean):Integer; stdcall; external ´user32.dll´;

procedure TForm1.Button1Click(Sender: TObject);
begin
Blockinput(True); //Trava o teclado e mouse
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Blockinput(False); //Destrava o teclado e o mouse
end;

valeu

Se quiser travar teclado e mouse ao mesmo tempo, use a função BlockInput() da API do Windows.

[]s
Rubem Rocha
Manaus, AM