Как из DLL узнать узнать полный путь к этой DLL

function GetModuleFileNameStr(Instance: THandle): string;
var
  buffer: array [0..MAX_PATH] of Char;
begin
  GetModuleFileName( Instance, buffer, MAX_PATH);
  Result := buffer;
end;

GetModuleFileNameStr(Hinstance); // dll name
GetModuleFileNameStr(0); // exe name

Другое по теме:

• Надо подключить DLL и использовать некоторые ее функции
• DLL - убийственная утилита
• DLL и ресурсы