Saber si una aplicación se está ejecutando
Hola, estoy desarrollando una pequeña aplicación en Delphi y me gustaría que, al iniciar la aplicación, compruebe si ésta ya está siendo ejecutada y si ya está en marcha que muestre un mensaje.
Muchas gracias. |
Truco 267 de Trucomania, antes, debes de incluir la libreria TLHelp32
Código:
procedure TForm1.Button1Click(Sender: TObject); |
Hola, simplemente tienes que poner el siguiente código en el fichero dpr, justo antes del Application.Initialize :
Const NombreMutex='Un Nombre Cualquiera'; Var MiMutex:THandle; Imagen,ImagenSel : TBitmap; 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.'); Halt; End; Saludos. Carlos |
Muchas gracias a todos
|
Si además quieres que la instancia ya existente de tu aplicación se active en lugar de sólo mandar un mensaje al usuario, te ofrezco la unidad uiapp.pas en mi página. Con esta unidad tú no tienes que programar nada, únicamente incluirla en la cláusula uses de tu archivo dpr.
// Saludos |
Cita:
|
Esa Unidad de Roman es de lo mejor. Es mas te agradezco mucho, en la aplicacion de mi tesis de grado quedaste presente con esa unit:D.
|
Cita:
Una duda que me queda es saber para que sirve Imagen,ImagenSel : TBitmap; Saludos, Miguel Angel |
hola.
Me marca error al tratar de entrar al Link del UIApp gracias de antemano Cita:
|
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 |
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. |
Saber si una aplicación se está ejecutando
Gracias Casimiro.
Pero no veo como crear un nuevo hilo. ¿Me lo podrias explicar? |
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. |
Cita:
|
Aquí tienes el código:
|
La franja horaria es GMT +2. Ahora son las 07:09:33. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi