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

Version imprimable

13/01/2006, 03h58
Manic

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

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

Code:

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.
13/01/2006, 14h36
zazaraignée

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?
13/01/2006, 15h22
Manic

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.
13/01/2006, 15h24
zazaraignée

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.
13/01/2006, 16h08
Manic

J'ai adapter le code du lien à mon programme mais j'ai encore certains problèmes...
13/01/2006, 16h21
zazaraignée

Explique lesquels. P't'êt' bien que les copains sauront d'où ça vient.
13/01/2006, 16h34
Manic

Finalement j'ai réussi! :P
J'avais un petit problème de variable que j'ai réglé.
13/01/2006, 16h41
zazaraignée

Salut

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

N'oublies pas de cliquer sur le bouton :resolu: en bas à gauche.

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

Code:

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:

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

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

Code:

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

Dans le FormCreate, on ajoute cela:

Code:

WM_ENVOI_ATOM := RegisterWindowMessage('WM_ENVOI_ATOM');

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

Code:

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.

13/01/2006, 23h04
zazaraignée

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...
08/03/2006, 11h03
piwee

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.
08/03/2006, 11h52
rbh

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...