Public Function IsAlreadyRunning() As Boolean
  Dim hMap As Long
  Dim pMem As Long
   Dim hPid As Long
       '# Nous tentons ici d'acceder au mappage (précedemment créé ?)
       hMap = OpenFileMapping(FILE_MAP_READ, 0, App.Title)
       If hMap <> 0 Then
           '# L'application est déjà lancée.
           pMem = MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0)
           If pMem <> 0 Then
               '# On récupère le handle vers la précédente fenêtre
               CopyMemory hPid, ByVal pMem, 4
               If hPid Then
                   On Error Resume Next
                   '# On active l'instance précedente
                   AppActivate hPid
                   On Error GoTo 0
               End If
               UnmapViewOfFile pMem
           End If
           '# On libère le handle hmap
           CloseHandle hMap
           '# et on prévient l'appelant que l'application avait dejà été lancée.
           IsAlreadyRunning = True
       Else
           '# Nous sommes dans la première instance de l'application.
           '# Nous allons laisser une marque en mémoire, pour l'indiquer
           hMap = CreateFileMapping(INVALID_HANDLE_VALUE, ByVal 0&, PAGE_READWRITE, 0, 4, App.Title)
           If hMap <> 0 Then
               '# On ouvre le 'fichier' en écriture
               pMem = MapViewOfFile(hMap, FILE_MAP_WRITE, 0, 0, 0)
               If pMem <> 0 Then
                   '# On y écrit le process courant
                   CopyMemory ByVal pMem, GetCurrentProcessId(), 4
                   UnmapViewOfFile pMem
               End If
               '# Pas de CloseHandle hMap ici, sous peine de détruire le mappage lui-même...
           End If
       End If
   End Function

Public Function IsAlreadyRunning() As Boolean
    IsAlreadyRunning = App.PrevInstance
End Function

Le comportement de l'application est déterminé lors de la création de son exécutable,
aucune programmation n'est requise pour cela
(cf. menu "Atelier ... Générer l'Exécutable Windows").

(complément du snippet ci-dessus)
Cependant on peut tester la présence d'un executable en mémoire
Nb est un entier
Nb = ExeLancé(<Nom de l'exe>)

var HandleMutex : THandle;


function IsRunning : Boolean;
  begin
  result := true;
  SetLastError(NO_ERROR);
  if OpenMutex(MUTEX_ALL_ACCESS,false,pChar('MonMtx'))<>0 then exit;
  HandleMutex  := CreateMutex(Nil,true,pChar('MonMtx'));
  if HandleMutex = 0 then ShowMessage('Erreur de Mutex')
                              else result := false;
end;


procedure TForm1.FormCreate(Sender: TObject);
  begin
  if IsRunning then Halt;
end;


procedure TForm1.FormDestroy(Sender: TObject);
  begin
  if HandleMutex <> 0 then ReleaseMutex(HandleMutex);
end;

using System.Threading;
protected const string APP_UNIQUE_ID = "0F054E71-9E49-42f0-9782-A0DF741D3F8E";
/// <summary>

protected
/// Point d'entrée principal de l'application.

/// </summary>

[STAThread]
static void Main() 
{

	using (Mutex __mutex = new Mutex(false, @"Global\" + APP_UNIQUE_ID)) // unique pour toutes les sessions

	//using(Mutex __mutex = new Mutex(false, APP_UNIQUE_ID)) // unique uniquement pour la session en cours

	{
if(!__mutex.WaitOne(0, false))
		{

			MessageBox.Show("Application déja lancée.");
return;
		}

		GC.Collect(); 
Application.Run(new Form1());
	}

}

Function PrevInstance() As Integer
 Dim ProcessList As System.Diagnostics.Process()
 'Récuperer toutes les intances ayant le même nom et chemin que Application.ExecutablePath
 ProcessList = System.Diagnostics.Process.GetProcessesByName(System.Diagnostics.Process.GetCurrentProcess.ProcessName)

 If (ProcessList.Count>1) then
  Dim Proc As System.Diagnostics.Process
  Dim xCount As Integer = 0
  Dim xId As Integer = 0

  For Each Proc In ProcessList                
   if (Proc.MainModule.FileName = Process.GetCurrentProcess().MainModule.FileName) then                    
    if Proc.Id <> Process.GetCurrentProcess().Id then xId = Proc.Id
    xCount = xCount + 1                                        
   End If
  Next
  If xCount > 1 then
   Return xId
  Else
   Return 0
  End If   
 Else
  Return 0
 End If    
End Function
'UTILISATION
Dim IdPrevInstance As Integer

IdPrevInstance = PrevInstance
If IdPrevInstance <> 0 Then
   MessageBox.Show("App.PrevInstance")
   'Activer la première
   AppActivate(IdPrevInstance)
   'Fermer cette instance
   Application.Exit()
   Exit Sub
End If

program Project1;
uses
  Windows, Forms, Dialogs, SysUtils,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
  SetLastError(NO_ERROR);
  if CreateMutex(Nil,true,pChar('MutexFor' + ExtractFileName(Application.ExeName))) = 0 then Halt;//La création du Mutex a échoué.
  if GetLastError = ERROR_ALREADY_EXISTS then begin//Le Mutex existe déjà.
    ShowMessage('Cette application est déjà lancée !');
    Halt;
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.