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());
	}

}