Componente free...

[Mauro®]

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.

[__cadetill]

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

[roman]

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

[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