Comment récupérer le handle d'une fenêtre seulement depuis un Mutex ?

Salut à tous :D

J'ai créé un Mutex pour limiter le lancement de mon application à une seule fois.
Seulement, j'aimerais maintenant passer l'application au premier plan si elle est déjà lancée et également, pouvoir envoyer des messages à cette application.

Je me suis servi de cette entrée de la FAQ: http://delphi.developpez.com/faq/?pa...tion#1instance pour le mutex.

Seulement, si je passe le handle du mutex créé dans SetForegroundWindow, évidemment, ça ne fonctionne pas...
Je sais bien qu'il existe FindWindow mais, problème, le Caption de la fiche en question est variable :?

La question est donc:
Comment récupérer le handle de la fenêtre ou de l'application déjà lancée depuis le mutex récupéré?

merci d'avance :D

Pourquoi ne pas utiliser la base de registres pour stocker le handle de la fenêtre à afficher ? La première instance de l'appli écrit son handle de fenêtre, et la seconde instance, détectant le mutex créé, lit le handle et appelle SetForegroundWindow.

Salut Reisubar :D

Merci pour ta réponse :)

En fait, que ce soit la BDR ou bien un fichier, je trouve que ça fait "sale". J'aimerais éviter autant que possible l'ajout de machins temporaires de cet acabit :P C'est déjà assez le foutoir sur les ordis et dans la BDR comme ça :mouarf:
En revanche, si ce n'est pas possible comme je recherche, tu viens de me donner une solution de rechange ;)

Salut Pedro :D

J'ai fait ceci récemment.
Parallèlement au Mutex je définis un Message via RegisterWindowMessage. Dans le DPR, lors de l'échec à la création du mutex je diffuse le message en broadcast qui sera traité par la 1° instance.

le DPR:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var hMutex: Cardinal; begin MyMsg := RegisterWindowMessage('RestoreMyAppMessage'); SetLastError(NO_ERROR); hMutex := CreateMutex(nil, False, 'MyAppMutex'); if GetLastError = ERROR_ALREADY_EXISTS then PostMessage(HWND_BROADCAST, MyMsg, 0, 0) else begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; if hMutex <> 0 then ReleaseMutex(hMutex); end; end.

---

et dans la form principale:

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

type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Déclarations privées } procedure AppMessage(var Msg: TMsg; var Handled: Boolean); public { Déclarations publiques } end;   var Form1: TForm1; MyMsg: Cardinal;   implementation   {$R *.dfm}   { TForm1 }   procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; end;   procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); begin if Msg.message = MyMsg then begin Application.Restore; SetForegroundWindow(Application.MainForm.Handle); Handled := True; end; end;

---

A noter bizarrement que parfois l'appli est bien mise au 1° plan, et parfois le bouton de la barre des tâches clignote en orange, sans vraiment comprendre pourquoi. 8O

@+ Claudius

Citation:

---

A noter bizarrement que parfois l'appli est bien mise au 1° plan, et parfois le bouton de la barre des tâches clignote en orange, sans vraiment comprendre pourquoi.

---

L'utilisation de SetForegroundWindow est très stricte, il y a des tonnes de conditions qui font que Windows peut refuser de faire passer ta fenêtre au premier plan (cf MSDN). En l'occurence, si ton application est inactive (pas le focus), elle ne peut pas forcer à se réafficher, ce qui explique le clignotement que tu expliques. Pour que ca marche à coup sûr, il faut que ce soit l'application active qui initie l'affichage, c'est à dire qu'il faut que tu connaisses le handle de l'autre instance... voilà pourquoi je passais par le registre :)

Citation:

---

Envoyé par Reisubar

Pour que ca marche à coup sûr, il faut que ce soit l'application active qui initie l'affichage, c'est à dire qu'il faut que tu connaisses le handle de l'autre instance...

---

Le SetForegroundWindow sera bien appelé par la 1° instance (donc avec son handle connu), la 2° se limitant à faire un broadcast. D'où mes questions "existentielles" sur ces 2 types de comportements.

A noter que je n'ai pas cherché plus avant, le résultat me suffisant globalement.

@+

Citation:

---

Le SetForegroundWindow sera bien appelé par la 1° instance (donc avec son handle connu), la 2° se limitant à faire un broadcast. D'où mes questions "existentielles" sur ces 2 types de comportements.

---

Justement. Si j'ai bien compris, la seconde fois, ce n'est pas l'application active qui demande à afficher une fenêtre, mais c'est la première instance "prévenue" par message qui demande à "s'auto-afficher", ce que Microsoft vise à empêcher via le flash dans la bare des tâches.

Ah OK je vois ce que tu veux dire. Je vais aller faire tour par curiosité du côté de la MSDN.

@+

Pourquoi ne pas faire un FindWindow sur la classe au lieu du texte ?

Code:

---

FindWindow('TBiduleMainForm', nil)

---

Mais sinon depuis XP, il est effectivement plus difficile d'afficher des fenêtre, d'où le flash, mais il reste la possibilité, d'envoyer un message à la fenêtre trouvé, et qu'elle même fasse son BringToFront ...

Citation:

---

Envoyé par ShaiLeTroll

