以下代码可以取到当前运行的DLL,EXE文件所在的目录
var
ModuleName : String;
begin
SetLength(ModuleName, 200);
GetModuleFileName(HInstance,PChar (ModuleName), Length(ModuleName));
ModuleName := PChar(ModuleName);
end;
转载于:https://www.cnblogs.com/myamanda/articles/1523925.html