Saber si la aplicación ya está en ejecución

[Neftali [Germán.Estévez]]

¿Cómo puedo saber si mi aplicación ya se está ejecutando?


// mutex.dpr
program NombreAplicación;

uses Forms,Windows,Dialogs, form1 in 'form1.pas';

{$R *.RES}

const NombreMutex='Tu aplicación';

Var Mimutex:Thandle;

begin
mimutex:= createmutex(nil,true,nombremutex);
if mimutex=0 then begin
Showmessage('Error creando mutex');
halt;
end;
if getlasterror=ERROR_ALREADY_EXISTS then begin
Showmessage('Ya está funcionando');
halt;
end;

Application.initialize;

......createform

.......run

closehandle(mimutex);

end.