Hola. Pues me interesa que se pueda lanzar varias veces, para poder hacer varios trabajos de forma simultánea o poder ir a ver otro apartado sin necesidad de cerrar lo que estaba haciendo.
Respecto a lo de que no se pueda ejecutar dos veces una aplicación, yo utilizo el siguiente código en el fuente del proyecto:
...
{Si existe otra instancia ya ejecutandose, la activamos}
RvHandle := FindWindow('MiAplicacion', NIL);
if RvHandle > 0 then
begin
PostMessage(RvHandle, CM_RESTORE, 0, 0);
Exit;
end
else
begin
// Inicialización
Application.Initialize;
.... resto de código del source del proyecto
y luego en la form principal simplemente un procedimiento que captura los mensajes de usuario para hacer el application.bringtofront.
Volviendo al asunto del post ... sigo sin dar con la solución al problema.
¿Se os ocurre algo más?
|