[Migmam2]

Empezado por carlos7

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

Para utilizar este código poner en el Uses la unidad Windows.
Una duda que me queda es saber para que sirve Imagen,ImagenSel : TBitmap;

Saludos,

Miguel Angel