Windows-Messages : comment intercepter "application.quit"

Bonjour,

J'ai ajouter du code à un jeu par le biais d'un proxy-dll, c'est à dire que mon code est dans un fichier nommé "d3d9.dll", placé dans le répertoire du jeu, sachant que ce dernier regarde d'abord dans son répertoire pour charger la dll DX de Microsoft avant d'aller voir dans le répertoire system de Windows.

Du coup il charge ma dll, mon code démarre (et moi je fais le relais avec la "vraie" d3d9.dll).

Voilà, ça c'est pour placer le contexte :)


Ce que j'ai besoin de faire :
Connaitre le moment où l'utilisateur quitte le jeu, parce que je dois stopper les actions de mon code personnel et surtout libérer la mémoire suite à la création dynamique d'objets (DirectX et autre).

La première idée qui me vient à l'esprit c'est de capter le message windows correspondant. Mais une question se pose : si l'application "maître" (c'est à dire celle dans laquelle j'ai injecté mon code) recoit le message-windows avant moi je ne le détecterais jamais puisqu'elle va l'effacer de la queue des messages (puisque traité).

Donc il faudrait que je sois sûr de la capter en premier et aussi de le laisser tourner pour que l'application maître le recoive.


Avez-vous des idées la dessus ? ou même d'autres pour solutionner ce problème ?

J'ai pensé aussi à faire un hook sur l'équivalent de notre fonction "application.close" dans Delphi, mais comment la trouver ? :/

Merci d'avance,
Alekhine.

le plus simple, c'est plutôt de gérer le déchargement de la DLL modifiée d3d9.dll via un DllEntryPoint DETACH

Citation:

---

Envoyé par ShaiLeTroll

le plus simple, c'est plutôt de gérer le déchargement de la DLL modifiée d3d9.dll via un DllEntryPoint DETACH

---

Salut, merci.

Le souci c'est que "je" ne la charge pas cette DLL, elle est chargée par le jeu parce que je le trompe en lui fesant "croire" que c'est la DLL Microsoft.

Alors pour trouver le moment où il la décharge... outch non ? :aie:

Alek.

1 - Chopper le Handle du jeu
2 - de temps à autre vérifier que celui-ci est toujours en activité

Cherche du côté de

Code:

---

1 2 3 4 5 6 7 8 9 10

Var lpExitCode : DWORD; begin If GetExitCodeProcess(hProcess, lpExitCode) and (lpExitCode <> STILL_ACTIVE) then begin // Traitement de fin de process end; end;

---

a+

Justement, ce que te propose Shai ne concerne pas ton application.
Et d'ailleurs, tu ne t'occupe pas du chargement, pourquoi t'occuperas-tu du déchargement :mouarf:.

Par contre, ta DLL sait quand elle est chargée... et déchargée ;). Ces notions sont standardisées et correspondent au DLLEntryPoint.

Le prototype de ces DLLs est le suivant:

Code:

---

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

library TaLib;   procedure DllEntryPoint(dwReason : dword); begin case dwReason of Dll_Process_Attach : ; //Chargement Dll_Process_Detach : ; //Déchargement end; end;   begin DLLProc := @DllEntryPoint; DLLEntryPoint(Dll_Process_Attach); end.

---

Citation:

---

Envoyé par Andnotor

Justement, ce que te propose Shai ne concerne pas ton application.
Et d'ailleurs, tu ne t'occupe pas du chargement, pourquoi t'occuperas-tu du déchargement :mouarf:.

Par contre, ta DLL sait quand elle est chargée... et déchargée ;). Ces notions sont standardisées et correspondent au DLLEntryPoint.

Le prototype de ces DLLs est le suivant:

Code:

---

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

library TaLib;   procedure DllEntryPoint(dwReason : dword); begin case dwReason of Dll_Process_Attach : ; //Chargement Dll_Process_Detach : ; //Déchargement end; end;   begin DLLProc := @DllEntryPoint; DLLEntryPoint(Dll_Process_Attach); end.

---

---

Magnifique! , merci beaucoup à Shai également :)

@Yurck : j'avais déjà tester mais je le sais trop tard...
ou alors il faut stresser le CPU pour observer ça sans arrêt :/


