Ejecutar OutLook

[Neftali [Germán.Estévez]]

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

Empezado por jalcantara

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);