controlar si mi programa se ejecuta

[acrophet]

Hola amigos, navegando por ahi encontre algo sobre como controlar si mi programa esta corriendo o no; pasteo:

--------------------------------------------------------------------
Para detectar si tu aplicación ya está corriendo puedes usar "átomos". Windows cuenta con una tabla global donde se pueden dejar cadenas de caracteres (Strings) a los que denomina átomos. En tu aplicación podrías consultar esta tabla buscando un string determinado. Si lo encuentras, entonces tu aplicación estará corriendo, y si no lo encuentras lo agregas. Al finalizar la aplicación debes eliminar este string de la tabla.
Debes tener cuidado de que tu aplicación termine normalmente, ya que en caso contrario tu string quedará en la tabla y al ejecutar tu aplicación, esta no correrá nuevamente hasta que reinicies Windows.
El código es el siguiente, no olvides poner en la cláusula uses, Windows para las funciones de los átomos, y Dialogs para ShowMessage :


program TestInstancias;

uses Windows, Dialogs, Forms,
utMainInstancias in 'utMainInstancias.pas' {Form1};

{$R *.RES}
Const
StrAtomo = 'Mi Aplicación';

Var
IdAtomo: Word;

begin

If GlobalFindAtom( StrAtomo ) = 0 //No lo encuentra?
Then
Begin //Agrega String y Obtiene id del atomo
IdAtomo := GlobalAddAtom( PChar(StrAtomo) );
Application.Initialize; //Ejecuta aplicacion normalmente
Application.CreateForm(TForm1, Form1);
Application.Run;
GlobalDeleteAtom(IdAtomo); //Elimina el Atomo
End
Else ShowMessage('¡La Aplicación ya está corriendo!');

end.
-----------------------------------------------------------------

Bien, esto funciona perfectamente pero mi problema viene cuando el programa no termina normalmente, porque pete, porque estoy depurandolo y lo resetee o lo que sea. La cosa es que se queda pillado y siempre "entiende" que ya se está ejecutando.
Alguien me podria dar una pista sobre como cepillarmelo de memoria, porque ni matando el proceso funciona.
Gracias.

[__cadetill]

mirate este hilo de no hace mucho http://www.clubdelphi.com/foros/showthread.php?s=&threadid=3662

Yo personalmente utilizo más o menos lo que propone el amigo Román, pero las otras soluciones también son válidas

[delphi.com.ar]

Como solución primaria, utilizaría las herramientas del lenguaje:

If GlobalFindAtom( StrAtomo ) = 0 Then
begin
IdAtomo := GlobalAddAtom( PChar(StrAtomo) );
try
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
finally
GlobalDeleteAtom(IdAtomo); //Elimina el Atomo
end
end
else
ShowMessage('¡La Aplicación ya está corriendo!');


Pero si el usuario "Mata" el proceso, nunca se ejecutará el GlobalDeleteAtom, por lo que quedará en la lista global. Por eso prefiero usar "Semáforos" (CreateSemaphore) que son visibles desde todos los procesos y se eliminan cuando el proceso se elimina:
const
PApplicationId = 'Nombre del la Aplicación';

var
hSemaphore: THandle;
begin
hSemaphore := CreateSemaphore(nil, 0, 1, PApplicationId);
if (hSemaphore <> 0) and (GetLastError=ERROR_ALREADY_EXISTS) Then
ShowMessage('¡La Aplicación ya está corriendo!')
else
try
ShowMessage('Application.Run');
finally
CloseHandle(hSemaphore);
end;
end.

[roman]

Como una opinión, muchos de los trucos acerca de esto se limitan a detectar si una aplicación está ejecutándose o no. Pero desde el punto de vista del usuario es amable que la aplicación active la instancia anterior en lugar de simplemente presentar un mensaje: cuando el usuario trata de abrir la aplicación es, generalmente, porque la quiere usar, de manera que lo que desea es ver la ventana de la aplicación y no un mensaje de regaño. En mi caso particular esto último es lo qe mas trabajo me costó ya que un simple Application.BringToFront no siempre es suficiente o quedaba el botón de la aplicación parpadeando. Hasta donde he podido probarlo, el método que uso en mi página logra activar la aplicación sin ningún problema.

// Saludos

pd: lo que dice el amigo delphi.com.ar acerca de los semáforos no lo sabía. Voy a probarlo y quizá cambie el código para usar semáforos en lugra de mutex.