Pourquoi ne pas faire un FindWindow sur la classe au lieu du texte ?

---

Ah oui tiens, je vais essayer :)

Citation:

---

Envoyé par ShaiLeTroll

mais il reste la possibilité, d'envoyer un message à la fenêtre trouvé, et qu'elle même fasse son BringToFront ...

---

Si je ne me trompe pas, c'est ce que propose Cl@udius ;)

Merci pour toutes ces infos, je teste et je vous tiens au jus! :D

Bon je viens d'essayer et malheureusement, FindWindow me renvoie invariablement 0 :?

Code:

---

1 2	InstHandle := FindWindow('TTopoPRMainForm', nil);

---

J'ai même renommé ma fiche principale pour être sûr de mon coup mais nada...
Je crois que je vais faire un fichier temporaire qui contient le handle. Ca sera plus simple... Mais c'est dommage :(

Sinon passe par un EnumWindows, tu trouveras ta fenêtre normalement, ...

Effectivement, la méthode du Message, c'est l'idée de claudius, mais lui passait par un HWND_BROADCAST, qui donc envoie un message à toutes les applications ... c'est pour cela qu'il utilise RegisterWindowMessage pour avoir un message non utilisé par les autres applications
Je proposais de tenter le FindWindow sur la classe pour ne faire qu'un SendMessage que vers l'appli concernée ...

faut juste remplacer dans le code de Cl@audius qui doit fonctionner normalement, et qui me semble moins barbare que la BDR ou un fichier ...

Code:

---

Application.Restore;

---

par

Code:

---

1 2	Application.Restore; Application.BringToFront;

---

Alors, j'y pense, mais j'ai fait cela pour une application qui se mets en NotifyIcon, et donc quand je lançais le programme une deuxième fois, je lui fait faire un affichage de fenêtre, tient comme ça

Donc ma fenêtre caché, avec toujours la même classe et la même caption (tu peux très bien bidouillé une fenêtre invisible que tu chercheras à la place de la MainForm)

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 49 50

class procedure TNotifyTaskBarXXXForm.Popup();   function FindAllWindow(const ClassName, WindowName: string; Index: Integer = 0): THandle; var HandleFound, Parent: THandle; lpRes : array[0..256] of Char; StrClass: string; StrCaption: string; iChild: Integer; lpClassName, lpWindowName: PChar; begin Result := 0; iChild := -1;   if Trim(ClassName) <> '' then lpClassName := PChar(ClassName) else lpClassName := nil; if Trim(WindowName) <> '' then lpWindowName := PChar(WindowName) else lpWindowName := nil; Parent := GetActiveWindow(); // Peu Importe c'est quoi, on rebalaye tout !   HandleFound := GetWindow(Parent, GW_HWNDFIRST); while HandleFound > 0 do begin GetClassName(HandleFound, lpRes, SizeOf(lpRes)); StrClass := lpRes; GetWindowText(HandleFound, lpRes, SizeOf(lpRes)); StrCaption := lpRes;   if ((ClassName = '') or SameText(ClassName, StrClass)) and ((WindowName = '') or SameText(WindowName, StrCaption)) then begin Inc(iChild); if iChild >= Index then begin Result := HandleFound; Exit; end; end;   HandleFound := GetWindow(HandleFound, GW_HWNDNEXT); end; end;   var Index: Integer; Handle: THandle; begin Index := 0; repeat Handle := FindAllWindow(ClassName, '', Index); Inc(Index); SendMessage(Handle, WM_MYTOPEVENT, 0, 0); until Handle <= 0; end;

---

Citation:

---

Envoyé par ShaiLeTroll

Sinon passe par un EnumWindows, tu trouveras ta fenêtre normalement, ...

---

Bah, j'ai fait un fichier temporaire qui contient le handle et ça marche :) (heureusement :aie:)
Je me compliquerai la vie une autre fois :mouarf:

Citation:

---

Envoyé par ShaiLeTroll

Effectivement, la méthode du Message, c'est l'idée de claudius, mais lui passait par un HWND_BROADCAST, qui donc envoie un message à toutes les applications ...

---

Oui tu as raison. mea culpa :)

Merci pour votre aide :D

Forcément, si tu édites après que j'ai répondu :mrgreen:

J'ai remplacé comme tu as dit par

Code:

---

1 2 3

Application.Restore; Application.BringToFront;

---

Appelé par un autre message lancé par PostMessage à l'appli à remettre devant.
Et ça marche impeccable :D

Sinon, je vais garder ma méthode "barbare" (fin de citation :aie:)
La tienne est assez brutale aussi: parcourir toutes les fiches jusqu'à la bonne ;)

Citation:

---

Envoyé par Pedro

Forcément, si tu édites après que j'ai répondu :mrgreen:

---

Ben, ça m'arrive souvent, je planche sur une idée, et je peux mettre près de 1 heure à concoter une réponse, et parfois je m'édite sans voir que le temps à passer et qu'une réponse est venue, ...

Sinon, tant que ça fonctionne, et puis si tu met le fichier à la racine de l'exe ou dans un dossier temporaire (via GetTemporaryPath), et que tu nettoie derrière toi, ben, ça pose pas de problème ...