Fórum Como travar teclas (alt tab, ctrl esc, ctrl alt del) (XP)... #148937

Achei algo parecido com algums variantes...experimenta e veja se funciona..

Boa programação

const
SPI_SCREENSAVERRUNNING = 97;
var
OldValue: Longbool;

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

SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(False), @OldValue, 0);
{
Note: Runs only on Windows 95/98
Bemerkung: Läuft nur unter Windows 95/98
}


{********************************************************}


{ Disable the TaskManager on Win NT systems (2000/XP) : }
{ (C) by Delphi.About }

uses
Registry;

procedure EnableCTRLALTDEL(YesNo : boolean);
const
sRegPolicies = ´\Software\Microsoft\Windows\CurrentVersion\Policies´;
begin
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
if OpenKey(sRegPolicies+´\System\´,True) then
begin
case YesNo of
False:
begin
WriteInteger(´DisableTaskMgr´,1);
end;
True:
begin
WriteInteger(´DisableTaskMgr´,0);
end;
end;
end;
CloseKey;
if OpenKey(sRegPolicies+´\Explorer\´,True) then
begin
case YesNo of
False:
begin
WriteInteger(´NoChangeStartMenu´,1);
WriteInteger(´NoClose´,1);
WriteInteger(´NoLogOff´,1);
end;
True:
begin
WriteInteger(´NoChangeStartMenu´,0);
WriteInteger(´NoClose´,0);
WriteInteger(´NoLogOff´,0);
end;
end;
end;
CloseKey;
finally
Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnableCTRLALTDEL(true);
end;

Deu certo desabilitei o taskmanager, agora se não fosse pedir demais como faço para desabilitar no XP o ctrl alt del, ctrl esc, ou seja impedir q o usuário não consiga sair da tela antes de digitar o user e a senha corretos???

Olá

o componente dWinlock (procure no google) faz isso tudo e mais, porem é shareware, mas se vc encontrar uma versao completa passe para mim tb :P

alex@ecosfera.com.br

Ai pessoal, se alguem souber como desativa a tecla do Windows(WinKey[Fica entre Ctrl & Alt]), por favor.... se nao quiser posta aqui, pode ser por email

otto3d@bol.com.br
otto3d@hotmail.com
web@seek.srv.br