Sending Keys

[Xianto]

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

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.