Dateinamen einer DLL ermitteln

[Sanchez]

Hallo zusammen,

Gibts es eine Möglichkeit den Dateinamen der laufenden DLL aus der DLL heraus zu ermitteln?
Ich hab dazu leider nirgendwo Hinweise gefunden.

grüße, daniel

[KrasserChecker]

Hier enthalten:

Delphi-Quellcode:

  function GetModuleHandleFromInstance: THandle;
  var s: array[0..MAX_PATH-1] of char;
  begin
    { Find the DLL filename from the instance value. }
    GetModuleFileName(hInstance, s, sizeof(s)-1);
    { Find the handle from the filename. }
    Result := GetModuleHandle(s);
  end;

"GetModuleFileName" sollte genau das sein, was Du benötigst

[Sanchez]

Danke dir, das war genau das was ich suchte.

[Mephistopheles]

Und wie kommt man an das Instanzenhandle, wenn man es nicht hat?

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

[Luckie]

Zitat von Mephistopheles:

Und wie kommt man an das Instanzenhandle, wenn man es nicht hat?

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

Warum so kompliziert? LoadLibrary aufrufen. Ist sie bereits geladen bekommt man das Handle der schon geladenen DLL zurück. Ist sie noch nicht geladen, bekommt man eben ein frisches Handle zurück.

[Mephistopheles]

Zitat von Luckie:

Warum so kompliziert? LoadLibrary aufrufen. Ist sie bereits geladen bekommt man das Handle der schon geladenen DLL zurück. Ist sie noch nicht geladen, bekommt man eben ein frisches Handle zurück.

Der Philosoph, der tritt herein,
Und beweist euch, es müßt' so seyn:
Das Erst' wär' so, das Zweite so,
Und drum das Dritt' und Vierte so;
Und wenn das Erst' und Zweit' nicht wär',
Das Dritt' und Viert' wär' nimmermehr.

Viel Glück dabei einen Trick zu finden, wie die aktuell geladene DLL heißt, wenn sie weder einen festen Namen noch einen festen Pfad hat. Dann verpufft nämlich dein lustiger LoadLibrary()-Aufruf, denn du weißt ja garnicht welche DLL geladen wurde (oder willst du alle im System vorhandenen so prüfen???). Angenommen du hättest den Namen: Gibst du einen Pfad zur DLL mit an, oder vertraust du auf die Windowsmethode zum Finden der DLL? In letzterem Fall könntest du *padauz* wegen SetDllDirectory() ziemlich auf die Nase fallen.
Und GetModuleHandle() funktioniert für DLLs sowieso nicht.

Erst mit GetModuleHandleEx() und GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS wurde obige von mir beschriebene Methode eingeführt - was aber erst ab Windows XP funktioniert.

Deine sogenannte Einfachheit ist also weder praktikabel (da die DLL nicht weiß wo sie liegt oder wie sie heißt) noch sinnvoll (wenn die DLL vorher nicht geladen war, mit der wir testen).

[Sanchez]

Das Handle steht doch in hInstance. Ich rufe die Funktion innerhalb der gesuchten dll auf, von daher ists einfach.

[Mephistopheles]

Zitat von Sanchez:

Das Handle steht doch in hInstance. Ich rufe die Funktion innerhalb der gesuchten dll auf, von daher ists einfach.

Ich weiß - aber nur wenn man die Standard-Delphiunits verwendet. Und in anderen Sprachen kommt man nicht so einfach an das Modulhandle, daher gehört dieser Trick in jede Trickkiste, wenn die Nutzung von GetModuleHandleEx() noch nicht möglich ist (< XP).