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

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