Saber si una aplicación se está ejecutando

[charyperez]

Buenos dias,

Soy nueva en el foro, pero llevo tiempo consultándolo.
He probado la solución que dais y me funciona perfectamente, pero mi problema es que yo tengo que ver si se está ejecutando, si es así, matar ese proceso y ejecutar el actual.
Para matar el proceso uso la llamada a un bat y lo mata, pero supongo que mata todos los procesos con el mismo nombre, porque ya no continua con el Application.Initialize.

Os pongo el código que tengo para ver si me podeis ayudar.


Const
NombreMutex='Mabisy';
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('El programa YA está funcionando.');
ShellExecute(0,nil,PChar('C:\delphi\Matarproceso.bat'),'','',SW_HIDE);
End;

Application.Initialize;

Application.CreateForm(TdmMBYControl, dmMBYControl);



El código del bat es simplemente :

taskkill /Im Proceso.exe

Gracias

[Casimiro Notevi]

Bienvenida a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

Deberías haber creado un nuevo hilo ya que no vas a aportar nada a la solución de este, que es de hace 14 años.
Saludos.

[charyperez]

Gracias Casimiro.
Pero no veo como crear un nuevo hilo. ¿Me lo podrias explicar?

[Casimiro Notevi]

Seleccionas el foro adecuado, o "Varios" si no sabes dónde ponerlo, le das al botón "Nuevo hilo" que está arriba/izquierda, pones un título lo más descriptivo posible... y escribes el mensaje.
Saludos.