Discussion :

[Night_Wolf1619]

Je développe une dll c'est un plugin qui est chargé par des application EXE (ce n'est pas moi le créateur des EXE)

Je suis arrivé à un stade où j’ai besoin de savoir le nom et la version du programme hôte de la dll pour continuer. Quelqu’un a une idée svp ?
Merci d'avance je suis sur delphi 7

[ShaiLeTroll]

GetModuleFileName

Code :

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

1
2
3
4
5
6
7
8
9
10
{* -----------------------------------------------------------------------------
GetCurrentModuleFileName encapsule GetModuleFileName, fonctionne pour un EXE ou une DLL
@return Chemin complet d'une Exe ou DLL
------------------------------------------------------------------------------ }
function GetCurrentModuleFileName: string;
begin
  SetLength(Result, MAX_PATH);
  ZeroMemory(@Result[1], MAX_PATH);
  GetModuleFileName(HInstance, @Result[1], MAX_PATH);
end;

Cela fournira le nom de la DLL
Remplace HInstance par nil et cela fournira le nom de exe Hôte de la DLL

un code que j'ai dans une fonction de trace

Code c++ :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        char ExeFileName[MAX_PATH];
        if (GetModuleFileNameA(NULL, ExeFileName, MAX_PATH) > 0)
        {
          strcat(ptrszMessage, "\tProcess :\t");
          strcat(ptrszMessage, ExeFileName);
        }
 
        if (HInstance != GetModuleHandle(NULL))
        {
          char DLLFileName[MAX_PATH];
          if (GetModuleFileNameA(HInstance, DLLFileName, MAX_PATH) > 0)
          {
            strcat(ptrszMessage, "\tModule :\t");
            strcat(ptrszMessage, DLLFileName);
          }
        }

TApplication.ExeName doit pouvoir aussi fonctionner puisqu'il utilise ParamStr(0);



Comment récupérer le numéro de version de mon application ?
Comment obtenir les informations de version d'un programme ?

Au passage Comment connaître la liste des DLL utilisées par mon programme ?

[Night_Wolf1619]

Merci