¿Cómo puedo saber si mi aplicación ya se está ejecutando?
Código Delphi
[-]
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.