[[nlsgarcia]]

carlos gonzalez,

Revisa estos links que tratan sobre el envío de teclas virtuales por medio de la API de Windows keybd_event en Delphi:

http://www.delphitricks.com/source-c...oard_keys.html

http://www.delphipages.com/forum/showthread.php?t=12735

http://delphi.about.com/od/adptips20...ltip0604_4.htm

http://www.kbdedit.com/manual/low_level_vk_list.html

http://delphi.about.com/od/objectpascalide/l/blvkc.htm

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   Window : hwnd; // Handle de la aplicación

begin

   // API FindWindow : Encuentra si esta activa en Windows una aplicación.
   Window := FindWindow('Notepad',nil);

   // API SetForegroundWindow : Cambia el foco de la aplicación activa en Windows
   if SetForegroundWindow(Window) = True then
      // API ShowWindow : Muestra en Foreground la aplicación seleccionada con SetForegroundWindow
      ShowWindow(Window, SW_SHOWNORMAL)
   else
      // Muestra un msg de error si la aplicación no esta áctiva en Windows
      MessageDlg('Notepad No Esta Activo', mtInformation,[mbOk], 0);

end;

El código anterior en Delphi 7 cambia el foco de la ventana activa en Windows por el de la aplicación que se establezca en FindWindow, creo que esto se adapta mejor a tu requerimiento.

Puedes adaptarlo a un control TTimer para cambiar entre aplicaciones de forma automática según el tiempo establecido.

Espero sea útil

Nelson.