Pasar palabra bajo cursor en un programa a aplicación Delphi

[rivers]

Empezado por rivers

Amigo prueba esto haber si es lo que quieres:

keybd_event(VK_CONTROL,0,0,0); // CTRL presionado
keybd_event(VkKeyScan('V'),0,0,0); // V presionada
keybd_event(VkKeyScan('V'),0,2,0); // V presionada
keybd_event(VK_CONTROL,0,2,0); // Soltar CTRL.

Saludos,
Pedro.

Has probado de poner un sleep(100) antes de este proceso?, ya que a veces no hay suficiente tiempo para la aplicación.
Ah!! por cierto en vez de VkKeyScan('V') debes poner 'C' para el Copy y previamente seleccionar el texto.

Saludos.

[Q37]

Respondo a la vez a Rivers y a Ardilla.

Si he probado a poner Sleep(n) despues de cada keybd_event pero tampoco funciona.

Respecto a lo de afrontarlo en plan OCR ni se me habia ocurrido, en primer lugar porque en el tema del API de Windows, tal y como decía un profe que tuve, "estoy en condiciones óptimas para aprender"

Crei que simular un Doble Clik y luego Ctrl+C sería lo más asequible para mis conocimientos pero, aunque sigo creyendo que TIENE QUE HABER UNA FORMA DE CONSEGUIRLO, quizas explorar cómo hacerlo en plan OCR sea la solución.

Por cierto Ardilla, alguna idea para comenzar a andar?

Gracias chavales por vuestras respuestas. Seguireis leyendo mis lloros/progresos.

[[ArdiIIa]]

Bueno pues con relación a lo de enviar una secuencia al teclado a la ventana deseada, esto si te debería funcionar:

Código Delphi [-]
procedure xxxx(Sender: TObject);
Var
KeyState : TKeyboardState ;
begin
  GetKeyboardState(KeyState);
  KeyState[vk_CONTROL] := $81;
  SetKeyboardState(KeyState);
  PostMessage(hVentana,WM_KEYDOWN,VK_V,1);
  PostMessage(hVentana,WM_KEYUP,  VK_V,1);
  KeyState[vk_CONTROL] := 0;
  SetKeyboardState(KeyState);
End;

En este caso, se envia un CTRL-V

Con relación al tema OCR, vi hace algún tiempo algunos de los proyectos de SourceForge, y aunque muchos de ellos tienen buena pinta, no llegué a ver que ninguno funcionara. No obstante el código está allí.
Aunque sería estupendo abrir un hilo tal como se ha hecho con muchos otros temas (por ejemplo, un proyecto de facturación), para ver la evolución de un OCR realizado en Delphi.