Desactivar teclas de función en todo el sistema

[[fjcg02]]

No sé si lo que buscas lo cubre la firma digital del documento.

Siempre podrán como comentan hacerle una foto o echar una tarde y transcribir de pé a pá el documento completo.

Suerte, y nos comentas cómo lo has solucionado.

Saludos

[Neftali [Germán.Estévez]]

Empezado por fjcg02

Siempre podrán como comentan hacerle una foto o echar una tarde y transcribir de pé a pá el documento completo.

Es que no es necesario, yo uso un capturador "no estandard" con las siguientes teclas:



Pero es que se pueden personalizar o simplemente se puede lanzar la copia utilizando el menú contextual de la aplicación desde la barra de tareas.
Hay tantas alternativas, que por eso me parece un enfoque que no tiene buena salida.

[buenarquero]

De entrada os agradezco vuestro interés en mi tema, pero de momento no me está sirviendo para mucho. Os estáis centrando en el tema de la captura de pantalla y eso ya lo tengo resuelto puesto que la aplicación se ejecuta en un escritorio alternativo sin barra de tareas y que no guarda los datos del portapapeles, lo mismo que tampoco se puede iniciar ninguna aplicación, ya que sin barra de tareas y ocupando toda la pantalla, es imposible. Por otra parte, que se puedan hacer fotos es obvio, pero no es lo mismo que obtener la imagen de la pantalla directa. Solo se trata de dificultar lo más posible que se copie el contenido del PDF para distribuirlo, nada más. Si alguien me puede decir si hay algún error en el código que he usado para el hook de teclado o tiene otra forma de bloquear las teclas de función o incluso todo el teclado, que no es necesario para usar mi aplicación, lo agradecería.

[Casimiro Noteví]

Pregunto: Suponiendo que pongas tantos controles para que no puedan hacer nada con el pdf salvo leerlo, imagino que el usuario tendrá el pdf para poder leerlo.
Si tiene el pdf ¿qué le impide regalarlo?
Saludos.

[buenarquero]

Empezado por Casimiro Notevi

Pregunto: Suponiendo que pongas tantos controles para que no puedan hacer nada con el pdf salvo leerlo, imagino que el usuario tendrá el pdf para poder leerlo.
Si tiene el pdf ¿qué le impide regalarlo?
Saludos.

Como ya dije en otra contestación, el archivo no lo tiene el usuario, porque está incrustado en el ejecutable de la aplicación.

[Casimiro Noteví]

Empezado por buenarquero

Como ya dije en otra contestación, el archivo no lo tiene el usuario, porque está incrustado en el ejecutable de la aplicación.

Entonces sí que lo tiene, extraerlo del ejecutable es bastante simple, si tiene intención de hacerlo.
Por eso no vale la pena complicarse demasiado, porque todo dependerá de cuánto interés tenga en conseguirlo.

[buenarquero]

Empezado por Casimiro Notevi

Entonces sí que lo tiene, extraerlo del ejecutable es bastante simple, si tiene intención de hacerlo.
Por eso no vale la pena complicarse demasiado, porque todo dependerá de cuánto interés tenga en conseguirlo.

No solo depende del interés que tenga sino de los conocimientos de programación. Es obvio que si hay gente que es capaz de piratear un Adobe Premiere, un Windows o un Photoshop y colgarlo en internet, habrá quien pueda obtener mi pdf sin demasiado problema, pero esta aplicación no va dirigida a un gran público sino solo a algunos que comparten la afición artística de la que trata el pdf y, generalmente, no tienen ni idea de programación y, en muchos casos, ni siquiera de informática. Y quien piratea un Photoshop, no le interesa piratear un PDF que es solo para una afición muy concreta de una minoría. Ya dije que no soy un profesional y que esta aplicación no es para venderla en masa, por ello, solo se trata de protegerla lo más posible y nada más, que ya lleva otras protecciones, no solo esta del bloqueo de teclas, simplemente para que el usuario normal no pueda duplicar el pdf.
De todas formas ya he resulto el tema con el código que me paso Neftalí. Funciona perfectamente para lo que quiero solo con una ligera modificación.
¡Gracias de todas formas por tu interés y tu aportación!

