Enviar tecla a una ventana

[Omega]

Hola, soy de usar el buscador y ya estuve mirando varios temas pero no me queda claro.

Lo que quiero hacer es enviar ENTER a una aplicación, para ello se que primero hay que obtener la ventana que es y luego enviar el ENTER, he estado haciendo pruebas y nada. Esto es lo que llevo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var h: Cardinal;
begin
 h := FindWindow(nil,'a.txt - Bloc de notas');
 if h <> 0 then begin
  SendMessage(h, WM_KEYDOWN, VK_RETURN, 0);
 end
 else
 begin
  showmessage('No se encuentra la ventana');
 end;
end;

Edito: Había 2 linea que no servían para nada y una cosa que me había comido. jeje

Saludos y gracias.