Manipular Tab De Windows desde Delphi 7

[carlos gonzalez]

Hola amigos.

Tengo una duda de algo que no se si sea posible o si alguien lo hecho.

Tengo en una pc ejecutando dos aplicaciones visuales, desde windows si nosotros le damos en las teclas alt+Tab podemos cambiarnos de una aplicación a la otra de forma rapida.

Alguien sabe si es posible hacer esto desde delphi de modo que lo programe que por ejemplo cada 2 minutos este cambiando entre una aplicación y la otra.

Si alguien sabe si se puede hacer esto y lo puede compartir se los voy agradecer infinitamente.

Su amigo charless.

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

[carlos gonzalez]

Muchas gracias por el ejemplo, funciona muy bien asi como esta, midifique la parte Notepad por pantalla1, donde pantalla1 es el nombre de la aplicación(.exe) desarrollada en delphi 7 pero no la encuentra, ya la copiea a la ruta de system32, a windows pero no la encuentra, sabes a que se pudiera deber esto

[[nlsgarcia]]

carlos gonzalez,

Realiza los siguientes cambios:

Código Delphi [-]
   // En la Aplicación-1 que activa el foco de la Aplicación-2.
   Window := FindWindow(nil,'Visual2');

Código Delphi [-]
   // En la Aplicación-2 que es activado su foco por la Aplicación-1.
   Application.Title := 'Visual2';

Te anexo un ejemplo de dos aplicaciones en Delphi 7, que activan su foco externamente según lo comentado en este tema en el siguiente link:

http://terawiki.clubdelphi.com/Delph...ternamente.rar

Espero sea útil

Nelson.