Pfad+Name der aktuellen DLL aus DLL heraus ermitteln...

[SirThornberry]

ok, ich hab das jetzt mal so probiert:

Delphi-Quellcode:

var a: TMemoryBasicInformation;
    LBuffer: String;
begin
  FillChar(a, SizeOf(a), 0);
  VirtualQuery(@a, a, SizeOf(a));
  SetLength(LBuffer, MAX_PATH);
  GetModuleFileName(Cardinal(a.AllocationBase), PChar(LBuffer), Length(LBuffer));
  showmessage(LBuffer);

was ist jetzt falsch?