bring to top de la aplicacion

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

[roman]

Está bien la modificación. Yo estaba pensando algo por la vía de

Código Delphi [-]
var
  {$include contantes.inc}
  // mActivar    : Cardinal; { Mensaje para activar la instancia anterior }
  // Mutex       : Cardinal; { Mutex                                      }
  PrevWndProc : TFarProc; { Procedimiento de ventana original          }

pero constantes.inc tendría que ser específico de la aplicación y no sé como inidicarle al $include una ruta que dependa de la aplicación. ¿En Delphi no hay 'magic constants'?

// Saludos

[[seoane]]

Roman, tanto hablar de ti ya se me hacia raro que no intervinieras.

[Ricardo Alfredo]

basicamente cambie lo que dice seoane, con un pequeño cambio que fue
procedure Registrar_APP(sActivar, sMutex: PAnsiChar);
ya que si lo dejo como string este es incompatible con cardinal.

y funciona correctamente por lo menos lo probe con 6 aplicaciones, ahora terminara con el resto con son 23 y vero como hacer el otro tema de si me cierran el principal cierre todos los "hijos"

[roman]

Empezado por seoane

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

Todo esto está muy bien, pero se pierde la idea original de no tener que codificar nada, sólo incluir un archivo. Dándole vueltas un poco creo que he encontrado una solución.

Donde dice:

Código Delphi [-]
const
  { Cadenas para registrar el mutex y el mensaje }
  sMutex   = '10D73234-C9F7-4C2D-BC7E-39B5820AF456';
  sActivar = '3F154732-CCDE-4BC7-9439-AFCD3BCFA84D';

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

hay que cambiar a:

Código Delphi [-]
var
  { Cadenas para registrar el mutex y el mensaje }
  sMutex: String = '10D73234-C9F7-4C2D-BC7E-39B5820AF456';
  sActivar: String = '3F154732-CCDE-4BC7-9439-AFCD3BCFA84D';

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

es decir, promovemos las constantes a variables inicializadas.

Luego agregamos un procedimiento:

Código Delphi [-]
procedure LeerConstantes(var sActivar, sMutex: String);
var
  Archivo: TIniFile;
  sArchivo: String;

begin
  sArchivo := ExtractFilePath(Application.ExeName) + 'uiapp.ini';

  if FileExists(sArchivo) then
  begin
    Archivo := TIniFile.Create(sArchivo);

    try
      sActivar := Archivo.ReadString('constantes', 'activar', sActivar);
      sMutex := Archivo.ReadString('constantes', 'mutex', sMutex);
    finally
      Archivo.Free;
    end;
  end;
end;

Este procedimiento busca el archivo uiapp.ini en el directorio de la aplicación y sí existe, cambia los valores que se le pasan por los que tenga ese archivo.

Finalmente se introduce la llamada a LeerConstantes al principio:

Código Delphi [-]
initialization
  LeerConstantes(sActivar, sMutex);
  
  try
    Registrar;
  except
    Activar;
    Halt;
  end;

Así, el programador final sólo tiene que agregar el uiapp.pas en el uses del dpr e incluir un ini en su directorio:

[constantes]
activar=0E69F5F8-5AB5-4A31-B2DF-6A2467DEAC63
mutex=24B85122-DEEB-4939-8C34-5DF11B89D0B9

// Saludos

[[seoane]]

Pues a mi me se ocurre otra.

Dejar la unit tal cual esta en tu web. Y solo cambair estas dos lineas

Código Delphi [-]
  mActivar := RegisterWindowMessage(sActivar);
  Mutex    := CreateMutex(nil, true, sMutex);

Cambiarlas por:

Código Delphi [-]
  mActivar := RegisterWindowMessage(PChar(sActivar+ParamStr(0)));
  Mutex    := CreateMutex(nil, true, Pchar(sMutex+ParamStr(0)));

[roman]

Sí, esta está mejor

// Saludos