Componente free...

[Mauro®]

La verdad que me ha sido de mucha ayuda tu Unit, para el CTRL ALT SUPR
he utilizado un truco que deshabilita el Task Manager desde el registro, el único inconveniente es que cuando se presionan las teclas sitadas anteriormente se muestra un mensaje que dice "El Administrador de Tareas ha sido bloqueado por el Administrador".
Igualmente ya me han sido de gran ayuda.
Un gran saludo para Uds. y para todos lo que hacen este gran foro.

[[Lepe]]

Puedes explicar en qué consiste ese truco?

Creo que a más de uno nos gustaría conocerlo

Saludos

[roman]

Empezado por Lepe

Puedes explicar en qué consiste ese truco?

Es una política de grupo y aunque no captura propiamente la combinación de teclas sí evita el uso del administrador de tareas. Lee este mensaje

http://www.clubdelphi.com/foros/show...87&postcount=4

// Saludos

[Mauro®]

Hay que tener en cuenta que este truco solo es para Win2000/XP (no lo he probado en NT)

Aquí va el codigo

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr (True);
end;

Para Win9X debería ser

Desconectar:

var
dummy : integer;
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @dummy, 0);

Conectar:

var
dummy : integer;
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @dummy, 0);

Aclaro que esta ultima opción no la he probado.

Saludos a todos y espero que les sea útil.
Mauro

[[Lepe]]

asias a ambos

saludos

[condor]

Buenas.


He provado el codigo fuente y me da errores al compilar...

Otra cosa, en que sitio de la web se dexcarga la utilidad de Cadetil?


Salu2

[DarkByte]

Condor, recuerda usar las etiquetas [ Delphi ] y [/ Delphi] (sin espacios), así conseguirás una mayor presentación en tu código y a los demás les será más fácil ayudarte.

[Mauro®]

Empezado por condor

Buenas.


He provado el codigo fuente y me da errores al compilar...

Otra cosa, en que sitio de la web se dexcarga la utilidad de Cadetil?


Salu2

Perdón me faltó agregar en el código anterior, que añadan en el Uses Registry

Saludos a todos