Como travar teclas (alt tab, ctrl esc, ctrl alt del) (XP)...

Delphi

23/03/2003

BOA NOITE PESSOAL,

Como travar teclas (alt+tab, ctrl+esc, ctrl+alt+del) no delphi com SO XP?

estou tentando:


var
oldvalue:longbool;

begin
systemParametersInfo(97, Word(true),@oldvalue,0);
end;

mas acho que trava somente em Win95,98.

por favor me ajudem...preciso fazer isso pq minha aplicação inicia quando o micro liga e pede user e senha. Se possível como tirar o programa do ctrl alt del. OBRIGADO PESSOAL!


Chacal81

Chacal81

Curtidas 0

Respostas

Carnette

Carnette

23/03/2003

BOA NOITE PESSOAL, Como travar teclas (alt+tab, ctrl+esc, ctrl+alt+del) no delphi com SO XP? estou tentando: var oldvalue:longbool; begin systemParametersInfo(97, Word(true),@oldvalue,0); end; mas acho que trava somente em Win95,98. por favor me ajudem...preciso fazer isso pq minha aplicação inicia quando o micro liga e pede user e senha. Se possível como tirar o programa do ctrl alt del. OBRIGADO PESSOAL!


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;


GOSTEI 0
Anonymous

Anonymous

23/03/2003

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???


GOSTEI 0
Anonymous

Anonymous

23/03/2003

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


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???



GOSTEI 0
Otto

Otto

23/03/2003

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


GOSTEI 0
POSTAR