Evitar 2 ejecuciones de mi aplicación. Unidad UIApp

[dec]

Hola,

Hombre, siempre puedes hacer uso de alguna función que sustituya las "barras invertidas" (tal vez espacios en blanco y algún que otro caracterer...) para intentar evitar los problemas que mencionas. O, directamente, obtener el MD5 de la cadena en cuestión, como muestra el mismo Seoane en un truco del ClubDelphi, y utilizar este MD5, lo que también te evitaría los potenciales problemas que dices.

[rafita]

Hola Dec,

La próxima vez que utilice esta unidad lo haré como dices.

Por cierto, quería poner el nombre correcto de la unidad: UIApp por si alguien realiza una búsqueda en los foros que le aparezca.

saludos

[dec]

Hola,

Si te refieres a editar el título dalo por hecho.

[juanlaplata]

esta es la tecnica que uso, la encontre por ahi en algun foro o pagina de DELPHI, no eh registrado cual.

Código Delphi [-]
program Project1;

uses
  Forms,
  WINDOWS,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var
   MiMutex:THandle;
begin
  MiMutex:= CreateMutex(nil,false,'Project1.exe');
  if(GetLastError <> ERROR_ALREADY_EXISTS)then
     begin
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     Application.Run;
     ReleaseMutex(MiMutex);
     end;
end.

Este codigo va en la unidad del proyecto, lo que seria el ".dpr"

[dec]

Hola,

Juan, echa un vistazo a la unidad de Román, y al artículo relacionado. Ofrece otras ventajas además de la principal, por decirlo así.

[jhonalone]

Si lo que quieres es solamente evitar dos ejecuciones, puedes usar el componente de LMD, (SE) que viene con el sofware adicional de Delphi, que esta en la pestaña LMDSys y que se llama LMDOneInstance y va de maravilla y es muy fácil de usar.
Un saludo.