El Hook no funciona desde que actúo sobre otras aplicaciones

[dec]

Hola,

Espero que alguien pueda orientarme para saber qué clase de cosa es lo que estoy haciendo mal.

Eso va a resultar complicado, puesto que no sabemos cómo lo estás haciendo. El asunto es que si no recuerdo mal lo que quieres conseguir es posible (de ahí los famosos "Keyloggers"), pero, sin saber cómo tratas de hacerlo tú (sin conocer el código fuente que empleas) es complicado decirte qué estás haciendo mal, si es que estás haciendo algo mal, vaya.

[PedroElFlaky]

Tengo una aplicación y una dll.
Al crear la aplicación cargo la dll, le envío el handle de la aplicación con pasar_handle_a_dll () y llamo a HookOn() y al cerrarla, llamo a HookOff() y libero la dll. En la aplicación, recibo mensajes de la dll con las teclas pulsadas y las paso al memo. Puse una variable global en la dll en la que ponía la última tecla detectada, para así desde la aplicación acceder a esta variable y así pude comprobar, que cuando mi programa deja de detectar teclas, no es porque no reciba mensajes de la dll sino porque en la dll se dejan de detectar las teclas. Así que el problema debe de estar en la dll.

Lo que tengo en la dll es:

Código Delphi [-]
library ProjectDll;   uses Windows; uses Messages;  const  MSG_TECLA_DOWNUP = WM_USER + $1;  var  MiHook     : HHook;  ApliHandle     : THandle;  ApliHandle^     : THandle;   function CallBackDeMiHook ( Code    : Integer;                           wParam  : WPARAM;                           lParam  : LPARAM                           )       : LRESULT; stdcall; begin  {Si una tecla fue pulsada o liberada}    if code=HC_ACTION then     PostMessage(ApliHandle, MSG_TECLA_DOWNUP, wParam, lParam);      Result := CallNextHookEx(MiHook, Code, wParam, lParam) end;   procedure HookOn; stdcall; {Procedure que instala el hook}  begin   MiHook:=SetWindowsHookEx(WH_KEYBOARD, @ CallBackDeMiHook,         HInstance, 0); end;   procedure HookOff;  stdcall; begin {procedure para desinstalar el hook}    UnhookWindowsHookEx(MiHook); end; procedure pasar_handle_a_dll (phandle : THandle^);  stdcall; begin        pApliHandle = phandle;        ApliHandle = *pApliHandle;     end;  exports{Exportamos los procedures}  HookOn,  HookOff,  pasar_handle_a_dll;

Bueno, pues eso el lo tengo, Saludos

[PedroElFlaky]

Tengo una aplicación y una dll.
Al crear la aplicación cargo la dll, le envío el handle de la aplicación con pasar_handle_a_dll () y llamo a HookOn() y al cerrarla, llamo a HookOff() y libero la dll. En la aplicación, recibo mensajes de la dll con las teclas pulsadas y las paso al memo. Puse una variable global en la dll en la que ponía la última tecla detectada, para así desde la aplicación acceder a esta variable y así pude comprobar, que cuando mi programa deja de detectar teclas, no es porque no reciba mensajes de la dll sino porque en la dll se dejan de detectar las teclas. Así que el problema debe de estar en la dll.

Lo que tengo en la dll es:

Código Delphi [-]
library ProjectDll;
 
 
uses Windows;
uses Messages;
 
const
MSG_TECLA_DOWNUP = WM_USER + $1;
 
var
MiHook : HHook;
ApliHandle : THandle;
ApliHandle^ : THandle;
 
 
function CallBackDeMiHook ( Code : Integer;
wParam : WPARAM;
lParam : LPARAM
) : LRESULT; stdcall;
begin
{Si una tecla fue pulsada o liberada} 
if code=HC_ACTION then 
PostMessage(ApliHandle, MSG_TECLA_DOWNUP, wParam, lParam); 
 
Result := CallNextHookEx(MiHook, Code, wParam, lParam)
end;
 
 
procedure HookOn; stdcall;
{Procedure que instala el hook} 
begin
MiHook:=SetWindowsHookEx(WH_KEYBOARD, @ CallBackDeMiHook, HInstance, 0);
end;
 
 
procedure HookOff; stdcall;
begin
{procedure para desinstalar el hook} 
UnhookWindowsHookEx(MiHook);
end;
 
 
procedure pasar_handle_a_dll (phandle : THandle^); stdcall;
begin
pApliHandle = phandle;
ApliHandle = *pApliHandle; 
end;
 
 
exports
{Exportamos los procedures}
HookOn,
HookOff,
pasar_handle_a_dll;

Bueno, pues eso el lo tengo,

Saludos