Delphi

Вопрос

Как из 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

Leonid Troyanovsky