Minimizar aplicacion

[colthop]

Hola a todos:

Desearía saber si se pude Minimizar una Aplicación desde código. Me explico, tengo una aplicación que llama a otra y cuando lo hace quiero que se minimice a la barra de tareas y después cuando la segunda aplicación se cierre volver a maximizarla.

¿Se puede hacer?, ¿como?.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Si te refieres a la aplicación que llama a la otra:

oWndMain:Iconize()

En donde oWndMain es la ventana principal

para luego restaurarla:

oWndMain:Restore()

[colthop]

Hola Antonio:

Gracias por tu respuesta, el Minimizar si me funciona ya que lo hago en la misma aplicación. Pero lo de maximizar no, porque o tengo que hacer desde otra aplicación.

Lo que tendría que hacer seria:

Code: Select all  Expand view

if IsExeRunning("colhop.exe")
  "Maximizar"("colthop.exe")
endif

Donde "Maximizar" sería la instrucción que busco para maximizar la aplicación "colthop.exe" que es distinta a la que estoy.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Una vez consigas su hWnd (usando FindWindow()) podrías hacer:

ShowWindow( hWnd, SW_MAXIMIZE )

[colthop]

hola a todos:

Gracias Antonio ya me funciona al final lo he conseguido con esto:

Code: Select all  Expand view

 if isexerunning("colthop.exe")
    hWnd := FindWindow(,"Multiaplicación Asociada e Integrada - Colt Hop ED, S.L.")
    if hWnd <> 0
      ShowWindow(hWnd,3)
    endif
  endif

En donde "Multiaplicación Asociada e Integrada - Colt Hop ED, S.L." es el TITLE de la ventana principal de la aplicación

Un saludo

Carlos