Bonjour,
A part les quelques lignes de codes bien connues qu'on glisse dans le fichier source (tirées de la FAQ et qui fonctionnent bien)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
var
H : THandle;
Erreur: Integer;
 
begin
  SetLastError(NO_ERROR);
  H := CreateMutex (nil, False, 'Nom de l application');
  Erreur := GetLastError;
  if ( Erreur = ERROR_ALREADY_EXISTS ) or ( Erreur = ERROR_ACCESS_DENIED )
    then Exit;
existe-t-il l'équivalent du génial petit contrôle de Lazarus UniqueInstance (pas présent en standard. A installer depuis le Online Package Manager) ? Juste à le déposer su la Form principale et le tour est joué...
Sinon tant pis..
Merci. Cordialement