Discussion :

[mickael.be]

Hello,

Je voudrais savoir comment détecter dans mon application on la lance via :
application.exe /start

Et si start est demandé, lancer une procédure.. et empecher que le logiciel ne se réouvre une deuxième fois..

On m'a dit que c'était pas possible, mais par exemple, winamp le fait..

Alors je perd pas espoir

Merci

[portu]

Il faut jouer avec le mutex pour empecher la réouverture. Ensuite tu peux envoyer un message Windows (PostMessage ou SendMessage) à ton application en fonction du paramètre.

Tu trouveras tous ca dans la FAQ Delphi

[mickael.be]

Salut,

Oui j'ai trouvé ceci:

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

C'est parfait, il ne se lance plus qu'un fois.
Mais je n'ai pas trouvé quelque chose pour récupérer les paramètres..

[Lung]

Mais je n'ai pas trouvé quelque chose pour récupérer les paramètres..

ParamCount te donne le nombre de paramètres. 0, s'il n'y en a pas.
Et ParamStr(1) pour récupérer le premier paramètre, ParamStr(2), pour le deuxième, etc ...

[basnifo]

paramstr()

[denokan]

http://phidels.com/php/index.php3?pa...as2.htm&id=228
je ne l'ai jamais utilisé mais il semble intéressant

[Laurent Dardenne]

Salut,
voici un complément de la FAQ.

Code :

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

1
2
3
4
5
6
7
8
9
 
 
const 
 ChaineUnique_WM_MonAppli='WM_MESSAGE_MonAppli';
 msgTitre_Application='MonAppli';
var 
  //Message unique permettant la restauration au premier plan
  //de l'application en cours d'exécution
 WM_MESSAGE_MonAppli : LongWord;

Demande d'un numéro de message unique via une API

Code :

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

1
2
3
4
5
6
 
Function MessageUnique(ChaineUnique:PChar):LongWord;
// Crée un numéro de message unique pour, entre autre, WM_MESSAGE_MonAppli
begin
 Result:=RegisterWindowMessage(ChaineUnique);
end;

dans le .dpr

Code :

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

1
2
3
4
5
6
7
8
9
10
  WM_MESSAGE_MonAppli:=MessageUnique(PChar(ChaineUnique_WM_MonAppli));
 
     CreateMutex (nil, False, 'maDescription');
     if GetLastError <> ERROR_ALREADY_EXISTS
      then MessageDlg(msgApplication_Existante,mtWarning, [mbOk], 0);
      //Recherche le titre de la fenêtre de l'application
     HandleInstancePrecedente := FindWindow(nil, PChar(msgTitre_Application));
     if HandleInstancePrecedente <> 0
         // cf. TMainForm.DefaultHandler
      then SendMessage(HandleInstancePrecedente, WM_MESSAGE_MonAppli, 0, 0)

dans la fiche principale

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMainForm.DefaultHandler(var msg);
//Traitement du message unique WM_MESSAGE_MonAppli
begin
  inherited DefaultHandler(Msg);
  if TMessage(msg).Msg = WM_MESSAGE_MonAppli then
    begin
      ... // récupére les paramètres via le record TMessage
    end;
  // si autre msg
end;