Pfad meiner DLL innerhalb meiner DLL ermitteln

[ringli]

Folgenden Code hab ich mal irgendwo gefunden:

Delphi-Quellcode:

function GetModulePath : String;
var 
  QueryRes: TMemoryBasicInformation;
  LBuffer: String;
begin
  VirtualQuery(@GetModulePath, QueryRes, SizeOf(QueryRes));
  SetLength(LBuffer, MAX_PATH);
  SetLength(LBuffer, GetModuleFileName(Cardinal(QueryRes.AllocationBase),
  PChar(LBuffer), Length(LBuffer)));
  Result := LBuffer;
end;