Pfad einer statisch gelinkten DLL herausfinden

[joachimd]

Du könntest versuchen die DLL (zusätzlich) dynamisch laden (LoadLibrary) und über das zurück gegebene Handle zB per GetModuleFileName dann den Dateinamen ermitteln.

[Leonard]

Zitat von joachimd:

Du könntest versuchen die DLL (zusätzlich) dynamisch laden (LoadLibrary) und über das zurück gegebene Handle zB per GetModuleFileName dann den Dateinamen ermitteln.

Ich habe es eben mal probiert, das geht sogar ohne die DLL nochmal mit LoadLibrary zu laden. Versuch mal das hier:

Delphi-Quellcode:

var
  sDLL: String;
  cHandle: Cardinal;
  cSize: Cardinal;
  aFile: array[0..MAX_PATH-1] of char;
begin
  sDLL := 'circle.dll';
  cHandle := GetModuleHandle(PAnsiChar(sDLL));
  cSize := MAX_PATH;
  GetModuleFileName(cHandle, aFile, cSize);
end;

[Bernhard Geyer]

Zitat von Leonard:

Ich habe es eben mal probiert, das geht sogar ohne die DLL nochmal mit LoadLibrary zu laden. Versuch mal das hier:

[DELPHI]
...
cHandle := GetModuleHandle(PAnsiChar(sDLL));
...

Sollte man nicht so machen (jedenfalls wenn die DLL's nicht aus dem eigenen Hause kommt. Borland hat sich durch sowas mal ins eigene Knie geschossen als in neueren Windows-Versionen bestimmte DLL's umbenannt wurden. LoadLibrary wurde von MS entsprechend angepaßt das die neue DLL (mit anderen Namen) geladen wurde. Die Implementierung von Borland hatte hier versagt da bei GetModuleHandle kein gültiges Handle zurück geliefert wurde da hier der Umleidungsmodus von MS nicht implementiert wurde.

AFAIK war das im Bereich COM+

[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;