Pfad einer statisch gelinkten DLL herausfinden

[Leonard]

Schade, hätte ja klappen können.

Danke für den Hinweis!

[Bernhard Geyer]

Zitat von Leonard:

Schade, hätte ja klappen können.

Ein LoadLibrary stört ja auch nicht. Die DLL wird ja kein zweites mal geladen sondern nur der "Referenzzähler" hochgezählt so das bei einem FreeLibrary erst die DLL beim zurücksetzen des Zählers auf 0 entladen wird.

[blackfin]

Danke für die Antworten!

Ich hab's jetzt rausgefunden, wie es geht, nämlich mit einem Module Snapshot aus der Tlhelp32:

Delphi-Quellcode:

uses
...,Tlhelp32
...

var
 FModuleSnapShot: THandle;
 FModule: TModuleEntry32;
 FNextModuleAvailable: boolean;
begin

  // Snapshot erzeugen
  FModuleSnapShot:= CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,GetCurrentProcessID);
  FModule.dwSize := SizeOf(FModule);

  // Erstes geladenes Modul holen
  FNextModuleAvailable := Module32First(FModuleSnapShot,FModule);

  while FNextModuleAvailable  do
  begin
    // ---------- der Pfad des geladenen Moduls steht nun in FModule.szExePath ---------------
    
    // Nächstes geladenes Modul holen, wenn verfügbar
    FNextModuleAvailable := Module32Next(FModuleSnapShot,FModule);
  end;
  
  // Snapshot freigeben
  CloseHandle(FModuleSnapShot);
end;