Ver Mensaje Individual
  #3  
Antiguo 10-07-2008
Omega Omega is offline
Miembro
 
Registrado: jun 2008
Posts: 25
Reputación: 0
Omega Va por buen camino
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.

Última edición por Omega fecha: 10-07-2008 a las 17:38:09.
Responder Con Cita