bring to top de la aplicacion

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

[Ricardo Alfredo]

si es cierto lo que dices, pero lo que ahora esta preguntando era de que modo puede cambiar los valors mutez y activar sin tener que crear una copia distinta para cada aplicacion , porque digo esto porque sabemos que esas dos constantes deben ir con valor distinto para tantas aplicaciones tenga, entoces la unica manera que he encontrado para es tener una copia de la unit de roman por tantas apliacaciones tenga, esto debido que no he encontrado la forma de pasar esas constantes a la unit de roman con valores distintos desde el dpr

lo otro que hablas tu estoy haciendo las pruebas y cambios necesario para ver si funciona, cuando lo logre te cuento

[[seoane]]

Se me ocurre una solución, modificamos la unit de roman de esta manera:

Código Delphi [-]
unit UIApp;

interface

uses
  Windows, SysUtils, Forms;

procedure Registrar(sActivar, sMutex: string);
procedure Activar;

implementation

var
  mActivar    : Cardinal; { Mensaje para activar la instancia anterior }
  Mutex       : Cardinal; { Mutex                                      }
  PrevWndProc : TFarProc; { Procedimiento de ventana original          }


function AppWndProc(Handle: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LongInt; stdcall;
var
  FgThreadId  : DWORD; { Hilo de la app. que tenga el foco }
  AppThreadId : DWORD; { Hilo de nuestra aplicación        }

begin
  if Msg = mActivar then
  begin
    { Si está minimizada basta restaurarla }
    if IsIconic(Handle) then
      ShowWindow(Handle, SW_RESTORE)
    else
    begin
      { Obtener los hilos }
      FgThreadId  := GetWindowThreadProcessId(GetForegroundWindow, nil);
      AppThreadId := GetWindowThreadProcessId(Handle, nil);

      { Anexar el hilo de nuestra app. al de la  que tenga el foco }
      AttachThreadInput(AppThreadId, FgThreadId, true);

      { Ahora sí, activar la applicación }
      SetForegroundWindow(Handle);

      { Separar el hilo de nuestra app de la otra }
      AttachThreadInput(AppThreadId, FgThreadId, false);
    end;

    Result := 0;
  end
  else
    { Dejar que el procedimiento original se encargue de los otros mensajes }
    Result := CallWindowProc(PrevWndProc, Handle, Msg, wParam, lParam);
end;

procedure Activar;
begin
  { Mandamos el mensaje a todas las ventanas }
  SendMessage(HWND_BROADCAST, mActivar, 0, 0);
end;

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

  { Si ya existe el mutex lanzamos una excepción silenciosa }
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
   Mutex := 0;
   abort;
  end
  else
  begin
    { Sustituimos el procedimiento de ventana }
    PrevWndProc := TFarProc(GetWindowLong(Application.Handle, GWL_WNDPROC));
    SetWindowLong(Application.Handle, GWL_WNDPROC, LongWord(@AppWndProc));
  end;
end;

initialization 

finalization
  if Mutex <> 0 then ReleaseMutex(Mutex);
end.

Luego en el dpr de nuestra aplicación, colocamos esto al principio:

Código Delphi [-]
 try
    Registrar(sActivar, sMutex); // SActivar, sMutex son constantes del dpr
  except
    Activar;
    Halt;
  end;

¿que te parece?