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

[Luckie]

So war es gemeint:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Path: String;
begin
  Setlength(Path, MAX_PATH+1);
  Setlength(Path, GetModuleFileName(HInstance, PChar(Path), MAX_PATH));
  ShowMessage(Path);
end;