[Neftali [Germán.Estévez]]

Empezado por buenarquero

Os estáis centrando en el tema de la captura de pantalla...

Saltanto lo que te hemos dicho y volviendo al tema de los hooks....

Empezado por buenarquero

En cuanto a los links que incluyes, el primero no tiene activo el enlace a la parte de hooks y el segundo, parece que solo ofrece solución para determinadas teclas o combinaciones, pero no para las teclas de función, al menos yo veo como se podría adaptar para que sirva para las teclas de función.

Empezado por buenarquero

...Por eso necesito bloquear algunas o todas las teclas de función (F1 a F12) y que su pulsación no llegue al programa lector de PDF, independientemente de que el foco esté en él o no.

En el segundo enlace:
https://web.archive.org/web/20050214...oman/hooks.php

Se hace referencia a teclas para inhabilitar. Entre las que aparecen SI aparece alguna tecla de función (F4), en este caso con ALT:

Código Delphi [-]
    
if (VkCode = VK_F4) and AltDown and (lkAltF4 in Keys)  then begin       
  Result := 1;       
  exit;     
end;

Si buscas esas constantes en Delphi (VK_F4) llegarás a la unit Winapi.Windows.pas, y ahí está definida esa constante y las de las demás teclas de función. VK_F1 hasta VK_F12.

[[escafandra]]

Pongo un ejemplo con un Hook a bajo nivel del teclado que bloquea F1 si se pulsa junto con ALT

Código Delphi [-]
...........
var
  WHookKeyboard: HHOOK = 0;

implementation

{$R *.dfm}


function KeyboardHook(Code, wParam, lParam: Integer): Integer; stdcall;
var
  vkCode:    DWORD;
  AltDown:   boolean;
  CtlDown:   boolean;
  ShiftDown: boolean;