Merci à tous, c'est que du bonheur de poser une question sur ce forum.
Par pur respect je creuse au max avant de me résoudre à poser la question, mais parfois j'arrive à rien sans "vous", la preuve :s



Alek.

J'ai trouvé un autre exemple du même type sur le net, il y a une petite différence que je ne comprends pas mais qui solutionne un souci de crash dans les FreeMem de DLLDetach

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

library d3d9; uses sysutils, MMSystem, classes, Unit_GTRE_DX in 'Unit_GTRE_DX.pas', Unit_config_ini in 'Unit_config_ini.pas'; exports Direct3DCreate9, ... ...; {$R *.RES} Var SaveDllProc: Pointer; procedure LibExit(dwReason : integer); begin case dwReason of Dll_Process_Attach : begin // Init end; Dll_Process_Detach : begin // FreeMem end; end; DllProc := SaveDllProc; end; begin PresentNext := nil; CreateDeviceNext := nil; SaveDllProc := @DllProc; DLLProc := @LibExit; if DLLAttachFirstPass then begin DLLAttachFirstPass := False; LibExit(Dll_Process_Attach); end else LibExit(Dll_Process_Detach); end.

---

Et en plus j'ai dû ruser pour le DLLDetach puisque mon code n'est pas constitué d'une boucle classique. C'est du 100% hook donc mon code est "rythmé" par les FPS.
Impossible donc de savoir quand ça va s'arrêter, et, quand ça s'arrête, mon code n'est plus exécuté puisqu'il n'y a plus de "FPS" (arf)

Néanmoins ça fonctionne comme ça en prenant soins d'initialiser la var statique "DLLAttachFirstPass" à TRUE, ca me permet de savoir que je suis dans la phase "Attach".

dwReason peut aussi valoir DLL_THREAD_ATTACH ou DLL_THREAD_DETACH.

D'après ton premier post, ce n'est pas un hook mais un stub que tu fais puisque tu as remplacé la DLL d'origine ;). (Tu root ensuite les appels à la DLL originale)

Ce que tu aurais pu essayer aussi est d'appeler systématiquement la SaveDLLProc à la fin de LibExit:

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

Var SaveDllProc: procedure(dwReason : integer);   procedure LibExit(dwReason : integer); begin case dwReason of Dll_Process_Attach : begin // Init end;   Dll_Process_Detach : begin // FreeMem end; end;   SaveDllProc(dwReason); end;   begin SaveDllProc := @DllProc; DLLProc := @LibExit; LibExit(Dll_Process_Attach); end.

---

Citation:

---

Envoyé par Andnotor

dwReason peut aussi valoir DLL_THREAD_ATTACH ou DLL_THREAD_DETACH.

D'après ton premier post, ce n'est pas un hook mais un stub que tu fais puisque tu as remplacé la DLL d'origine ;). (Tu root ensuite les appels à la DLL originale)

Ce que tu aurais pu essayer aussi est d'appeler systématiquement la SaveDLLProc à la fin de LibExit:

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

Var SaveDllProc: procedure(dwReason : integer);   procedure LibExit(dwReason : integer); begin case dwReason of Dll_Process_Attach : begin // Init end;   Dll_Process_Detach : begin // FreeMem end; end;   SaveDllProc(dwReason); end;   begin SaveDllProc := @DllProc; DLLProc := @LibExit; LibExit(Dll_Process_Attach); end.

---

---

Salut,

Oui c'est vrai que celle-ci c'est pas véritablement du hook, moi-même j'en perd mon latin parce que j'ai testé moult méthodes y compris l'injection de code etc... :s lol Donc j'ai voulu dire que je ne maitrisais pas la "boucle" puisque c'est le jeu qui demande les affichages, moi je suis le rythme..

Je n'arrive plus à retrouver le lien, mais hier j'avais vu un exemple semblable sur le net mais le gars disait qu'en cas de code d'erreur dont la valeur est semblable à "DLL_Process_???" il y avait récursion jusqu'à plus soif... (bouton Reset du PC lol)

L'article était en anglais donc j'ai pas tout pigé, mais c'était assez effrayant pour que j'évite la méthode à mon avis ;)

Alek.