bring to top de la aplicacion

[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

[[seoane]]

Empezado por 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 ...

Si, es MUY extraño que no funcione un código mio. Es broma, la verdad es que cuando lo dije se me ocurrió de pronto y no me paré a probarlo. De todas formas yo sustituiría '\' por '/', o por cualquier otro carácter que no pueda formar parte del nombre de un fichero para asegurarnos de que sigue siendo único.

[roman]

Je, je, tienes razón, al colapsar puede perderse la unicidad:

ab\cd.exe => abcd.exe
a\bcd.exe => abcd.exe

Entonces habrá que sustituirlo por un caracter que no pueda formar parte de un nombre de archivo, como ? ó *.

// Saludos