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
|