Tema: Sending Keys
Ver Mensaje Individual
  #1  
Antiguo 13-07-2006
Avatar de Xianto
Xianto Xianto is offline
Miembro
 
Registrado: oct 2004
Ubicación: Nací en Neuquén (ARG), desde 2001 Spain
Posts: 151
Reputación: 20
Xianto Va por buen camino
Sending Keys

Buenas foro...

Estoy queriendo enviar las pulsaciones del teclado a un juego...

Normalmente con el sndkey32.pas o con keybd_event, funciona, hay muchas formas... pero el juego trabaja con DirectX, asi que hay que bajar un poco más de nivel para poder hacer esto.

Algo como con FindWindow() y SendMessage() de la API, pero no estoy seguro de como hacerlo en delphi.

Por ejemplo para enviar un 0, a un proceso...

Código:
var Ventana: HWnd;
begin Ventana:= FindWindow(nil, 'GameWindowTitle'); if Ventana<>0 then SendMessage(Ventana, WM_KEYDOWN, VK_NUMPAD3, 0); end;
No estoy seguro porque no estoy en casa y no puedo probarlo, pero con esto funcionaria ???

O tendría que bajar aun más y usar GetProcAddress y SendMessajeA o algo así ???

Bueno ya me contaran algo, saludos y suerte.
__________________
El diseño dira si tiene futuro...

Última edición por Xianto fecha: 13-07-2006 a las 11:09:56.
Responder Con Cita