Dateiname einer DLL zur Laufzeit ermitteln

[sakura]

Hi DPler,

wie man den Dateinamen der aktuellen EXE rausbekommt wissen die meisten ja.

• Application.ExeName
• ParamStr(0)

sind die beiden Möglichkeiten.

Wenn man jetzt aber eine DLL geschrieben hat, erhält man mit diesen Methoden den Dateinamen der aufrufenden Applikation und nicht den der DLL. Folgender Code löst dieses Problem recht einfach.

Code:

function ShowDllPath: String; stdcall;
var
  TheFileName : array[0..MAX_PATH] of char;
begin
  FillChar(TheFileName, sizeof(TheFileName), #0);
  GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
  Result := TheFileName;
end;

Basisidee: Borland Delphi FAQ: #16703