Detectar evento PASTE

[[escafandra]]

Tienes razón, roman, no todo pasará obligatoriamente por WM_PASTE, pero si no pegan, el contenido del clipboard no interesa...

Una aplicación puede monitorizar el clipboard para ver cuando cambia y cuando esto ocurre, cotillear en éste para ver si le interesa pegar o no. Este comportamiento lo tienen varios programas.

Pretendo detectar si se realiza un paste.

Parece que el tema no es tan fácil como en un principio intuia y al tropezarme con problemas con los Hooks que interceptan mensajes me hace investigar mas cosas a la par que me estimula.

Por cierto acabo de probar el WH_SYSMSGFILTER implementandolo en mi aplicación, fuera de la dll, y no engancha.


Saludos.

[[escafandra]]

roman, he estado mirando también tu sugerencia del hook a la API GetClipboardData, o a cualquier otra. No es nada sencillo y es una tarea para ir madurando y entendiendo despacio, pero extremadamente interesante y por lo tanto un reto.

Gracias y saludos.

[rauros]

Yo tengo poca idea sobre como funciona exactamente el clipboard, pero si no me alejo de lo que pienso que es; si clipboard se almacena en una zona de memoria hay en ensamblador una cosa llamada detect when read this adress, que si se lee en la zona de memoria del clipboard salta una funcion (o procedimiento). Exactamente no sé como funciona, pero un programa potentiiiiiiiiisimo y compilado en delphi es Cheat Engine, que lee zonas de memoria y las compara AL TIEMPO DE EJECCUCIÓN PUDIENDO EDITAR LINEAS DE ENSAMBLADOR y muchas cosas más. Yo intenté usar cheat engine de ejemplo, pero mi nivel está algo estancado y sigo sin poder leer zonas de memoria, así que si me he equivocado espero aprender de un error.

PD: www.CheatEngine.Org (está en inglés, es gratis y el source también)

[[escafandra]]

Muchas gracias, rauros, por tu sugerencia. miraré lo que propones. En los próximos días no tendré tiempo porque viajo.

Saludos.

[[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.