|
Si, probe con keydb_event, y no me funciono intentando escribir en la aplicacion externa, pues estoy perdiendo el foco de la misma, no quedandome ninguna aplicacion activa.
Lo que quiero hacer es enviar un mensaje de que se presiono una tecla a la aplicacion activa actualmente. Mi aplicacion no toma foco.
Basicamente mi aplicacion es un form, con un speedbutton:
//esto es para que al ejecutar la aplicacion no se active
procedure TForm1.CMShowingChanged(var Message: TMessage);
begin
if Showing then
ShowWindow(Handle, SW_SHOWNA)
else
inherited;
end;
//para que al clickear sobre el boton, la aplicacion no se active
procedure TForm1.MOUSEACTIVATE(var Message: TWMMouseActivate);
begin
message.Result := MA_NOACTIVATE;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
keybd_event(Ord(TSpeedButton(Sender).caption[1]), 0, 0, 0);
// PostMessage(GetForegroundWindow, WM_CHAR, Ord(TSpeedButton(Sender).caption[1]), 0)
end;
Tambien probe enviar un mensaje a la ventana activa y tampoco me funciona.
Tenes idea que estoy haciendo mal, por donde puedo seguir????
Gracias nuevamente.
|