Detectar evento PASTE

[roman]

Empezado por escafandra

me pregunto una cosa si una aplicación llama a GetClipboardData es para conocer que tiene el clipboard. Luego puede pegar o no....

Claro, pero si lo pegan, ya estuvo que te lo perdiste Porque no todo será a través de WM_PASTE.

// Saludos

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