Delphi - Bloquear el teclado

 
Vista:

Bloquear el teclado

Publicado por Maximiliano (3 intervenciones) el 17/05/2003 02:38:32
Para bloquear las combinacines de tecla ALT+CRLS+SUPR Y para tambien ALT+TABS ES PARA UN PROGRAMA DE UN cibercafe
asi que debe funcinar no importa el programa que este activo
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 el teclado

Publicado por Cristián (115 intervenciones) el 17/05/2003 21:32:26
Puedes usar este codigo sencillo.
Para Windows 95-Me:
var
i: integer;

{deshabilitar Ctrl-Alt-Del:}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @i, 0);

var
i: integer;

{habilitar:}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @i, 0);

Para WinXP y NT
Añade este procedimiento
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;

y en algun evento, como OnClick de un boton pon:
DisableTaskMgr (True); //los deshabilitar

DisableTaskMgr (false); //los habilita

Y no se te olvide poner en el "Uses" de tu form "Registry"

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