bring to top de la aplicacion

[Ricardo Alfredo]

Hola he busca sin éxito por el momento de como hacer que mi aplicación no se ejecute dos veces , si no que cuando ya se esta ejecutando "lanzarla" hacia a delante.

Lo que sucede que tengo varias aplicaciones y se pueden llamar entre ellas , pero sucede que si la invocas mas de una vez , te la abrirá y lo que quiero es que te la muestre para que sigas trabajando en lo que estabas.

Por ejemplo si uds. abren varias veces el Excel, este lo que hace es ejecutar varias veces las aplicación yo quiero lo contrario que solo se ejecute una vez hasta que le des cerrar.


gracias por la ayuda

[[seoane]]

Permiteme que te recomiende esta excelente unit del compañero roman

http://romansg.net/index.php?pg=uiapp

[Ricardo Alfredo]

gracias , la prove y funciona en forma estupenda.

Ahora otra preguntilla, es como puedo terminar un grupo de aplicaciones , estas por ejemplo yo tengo mi aplicacion principal que me llama a todas las demas , la idea es si el usuario se sale de esta yo termine con todas las que tenga abierta y esten relacionadas con la principal.



gracias

[[seoane]]

Bueno, en la unit de roman tienes un buen ejemplo de como usar la funciones RegisterWindowMessage y SendMessage para enviar mensajes de tipo BroadCast. En tu caso, solo tendrías que enviar un mensaje a todas las ventanas (usando HWND_BROADCAST), de esta manera cuando una de las otras aplicaciones reciba el mensaje sabrán que tienen que cerrarse y actuaran en consecuencia.

Si echándole un vistazo al código de roman, no te aclaras con el funcionamiento de RegisterWindowmessage y SendMessage, pasate otra vez por aquí e intentaremos echarte una mano.

[Ricardo Alfredo]

sabes , tuve un pequeño inconveniente con la unit de roman, sucede que yo tengo un sistema el cual contiene 6 aplicaciones, pues bien, debo cambiar los parametros sMutex y sActivar para generar la compilacion de la aplicacion, esto lo debo hacer tantas veces como apliaciones tenga, pero no habra alguna otra forma , por ejemplo dejar esas constantes en el dpr de cada aplicacion, lo trate de hacer de varias formas y no he logrado solucionar ese pequeño inconveniente, si tienen alguna idea me la pueden decir por favor.

[[seoane]]

No entiendo el problema. Es verdad que para cada aplicación tienes que utilizar un valor de sMutex y sActivar diferente porque precisamente se trata de diferencia unas aplicaciones de otras. Pero en el caso que mencionabas después, cerrar todas tus aplicaciones a la vez, debes de utilizar la misma cadena en todas de esta forma la orden de cerrar llegara a todas tus aplicaciones.

Lo dicho, puede que no este entendiendo cual es problema.

[German]

Por "actualizar" un poco el hilo, hago un pequeño comentario, después de utilizar la unidad UIApp en D2007, y bajo Vista 64...

La función IsIconic(Handle) siempre devuelve False, y ShowWindow(Handle, SW_RESTORE) no restaura la aplicación. Debería utilizarse:

Código Delphi [-]
if IsIconic(Application.MainForm.Handle) then ShowWindow( Application.MainForm.Handle, SW_RESTORE)

Además, en el proc. "Registrar", la excepción silenciosa utilizada cuando ya existe el mutex, siempre es lanzada (o sea que se convierte en escandalosa), apareciendo el mensaje de diálogo, con lo que el try de initialization deja de tener sentido. Se podría solucionar de este manera...

Código Delphi [-]
(...)

procedure Registrar;
begin
  mActivar := RegisterWindowMessage(sActivar);
  Mutex    := CreateMutex(nil, true, sMutex);

  { Si ya existe , ponemos el mutex a cero }
  if GetLastError = ERROR_ALREADY_EXISTS then Mutex := 0
  else begin
    { Si no existe, sustituimos el procedimiento de ventana }
    PrevWndProc := TFarProc(GetWindowLong(Application.Handle, GWL_WNDPROC));
    SetWindowLong(Application.Handle, GWL_WNDPROC, LongWord(@AppWndProc));
  end;
end;

initialization
  Registrar;
  if Mutex = 0 then
  begin
    Activar;
    Halt;
  end;

(...)

El ejecutable resultante funciona tanto en XP como en Vista de forma correcta.

Salu2.