Abrir aplicacion 1 vez

[kdemia]

roman tu unidad la baje de tu pagina y funciona perfectamente el tema es que genera procesos nuevos osea como que se abre pero no se muestra.. si yo lo abro 10 veces, en los procesos del administrador de tareas aparece 10 veces, pero en el escritorio me lo muestra 1 vez es raro :P, y es como q cuando lo abro por segunda o mas veces como que tarda.. pero bueno a eso no le doy mucha bola, me interesa mas lo de los procesos.. se puede solucionar?

[roman]

Pues entonces no funciona "perfectamente". Desde luego, no debe hacer eso. Esa unidad la hice para delphi 7 y windows xp y me parece que en nuevas versiones tiene algunas fallas, pero no las he revisado pues hace mucho que ya casi no programo en delphi.

¿Qué versiones usas?

// Saludos

[kdemia]

delphi 2010 y windows 7 .. :/

[Spynosa]

con delphi 7 y windows 7 funciona perfectamente debe ser cosa de delphi 2010

[roman]

Yo probé con Delphi XE y Windows Vista y tampoco tuve problemas. Claro, en la lista de procesos, el nuevo proceso aparece listado temporalmente, pues sí existe, y desaparece apenas termina. Se me hace extraño el comportamiento que menciona kdemia, pues la técnica usada (semáforos) no creo que haya cambiado en Windows 7.

// Saludos

[kdemia]

es raro porq aparte d pasar eso qeu les digo no me deja abrir ninguna otra instancia de delphi que tenga esa unidad.. es decir supongamos que tengo un programa que hace una cosa, con la unidad esa, osea no la puedo abrir muchas veces pero si se listan los procesos.. ahora ya abierto este programa, quiero abrir otro programa, tambien hecho en delphi, y totalmente distinto al anterior, lo unico que tambien tiene esa unidad.. este ultimo no se abre.. solamente se lista el proceso..

[roman]

No puedes incluir la misma unidad en distintos proyectos así sin más. Para cada proyecto debes definir nuevas constantes (al principio de la unidad):

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

Para generar una constante puedes borrar la anterior:

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

Situar el cursor después del signo = y oprimir Ctrl+Shift+G:

Código Delphi [-]
const
  { Cadenas para registrar el mutex y el mensaje }
  sMutex   = ['{76CA035C-29F0-4E26-BF9E-2C1BB6F72C66}'];
  sActivar = '3F154732-CCDE-4BC7-9439-AFCD3BCFA84D';

y borrar los corchetes y llaves extra:

Código Delphi [-]
const
  { Cadenas para registrar el mutex y el mensaje }
  sMutex   = '76CA035C-29F0-4E26-BF9E-2C1BB6F72C66';
  sActivar = '3F154732-CCDE-4BC7-9439-AFCD3BCFA84D';

// Saludos