Rendre un exécutable "once a time"

**peter27x** · 26/06/2009, 12h15

Hello,

j'imagine qu'il doit être assez simple dans delphi (via le fichier .dpr je suppose ?) d'empêcher qu'une appli puisse se lancer plusieurs fois.

Mais je ne sais absolument pas comment cela se code...

Auriez vous un exemple du bout de code en question à me proposer ?

Merci.

**Paul TOTH** · 26/06/2009, 12h28

tient...on dirait que ce n'est pas dans la FAQ

un Mutex fera très bien l'affaire.

voir ce fil

**peter27x** · 26/06/2009, 12h30

Envoyé par Paul TOTH

tient...on dirait que ce n'est pas dans la FAQ

un Mutex fera très bien l'affaire.

voir ce fil

Oui, je viens de voir que c'est géré dans une autre appli existante là où je bosse...

Merci !

**Aka Guymelef** · 26/06/2009, 12h39

tient...on dirait que ce n'est pas dans la FAQ

Sisi ça l'est, ici

**peter27x** · 26/06/2009, 12h40

Envoyé par Aka Guymelef

Sisi ça l'est, ici

Honte à moi... vous avez le choix pour mon sort : pendaison, guillotine ou lapidation...

**peter27x** · 26/06/2009, 13h12

bon finalement en m'inspirant du fil filé par Paul, puis en modifiant et en simplifiant pour mon cas, ça se réduit à ça et ça marche nickel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  H:THandle;
  nomAppli:string='Toto Contre MegaMan';
begin
try
 
  SetLastError(NO_ERROR);
  h:=createMutex(nil,false,PChar(nomAppli));
  if getLastError <> NO_ERROR then
  begin
    messageDlg('Logiciel déjà ouvert !',mtError,[mbOk],0);
    halt(0);
  end;
  ReleaseMutex(H);