D'où venons nous ?

Version imprimable

04/09/2008, 18h08
Négrier

D'où venons nous ?

Bonjour

Contexte : Delphi 7, windows XP

Dans le code source d'un exécutable delphi il est possible
d'écrire une instruction qui, au moment de l'exécution, indique
à partir de quel fichier disque s'est chargé le programme :

Code:

showmessage(Application.exename);

Est-il possible de faire quelque chose d'équivalent dans le code d'une
DLL ? C'est à dire écrire un code (dans la DLL elle même et pas dans l'exécutable qui la charge) qui, une fois la DLL chargée permet de connaître à partir de quel fichier physique elle a été chargée.

Quelque chose du style :

Code:

showMessage(CheminFichierDLLCourante);

Cela pourrait permettre, par exemple, de faire, dans la DLL, un traitement
dépendant du chemin physique à partir duquel a été chargée la DLL.

Précision 1 : je ne veux pas devoir passer le texte du chemin à une
fonction ou procédure de la DLL depuis le programme principal (ça je
sais faire).

Précision 2 : si on sait me dire comment récupérer le handle de la DLL dans le processus courant (et cela dans la DLL) alors mon problème est résolu
car je sais retrouver le fichier à partir du handle.

Voilà, si quelqu'un s'est déjà intéressé à cette question hautement philosophique...:?

Merci.

en passant par le ProcessID...avec GetModuleFileNameEx()
alors dans ta DLL,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
USES Psapi;
 
var
    hProcess:DWORD;
    FileNamePath: array[0..512] of Char;
begin
    hProcess:=OpenProcess( PROCESS_QUERY_INFORMATION OR PROCESS_VM_READ,
                           FALSE,
                           GetCurrentProcessId);
    // Recupère le chemin du Exe qui appele la dll
    GetModuleFileNameEx(hProcess,0,FileNamePath,sizeof(FileNamePath));
    CloseHandle(hprocess);

Ceci permet effectivement de retrouver le chemin de l'éxécutable depuis
une DLL.

A partir du nom de la DLL (c'est généralement le nom du projet Delphi, qui
est bien sur connu lorsque l'on code la DLL) on peut retrouver le fichier par :
Code:

1 2 3 4 5 6 7 8 9 USES Psapi; var hProcess:DWORD; FileNamePath: array[0..512] of Char; begin hModule:=GetModuleHandle(<nom_lib_sans_extension_en_dur>) GetModuleFileName(hModule,FileNamePath,sizeof(FileNamePath)); end
Mais il peut arriver qu'à travers le système de fichiers Windows le fichier
DLL soit renommé 8O et dans ce cas l'API "GetModuleHandle" renvoie 0,
et je ne sais pas à partir de quel fichier j'ai été chargé.

Etonnant non ?

Bonjour,

tu dois utiliser la variable globale implicite HIstance qui va te donner le handle de la DLL en cours ;)

Dès lors le code devient :
Code:

1 2 3 4 5 6 7 function GetDLLFilePath: String; var ModuleFilename : array[0..MAX_PATH] of Char; begin GetModuleFileName(HInstance, ModuleFilename, SizeOf(ModuleFilename)); Result := ModuleFilename; end;

05/09/2008, 23h16
Négrier

Bonsoir,

malgré l'heure tardive j'ai vérifié et ça marche très bien !

Merci.:yaisse2: