bring to top de la aplicacion

[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

[roman]

Empezado por seoane

Dejar la unit tal cual esta en tu web

Bueno sí, por el momento la unidad se queda tal cual en la web, pero eso no quita que podamos mencionar el cambio.

// Saludos

[roman]

Hola,

Gracias a dec que me avisó de un pequeño problema con la modificación propuesta por seoane. Extrañamente no funciona y como no le encontraba ninguna lógica, lo mejor era irse a la documentación de CreateMutex:

HANDLE CreateMutex(
  LPSECURITY_ATTRIBUTES lpMutexAttributes,
  BOOL bInitialOwner,
  LPCTSTR lpName
);

[...]

lpName

Points to a null-terminated string specifying the name of the mutex object. The name is limited to MAX_PATH characters and can contain any character except the backslash path-separator character (\).

y claro, ParamStr(0) contiene de esos caracteres. Al parecer se soluciona fácilmente poniendo algo como:

Código Delphi [-]
StringReplace(ParamStr(0), '\', '', [rfReplaceAll]);

// Saludos