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

10.10.2012 20:52:18
Аналог Application.Exename в 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);


Категории: Delphi
Яндекс.Метрика