Evitar 2 ejecuciones de mi aplicación. Unidad UIApp

[rafita]

Hola a todo el mundo,

Me he decidido a probar la unidad UIPass de Roman, por cierto muy buena utilidad, y muchas gracias por dejarla disponible.

Pero naturalmente he tenido problemas.

1º) la coloqué en la carpeta de mi proyecto
2º) la añadí al .DPR
3º) modifique las cadenas SMutex y SActivar
4º) modifique la función AppWndProc como se indica en el apendice
5º) modifique el procedimiento Registrar según el consejo de Domingo Seoane, y aquí es donde me ocurre el problema:

//mActivar := RegisterWindowMessage(sActivar);
//Mutex    := CreateMutex(nil, true, sMutex);
  mActivar := RegisterWindowMessage(PChar(sActivar + Application.ExeName)); // así le añade el Path y el nombre de la aplicación y hace la cadena única
  Mutex    := CreateMutex(nil, true, PChar(sMutex + Application.ExeName));

Si sigo el consejo de Domingo para crear cadenas diferentes añadiéndoles el camino y nombre de la aplicación, entonces NO me funciona, pero si dejo la versión original de Román SÍ me funciona.

De momento no voy a utilizar esta unidad en ningún otro sitio, pero me gustaría que funcionase adecuadamente.