摘　要：取得当前运行的DLL，EXE文件所在的目录
　关键字：目录 GetModuleFileName
　类　别：API

以下代码可以取到当前运行的DLL，EXE文件所在的目录

var
  ModuleName : String;
begin
    SetLength(ModuleName, 200);
    GetModuleFileName(HInstance,PChar (ModuleName), Length(ModuleName));
    ModuleName := PChar(ModuleName);
end;

（出处：www）