Componente free...
 

Hola a todos quiesera saber si alguien sabe de alguna solucion gratuita para poder bloquear CTRL+ALT+SUPR, ALT+TAB, ALT+F4, TASK BAR, etc.,etc..
He probado dwinlock realmente es muy facil y rápido de utilizar, pero lamentablemente en Shaware y no puedo contenplar ese gasto en mi desarrollo.
Si alguien me pude aconsejar algo, desde muy agradecido.
Saludos a todos.

En mi web tienes la unit Hook, realizada por el amigo Román

Y como verás, la unidad que menciona el amigo cadetill la hice precisamente para no comprar dWinLock. Sin embargo, dWinLock tiene algo que mi unidad no hace que es bloquear también la combinación Ctrl-Alt-Supr. Esta combinación en particular, en Windows 2000 y Windows XP, es muy difícil de bloquear ya que Microsoft la protegió demasiado. Para hacerlo debes escribir una dll que reemplace a gina.dll que es la librería que se encarga de todo el proceso de autenticación del usuario de manera que no es tarea trivial.

// Saludos

Unidad
 

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.

Puedes explicar en qué consiste ese truco?

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

Saludos

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

Truco CTRL ALT SUPR
 

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

asias a ambos :)

saludos

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

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.

Aclaración
 

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

Saludos a todos