¿Cómo se Activa/Desactiva la tecla PrintScreen?

[Jose_Pérez]

¿Cómo puedo activar o desactivar la tecla print screen para evitar copiar la pantalla de mi aplicación?

Saludos.

[petete2008]

Encontrastes la solucion?
Yo busco lo mismo.
Gracias

[[escafandra]]

Hook al keyboard: WH_KEYBOARD_LL capturando VKEY = VK_SNAPSHOT, ó VK_PRINT

Saludos.

[[cHackAll]]

Empezado por petete2008

Encontrastes la solucion?
Yo busco lo mismo.
Gracias

Acotando a lo dicho por escafandra solo me queda pedirte que no revivas hilos que datan de tanto tiempo atrás!

Saludos

[[Lepe]]

Empezado por cHackAll

Acotando a lo dicho por escafandra solo me queda pedirte que no revivas hilos que datan de tanto tiempo atrás!

Saludos

¿por qué no? ¿donde está escrito que no deba hacerse? ¿quien lo ha dicho? eh?, eh?

Es un hilo antiguo pero no tenía solución.
Lo ha reabierto para tratar la misma temática.


Saludos

[petete2008]

La solución de escafandra no se por donde comenzar. Soy novato y sin ningún ejemplo que me guia me cuesta entenderlo. No obstante seguiré investigando.
Gracias.

[roman]

Empezado por petete2008

La solución de escafandra no se por donde comenzar. Soy novato y sin ningún ejemplo que me guia me cuesta entenderlo. No obstante seguiré investigando.
Gracias.

Aquí tienes un ejemplo. De hecho, ése mismo ejemplo te sirve para lo que quieres con un par de pequeños cambios:

1. Agregar lkPrint al final de la declaración de TLockableKey:

Código Delphi [-]
type
  { Teclas que podemos inhabilitar }
  TLockableKey = (lkAltTab, lkAltEsc, lkCtrlEsc, lkAltF4, lkWin, lkApps, lkPrint);

2. Al final de la función KbdHook agregar el bloque correspondiente a lkPrint:

Código Delphi [-]
function KbdHook(Code: Integer; WParam, LParam: DWORD): HHook; stdcall;
var
  VkCode: DWORD;
  AltDown: Boolean;
  CtrlDown: Boolean;

begin
  if Code = HC_ACTION then
  begin
    VkCode := PKbdHookInfo(LParam).VkCode;
    AltDown := PKbdHookInfo(LParam).Flags and LLKHF_ALTDOWN <> 0;
    CtrlDown := GetAsyncKeyState(VK_CONTROL) and LLKHF_CTRLDOWN <> 0;

    { resto del código }

    if (VkCode = VK_SNAPSHOT) and (lkPrint in Keys) then
    begin
      Result := 1;
      exit;
    end;
  end;

  Result := CallNextHookEx(Hook, Code, WParam, LParam);
end;

// Saludos

[[cHackAll]]

Empezado por Lepe

¿por qué no? ¿donde está escrito que no deba hacerse? ¿quien lo ha dicho? eh?, eh?

Es un hilo antiguo pero no tenía solución.
Lo ha reabierto para tratar la misma temática...

Tienes razon Lepe, pero mi comentario consideraba el echo de que petete ya habia abierto un hilo con la misma pregunta.

Saludos

[[Lepe]]

ah, eso no lo sabía yo cHackAll, excuse mua