FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#12
|
|||
|
|||
Saber si una aplicación se está ejecutando
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 |
|
|
|