Foros Club Delphi - Ejecutar OutLook

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Ejecutar OutLook (https://www.clubdelphi.com/foros/showthread.php?t=96080)

Ejecutar OutLook

Saludos a todos,

Tengo el siguiente código para ejecutar Outlook.

Código Delphi [-]ShellExecute(0, 'open', 'outlook', nil, nil,SW_SHOWNORMAL)

lo hace bien, pero quiero que lo ejecute solo si no esta abierto.

Recuerda añadir TAGs al código cuando lo añadas a los mensajes.

Cita:

Empezado por jalcantara (Mensaje 550184)

Tengo el siguiente código para ejecutar Outlook.

Código Delphi [-]ShellExecute(0, 'open', 'outlook', nil, nil,SW_SHOWNORMAL)

lo hace bien, pero quiero que lo ejecute solo si no esta abierto.

Puedes "buscar" de varias formas si outlook está abierto antes de lanzar la ejecución.
La forma más sencilla es utilizando FindWindows. Si buscas en los foros por esa palabra encontrarás muchos mensajes y código de ejemplo.

Resumiendo, con esta función puedes buscar una ventana (perteneciente a un programa) utilizando su título o el nombre de su clase.
Lo bueno es que es simple, lo malo es que no siempre es igual de fiable.

Si buscas por el título, durante la ejecución de un programa (pasa en el caso de outlook) el título cambia, así que esta opción no es viable.
Si buscas por el nombre de la clase, es posible que en diferentes versiones de tu programa ese nombre también cambie.

En el caso de outlook, por ejemplo yo tengo la versión de escritorio:
"Microsoft® Outlook® para Microsoft 365 MSO (versión 2202 compilación 16.0.14931.20648) de 32 bits"

Para estar versión, la clase para la ventana principal se llama: "rctrl_renwnd32", así que este código funciona como piides:

Código Delphi [-]var
  h: HWND;
begin
  // Buscar outlook por la clase de ventana principal
  h := FindWindow('rctrl_renwnd32', nil);
  // Lo ha encontrado?
  if (h <> 0) then
    ShowMessage('Ya se ha encontrado una instancia de Outlook abierta')
  else
    ShellExecute(0, 'open', 'outlook', nil, nil,SW_SHOWNORMAL);

Excelente Neftali,

También me funciona para la versión Outlook 2016 64bit.

Solo tendría que averiguar como saber la clase de ventana principal de una aplicación x

me explico como supiste que rctrl_renwnd32 es la clase de ventana principal de tu versión de Outlook

Cita:

Empezado por jalcantara (Mensaje 550188)

Solo tendría que averiguar como saber la clase de ventana principal de una aplicación x
me explico como supiste que rctrl_renwnd32 es la clase de ventana principal de tu versión de Outlook

Hay aplicaciones para revisar las ventanas abiertas en un momento dado o incluso seleccionar una ventana y obtener información sobre ella.
WinExpde nirsoft
Spy for Windows 9x/NT de Krichmar Kobi (lo he subido al FTP del club)

Aunque si buscas, encontrarás más.