Pfad+Name der aktuellen DLL aus DLL heraus ermitteln...

[FriFra]

Ich hab ein kleines Problem...
Meine DLL wird von einem fremden Programm dynamisch gebunden und eine Funtion daraus aufgerufen. Nun habe ich das Problem, dass ich gern die Versionsnummer meiner DLL auslesen würde, aber ich weiß eben nicht, wo sich die DLL genau befindet , wie bekomme ich nun den genauen Pfad + Dateinamen (ja die dll könnte auch umbenannt worden sein) heraus?

[Luckie]

GetModuleFilename mit HInstance als ersten Parameter.

[SirThornberry]

oder gleich GetModuleName welches auf die gepostete funktion aufbaut.

[Olli]

Aua aua aua ... da haben wohl zwei nicht gelesen.
Ich poste die Lösung gleich. Hatte ich schonmal hier in der Sparte gepostet. Moment!

[SirThornberry]

warum nicht gelesen? den genauen Pfad der DLL (inklusive Dateinamen) bekommt man so. Und wie er die Versionsnummer ausliest weiß er doch.

[Olli]

Was wenn er kein hInstance hat? Hast du die Lösung dann?

Voila, das hatte ich doch schonmal unter anderem Namen (Mephistopheles) beantwortet:
Dateinamen einer DLL ermitteln

Zitat von Ich:

Ganz einfach: Man ermittelt die MEMORY_BASIC_INFORMATION einer Variablen in der DLL mit VirtualQuery() und hat mit MEMORY_BASIC_INFORMATION.AllocationBase das Instanzenhandle.

[SirThornberry]

in der DLL ist doch HInstance immer global vorhanden
er will ja innerhalb der DLL von eben dieser den Dateinamen und somit ist auch die HInstance bekannt.

[NicoDE]

Zitat von Olli:

Was wenn er kein hInstance hat? Hast du die Lösung dann?

Ich gehe davon aus, dass er (wie 99,999999%) die Standard-Delphi-RTL benutzt

[Olli]

Zitat von SirThornberry:

in der DLL ist doch HInstance immer global vorhanden

Wenn, und nur wenn, du die Standardunits verwendest. Eine Standardlösung ist und kann dies jedoch nicht sein.

[FriFra]

Danke, jetzt hab ich's

Delphi-Quellcode:

var
...
  DllName: array[0..MAX_PATH-1] of char;
begin
GetModuleFileName(hInstance, DllName, sizeof(DllName)-1);
...