Ver Mensaje Individual
  #8  
Antiguo 13-01-2007
Avatar de ArdiIIa
[ArdiIIa] ArdiIIa is offline
Miembro Premium
 
Registrado: nov 2003
Ubicación: Valencia city
Posts: 1.481
Reputación: 22
ArdiIIa Va por buen camino
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.
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO
Responder Con Cita