Foros Club Delphi - 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.