Как определить имя файла из кода DLL

Потребовалось узнать называние файла библиотеки в момент ее использования.

Вариант с Application.Exename естественно не работает (в DLL нет объекта Application)
Для решения этой проблемы можно использовать  GetModuleFileName

1
2
3
4
5
6

var
  iFile: array[0..MAX_PATH] of char;
  sFN: string;
begin
  GetModuleFileName(hInstance, iFile, MAX_PATH);
  MessageBox(0, PChar(ExtractFileName(iFile)), '', 0);