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

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

Código Delphi [-]
// 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.