begin
  vkCode:= PDWORD(lParam)^;
  AltDown   := (GetAsyncKeyState(VK_LMENU) and $8000 <> 0) or (GetAsyncKeyState(VK_RMENU) and $8000 <> 0);
  CtlDown   := GetAsyncKeyState(VK_CONTROL) and $8000 <> 0;
  ShiftDown := GetAsyncKeyState(VK_SHIFT) and $8000 <> 0;
  if (Code = HC_ACTION and (wParam = WM_KEYDOWN) then
  begin
    if vkCode = VK_F1 then
    begin
      if AltDown then Windows.Beep(1000, 100);
      Result:= 1;
      exit;
    end;
  end;
  Result:= CallNextHookEx(WHookKeyboard, Code, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WHookKeyboard:= SetWindowsHookEx(13{WH_KEYBOARD_LL}, @KeyboardHook, GetModuleHandle(nil), 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnhookWindowsHookEx(WHookKeyboard);
end;

El hook tipo WH_KEYBOARD_LL es necesario para que actúe en todo el sistema y la puesta en marcha del hook debe hacerse global para que no falle:
SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHook, GetModuleHandle(nil), 0);




Saludos.

[buenarquero]

Empezado por escafandra

Pongo un ejemplo con un Hook a bajo nivel del teclado que bloquea F1 si se pulsa junto con ALT

Código Delphi [-]
...........
var
  WHookKeyboard: HHOOK = 0;

implementation

{$R *.dfm}


function KeyboardHook(Code, wParam, lParam: Integer): Integer; stdcall;
var
  vkCode:    DWORD;
  AltDown:   boolean;
  CtlDown:   boolean;
  ShiftDown: boolean;
begin
  vkCode:= PDWORD(lParam)^;
  AltDown   := (GetAsyncKeyState(VK_LMENU) and $8000 <> 0) or (GetAsyncKeyState(VK_RMENU) and $8000 <> 0);
  CtlDown   := GetAsyncKeyState(VK_CONTROL) and $8000 <> 0;
  ShiftDown := GetAsyncKeyState(VK_SHIFT) and $8000 <> 0;
  if (Code = HC_ACTION and (wParam = WM_KEYDOWN) then
  begin
    if vkCode = VK_F1 then
    begin
      if AltDown then Windows.Beep(1000, 100);
      Result:= 1;
      exit;
    end;
  end;
  Result:= CallNextHookEx(WHookKeyboard, Code, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WHookKeyboard:= SetWindowsHookEx(13{WH_KEYBOARD_LL}, @KeyboardHook, GetModuleHandle(nil), 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnhookWindowsHookEx(WHookKeyboard);
end;

El hook tipo WH_KEYBOARD_LL es necesario para que actúe en todo el sistema y la puesta en marcha del hook debe hacerse global para que no falle:
SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHook, GetModuleHandle(nil), 0);




Saludos.

¡Gracias por tu aportación! No tengo ni idea de como adaptar el código para capturar solo las teclas de función sin Alt o si funcionará tal cual solo con la tecla de función, pero lo probaré. Lo que me gustaría que me explicaras es lo de que el hook hay que hacerlo a nivel global. ¿Que hay que hacer para que sea a nivel global? ¿no está implícito en el código? ¿Hay que declarar la función en una parte determinada del .Pas?

[[escafandra]]

Empezado por buenarquero

No tengo ni idea de como adaptar el código para capturar solo las teclas de función sin Alt o si funcionará tal cual solo con la tecla de función, pero lo probaré.

Código Delphi [-]
  if (Code = HC_ACTION and (wParam = WM_KEYDOWN) then
  begin
    if vkCode = VK_F1 then
    begin       // Algo que además quieras hacer al bloquear la tecla F1
      Result:= -1;
      exit;
    end
    else if vkCode = VK_F2 then
    begin      // Algo que además quieras hacer al bloquear la tecla F2
      Result:= -1;
      exit;
    end;
  end;

Empezado por buenarquero

Lo que me gustaría que me explicaras es lo de que el hook hay que hacerlo a nivel global. ¿Que hay que hacer para que sea a nivel global? ¿no está implícito en el código?

El Hook a bajo nivel se consigue con la constante WH_KEYBOARD_LL. Para que sea global, en la API SetWindowsHookEx (mira el enlace) hay que especificar el parámetro dwThreadId (El identificador del hilo actual) nulo y el parámetro hmod debe ser la instancia de la aplicación. GetModuleHandle(nil) devuelve ese valor desde la API, prefiero esta técnica a usar Histance porque a veces el segundo devuelve 0, especialmente en C++Builder.

Empezado por buenarquero

¿Hay que declarar la función en una parte determinada del .Pas?

La functión KeyboardHook(Code, wParam, lParam: Integer): Integer; stdcall; la colocas delante del código del formulario y no debe ser un miembro de él, o ser estática.
API SetWindowsHookEx puede ir en un punto donde quieras activar el Hook. No te olvides de usar UnhookWindowsHookEx antes de terminar tu aplicación.


Como veo que ya conseguiste tu objetivo no insisto más en el tema salvo tratar de aclarar las dudas que planteaste.




Saludos.

[buenarquero]

Empezado por Neftali [Germán.Estévez]

Saltanto lo que te hemos dicho y volviendo al tema de los hooks....





En el segundo enlace:
https://web.archive.org/web/20050214...oman/hooks.php

Se hace referencia a teclas para inhabilitar. Entre las que aparecen SI aparece alguna tecla de función (F4), en este caso con ALT:

Código Delphi [-]
    
if (VkCode = VK_F4) and AltDown and (lkAltF4 in Keys)  then begin       
  Result := 1;       
  exit;     
end;

Si buscas esas constantes en Delphi (VK_F4) llegarás a la unit Winapi.Windows.pas, y ahí está definida esa constante y las de las demás teclas de función. VK_F1 hasta VK_F12.

OK, ¡Gracias! Las constantes ya las conocía pero no entendí en el momento el código. Intentaré adaptar ese código a ver si funciona al nivel que necesito.
De todas formas, probando he conseguido sortear las teclas de función con un truco un poco chapucero pero que lo explico por si a alguien le puede resultar eficaz en casos similares o para otras cosas. Lo que hago es, mediante el timer que cierra la ventana del administrador de tareas cuando aparece, detecto si la zona donde aparece el menú que no quiero que usen, toma el color de la pantalla en tres puntos diferentes, y si es el color del menú, que es siempre el mismo, independientemente de la configuración de colores de Windows, se cierra el menú simulando una pulsación de teclado.

[buenarquero]

Empezado por Neftali [Germán.Estévez]

Saltanto lo que te hemos dicho y volviendo al tema de los hooks....





En el segundo enlace:
https://web.archive.org/web/20050214...oman/hooks.php

Se hace referencia a teclas para inhabilitar. Entre las que aparecen SI aparece alguna tecla de función (F4), en este caso con ALT:

Código Delphi [-]
    
if (VkCode = VK_F4) and AltDown and (lkAltF4 in Keys)  then begin       
  Result := 1;       
  exit;     
end;

Si buscas esas constantes en Delphi (VK_F4) llegarás a la unit Winapi.Windows.pas, y ahí está definida esa constante y las de las demás teclas de función. VK_F1 hasta VK_F12.

¡Gracias por tu aportación! El código funciona perfectamente con solo añadirle las teclas que necesito. Cuando lo vi en tu primera respuesta, la verdad es que no veía como usarlo (ya explique que soy aficionado). Una vez revisado y con tu explicación, lo he modificado añadiendo las teclas de función que necesitaba bloquear y lo he implementado en mi aplicación con resultado positivo.
¡Gracias de nuevo! , es un placer que todavía haya gente que ayude a otra.
Ah, y aunque sea aficionado, he ido recopilando muchos trucos, además de otros que me he inventado yo, así que si alguna vez tienes que consultar algo que no encuentres como hacerlo, puedes preguntarme. Si yo lo he hecho en mis aplicaciones no tendré ningún inconveniente en pasarte el truco.

[Neftali [Germán.Estévez]]

Empezado por buenarquero

¡Gracias por tu aportación!
El código funciona perfectamente con solo añadirle las teclas que necesito. Cuando lo vi en tu primera respuesta, la verdad es que no veía como usarlo (ya explique que soy aficionado). Una vez revisado y con tu explicación, lo he modificado añadiendo las teclas de función que necesitaba bloquear y lo he implementado en mi aplicación con resultado positivo.
¡Gracias de nuevo! , es un placer que todavía haya gente que ayude a otra.

Espero que no te haya molestado que te hayamos dado nuestras opiniones sobre la forma de hacerlo y enfocarlo.
A veces usuarios preguntan por "cómo hacer algo" y no sólo se trata de darles la solución ya ya está.

A veces ves que un usuario lleva un camino equivocado (o eso pensamos nosotros) y aunque puedes darle una solución a su problema, como has visto, también opinamos sobre la forma de afrontarlo.

En este caso, varios usuarios te hemos dado nuestra opinión sobre la forma en que afrontabas el problema (y que en nuestra opinión no era la forma correcta). Muchas veces ese conocimiento llega de la experiencia, del conocimiento y de los años de programación. Creo que es algo grande e importante de los foros, no sólo es obtener una solución, sino poder hacerlo de la mejor y más eficiente manera posible.

Me alegro de que hayas resuelto el problema.

Un saludo.