delphi 中关于链接库自动读取的问题?

Question

我有一个程序，其中调用了链接库，如下：unit Unit01;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms；
type
  TMainForm = class(TForm)
    ......
  end;
var
  MainForm: TMainForm;
  procedure Dll001();stdcall;external 'a01.dll';
implementation
......CCC.ini 文件如下：
....
[dir_1]
dircurdir=e:\abc\aaa\
.....
如果我的DLL文件的目录，是在ABC.INI文件里定义的，上面的'a01.dll'应该如何设定，才能让程序自动找到Dll文件。
  类似(procedure Dll001();stdcall;external 'e:\abc\aaa\a01.dll';)
dircurdir=e:\abc\aaa\在不同的工作站有可能不同啊！
请高手指点！ 多谢！！！

Answer 1

路径不定的话,你就要动态调用dll了

Answer 2

把该路径加入到环境变量中的 Path 变量当中
procedure TForm1.SetPath(const ANewPath: String);
var
  sPath: String;
begin
  sPath := GetEnvironmentVariable('path');
  sPath := sPath +';'+ ANewPath;
  SetEnvironmentVariable('path',PChar(sPath));
  SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,Integer(PChar('Environment')));
end;