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 и PlugIns может быть полезна для разработчиков на delphi & pascal.
