Installationspfad einer DLL herausfinden?

[marabu]

Hallo Matthias,

ich mache es so:

Delphi-Quellcode:

function GetModuleFileName(h: HMODULE): String;
var
  modName: array [0 .. MAX_PATH] of Char;
begin
  SetString(Result, modName, Windows.GetModuleFileName (h, modName, SizeOf (modName)));
end;

function GetModuleName: String;
begin
  if IsLibrary
    then Result := GetModuleFileName(HInstance)
    else Result := ParamStr (0);
end;

Grüße vom marabu