comment recuperer le nom du repertoire sans utiliser application

Bonjour,
J'ai besoin d'un truc en delphi qui me rend le nom du repertoire courant où il y a ma dll. en fait je sais qu'il y a le extractfilepath(application.name) en delphi, mais je ne peux pas l'utiliser ici car dans une dll on n'a pas l'objet application.

N.B: je n'ai pour le moment que le code, donc la dll n'est pas encore générée.

Merci d'avance les amis.

Si tu as un EXE, qui est dans le repertoire c:\temp\, qui est 'démarré dans' c:\test\ et qui utilise ta DLL qui est dans c:\windows, tu veux quel répertoire ?

En fait je cherche a recuperer le repertoire où existe ma dll. donc je cherche l'equivalent de exename pour une dll.
Je crois que j ai trouvé la réponse dans la premiere duscussion de ce forum, on doit utiliser paramstr(0).
Merci quand meme.

essai d'utiliser filesearch

Code:

---

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

procedureTForm1.Button1Click(Sender:TObject);   var FileToFind:string; begin FileToFind :=FileSearch(Edit1.Text,GetCurrentDir); ifFileToFind =''then ShowMessage('Impossible de trouver '+Edit1.Text +'.') else ShowMessage('Trouvé'+FileToFind +'.');   end;

---

enfin si j'ai bien compris:mrgreen:

paramstr(0) va te retourner le chemin complet du .exe qui appèle ta dll.

si tu veux obtenir le chemin de la dll tu dois procéder autrement:

Code:

---

1 2 3 4 5 6 7 8 9

procedure EntryPointProc(Reason: Integer); var FileNameDLL: array[0..MAX_PATH] of Char; begin FillMemory( @FileNameDLL[0],MAX_PATH,0); GetModuleFileName( HInstance, FileNameDLL, MAX_PATH); // ici FileNameDLL = 'c:\winnt\system32\mydll.dll' end;

---

Salut :)
Si tu veux avoir accès à l'application dans ta DLL, rien de plus simple:

Code:

---

1 2 3 4 5 6

procedure Machin(AppHandle: THandle; ...);stdcall; begin Application.Handle := AppHandle; //Maintenant, tu peux avoir accès à Application.ExeName end;

---

Exemple d'appel:

Code:

---

1 2	Machin(Application.handle, ...);

---

A noter que cette méthode supprime le second bouton qui correspond à la DLL dans la barre des tâches ;)

Citation:

---

Envoyé par Pedro

Salut :)
Si tu veux avoir accès à l'application dans ta DLL, rien de plus simple:

Code:

---

1 2 3 4 5 6

procedure Machin(AppHandle: THandle; ...);stdcall; begin Application.Handle := AppHandle; //Maintenant, tu peux avoir accès à Application.ExeName end;

---

Exemple d'appel:

Code:

---

1 2	Machin(Application.handle, ...);

---

A noter que cette méthode supprime le second bouton qui correspond à la DLL dans la barre des tâches ;)

---

la procedure machin doit etre déclarée dans la DLL ou dans l'EXE?? si j'ai bien compris je dois la déclarer dans le exe et l'utiliser dans la dll.

Salut :)
La procédure Machin est évidemment dans la DLL ;) Et l'appel est soit dans la DLL soit dans l'exe, ça ne pose pas de problème :)