FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
|||
|
|||
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 |
|
|
|