Delphi - bloquear ctrl+alt+supr

 
Vista:

bloquear ctrl+alt+supr

Publicado por damian (1 intervención) el 16/12/2005 16:05:18
me gustaria saber como bloquear nada mas que las teclas ctrl+alt+sup
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:bloquear ctrl+alt+supr

Publicado por Gargol (21 intervenciones) el 16/12/2005 16:46:04
procedure TForm1.Button1Click(Sender: TObject);

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;

begin
//Desabilitamos el Ctrl-Alt-Del
DisableTaskMgr (True);
end;

esto a mi me funciona espero que a ti tambien

suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar