Une seule instance de l'appli et exécuter une procédure [FAQ]

**Manic** · 13/01/2006, 03h58

Bonjour à tous,
J'ai créer un programme qui peut être ouvert avec un paramètre. Exemple:

Code :

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

Project1.exe mon_parametre

J'ai créer une procédure qui analyse ce paramètre. Le problème est que j'aimerais n'avoir qu'une instance de mon application et que si une deuxième instance venait à s'ouvrir avec un paramètre, ma première instance récupère ses paramètres pour les renvoyer à ma procédure qui en fait l'analyse.

J'ai déjà lu ce lien sur les instances et Delphi: http://delphi.developpez.com/faq/?page=interexecution , mais ça ne m'a pas donné de réponses à ma question.

Voila, si quelqu'un a une idée sur le sujet.

**zazaraignée** · 13/01/2006, 14h36

Salut

As-tu réussi à n'ouvrir qu'une seule instance et maintenant tu veux faire analyser le paramètre par l'instance ouverte ou t'as besoin d'aide pour les deux?

**Manic** · 13/01/2006, 15h22

J'ai réussi à faire en sorte d'ouvrir qu'une seule instance de mon appli s'ouvre avec les Mutex tel que décrit sur le lien que j'ai mis dans mon premier message.

Il ne me reste qu'à savoir comment faire passer le paramètre passé à ma deuxième instance pour l'envoyer à la première.

**zazaraignée** · 13/01/2006, 15h24

Salut

En VB on peut gérer ce genre de cas avec un Sub Main dans un module de code qu'on met en module principal. Mais j'ignore comment on peut faire ça en Delphi. Alors je passe la main.

Je jette un oeil sur le lien que tu as mis. Ça m'intéresse.

**Manic** · 13/01/2006, 16h08

J'ai adapter le code du lien à mon programme mais j'ai encore certains problèmes...

**zazaraignée** · 13/01/2006, 16h21

Explique lesquels. P't'êt' bien que les copains sauront d'où ça vient.

**Manic** · 13/01/2006, 16h34

Finalement j'ai réussi!

J'avais un petit problème de variable que j'ai réglé.

**zazaraignée** · 13/01/2006, 16h41

Salut

J'aimerais bien voir ton code. Le sujet m'intéresse.

N'oublies pas de cliquer sur le bouton

en bas à gauche.

**Manic** · 13/01/2006, 16h52

Voici mon code du projet (ce qui se trouve dans le fichier dpr):

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program Project1;
 
uses
  Windows, Forms, //ici on ajoute Windows...
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas',
  Unit5 in 'Unit5.pas' {Form5};
 
//Variables nécessaires
var
  WM_ENVOI_ATOM, i:Integer;
  h:THandle;
  atom_Envoi:Atom;
  param_instance:String;
 
{$R *.res}
 
begin
  //Création du mutex
  SetLastError(NO_ERROR);
  CreateMutex (nil, False, 'Mon application');
  h := FindWindow(nil, 'Mon application');
  if GetLastError = ERROR_ALREADY_EXISTS then //si une instance existe déjà, on exécute cette condition
  begin
        WM_ENVOI_ATOM := RegisterWindowMessage('WM_ENVOI_ATOM');
        if ParamCount > 0 then
        begin
                param_instance := '';
                for i:=1 to ParamCount do
                begin
                        param_instance := param_instance+' '+ParamStr(i); //je place tout les paramètres dans une variable
                end;
                atom_Envoi := GlobalAddAtom(PChar(param_instance));
                SendMessage(h, WM_ENVOI_ATOM, atom_Envoi, 0); //On envoie le tout à la première instance
        end;
        Exit; //on quitte la deuxième instance
  end;
 
  Application.Initialize;
  Application.Title := 'Mon application';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end.

On déclare une procédure dans les déclarations publiques de mon unité principale:

Code :

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

1
2
3
public
    { Déclarations publiques }
    procedure DefaultHandler(var msg); override;

On ajoute une variable dans l'unité contenant la form principale:

Code :

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

1
2
3
var
  Form1: TForm1;
  WM_ENVOI_ATOM : integer;

Dans le FormCreate, on ajoute cela:

Code :

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

WM_ENVOI_ATOM := RegisterWindowMessage('WM_ENVOI_ATOM');

On ajoute la procédure qui recevra les paramètres de la deuxième instance:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.DefaultHandler(var msg);
Var ParamRecu:PChar; atom_Recu:Atom;
begin
        inherited DefaultHandler(Msg);
        if TMessage(msg).Msg = WM_ENVOI_ATOM then
        begin
                atom_Recu := TMessage(msg).WParam;
                GetMem(ParamRecu, 256);
                GlobalGetAtomName(atom_Recu, ParamRecu, 256);
                parse_parameters(ParamRecu); //j'envoie mes paramètres vers ma procédure qui les traite
                GlobalDeleteAtom(atom_Recu);
                FreeMem(ParamRecu);
        end;
end;

Voila à quoi ça ressemble. À noter que j'ai gardé les mutex pour la détection de plusieurs instances alors que le code de référence utilise une autre méthode.

**zazaraignée** · 13/01/2006, 23h04

C'est imprimé!

merci bien. suis désolée de n'avoir pu t'aider plus si ce n'est qu'un vague soutien moral...

**piwee** · 08/03/2006, 11h03

Salut,

juste pour info, j'avais trouvé ça il y a un petit temps :
http://www.delphidabbler.com/articles?article=13

Il utilise une autre méthode que la tienne.
Ca fonctionne très bien aussi.

**rbh** · 08/03/2006, 11h52

Salut
Chez nous on utilise ce petit composant en français qui marche bien.
Il a les fonctionnalité que tu recherche :
Une seul appli, déclenchement d'un évènement à l'ouverture d'une nouvelle instance et transmission des paramètres...

Une seule instance de l'appli et exécuter une procédure [FAQ]

API, COM et SDKs Delphi

Discussions similaires

Partager

Partager