Bonjour à toutes et à tous,

Il y a des jours sans et des jours avec, aujourd'hui j'arrive à rien... et même pas à faire fonctionner cette FAQ

http://delphi.developpez.com/faq/?pa...tion#1instance

Il vrai que je l'utilise pas dans le DPR car je souhaite savoir si l'application est en cours d'utilisation pendant mon programme alors j'ai fais cela

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TFPage1.JvXPButton1Click(Sender: TObject);
Var
  H: THandle;
  Erreur: Integer;
begin
  // On doit vérifier qu'aucune instance du logiciel n'ai ouverte
  SetLastError(NO_ERROR);
  H := CreateMutex (nil, False, NomDuLogiciel);
  Erreur := GetLastError;
  if ( Erreur = ERROR_ALREADY_EXISTS ) or ( Erreur = ERROR_ACCESS_DENIED ) then
    Application.MessageBox(
    PAnsiChar(
    NomDulogiciel + ' est encours d''utilisation.'+#13+#10+
    'Vous devez quitter l''application'),
    PAnsiChar(NomDuLogiciel+' Setup'),
    MB_ICONWARNING +MB_OK )
  else
  Begin
    With FPage2 do
    Begin
      Parent := Self.Panel2;
      Align := alClient;
      Show;
    end;
  end;
end;
J'ai beau mettre n'importe quoi dans NomDuLogiciel
Genre calculatrice où tout autre logiciel il me trouve rien !!!

Pouvez m'aider ?

MErci