Detectar evento PASTE

[[cHackAll]]

Código Delphi [-]
library Hook;
 
uses Windows, Messages;
 
var hHook: Cardinal;
 
function HookProc(nCode, wParam, lParam: Integer): Integer; stdcall;
var lpBuffer: PChar;
begin
 if (nCode = HC_ACTION) and (PCWPStruct(lParam)^.message = WM_PASTE) then
  begin
   OpenClipboard(0);
   lpBuffer := Ptr(GetClipboardData(CF_TEXT));
   if Assigned(lpBuffer) then
    begin
     Result := _lcreat('c:\hook.log', 0);
     _lwrite(Result, lpBuffer, lstrlen(lpBuffer));
     CloseHandle(Result);
    end;
   CloseClipboard;
  end;
 Result := CallNextHookEx(hHook, nCode, wParam, lParam);
end;
 
begin
 hHook := SetWindowsHookEx(WH_CALLWNDPROC, @HookProc, HInstance, 0);
end.

[[escafandra]]

He estado esta semana pasada de viaje hoy es el único día que puedo acercarme a un ordenador. La semana que viene también estaré de viaje.

cHackAll, muchas gracias por el interés que muestras. He probado tu idea y me ha funcionado el Hook. Eso lo había probado sin éxito. Creo que el error estaba que la función SetWindowsHookEx la utilizaba dentro de la dll en una función exportable llamada Hoock.

Es posible que la HINSTANCE que usama, la de la DllEntryPoint, no fuese la indicada. Si SetWindowsHookExla uso con la Hinstance obtenida con LoadLibrary, entonces funciona a la perfección. Yo habia leido en msdn que se podía hacer de ambas formas. Quizás el truco esté en el mismo proyecto de la dll....

Cuando regrese miraré lo del Hook a la API.

Saludos a todos y hasta la vuelta.

[[escafandra]]

Bueno, he estado investigando la realización de un Hook a la API GetClipboardData. No es un asunto fácil. He de agradecer a cHackAll por su interés en el tema y su ayuda, así como el tutorial que ha publicado.

He realizado ese Hook, con parte de la programación en ensamblador, me hacía ilusión volver a usarlo, hacía mucho tiempo que lo tenía apartado.

El resto de la programación la he escrito en Builder, por lo que publico en el subforo correspondiente el código. Posiblemente sea mejorable. He tenido problemas cuendo la API era llamada desde un mensaje WM_PASTE, se alteraba la pila, pero lo solucioné, al menos en las pruebas que he realizado.

Para mi esto ha sido un juego muy satisfactorio y he aprendido mucho.

Saludos.