发布BDE出错，急，在线等待！！！！

Question

注册表项如下：
Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine]
"DLLPATH"="d:\\BDE"
[HKEY_LOCAL_MACHINE\SOFTWARE\Borland\BLW32]
"BLAPIPATH"="d:\\BDE"
[HKEY_LOCAL_MACHINE\Software\Borland\BLW32]
"LOCALE_LIB0"="fareasst.btl"
[HKEY_LOCAL_MACHINE\Software\Borland\BLW32]
"LOCALE_LIB1"="usa.btl"所有文件都在d:\bde目录下，运行时出现3E06错误（Cannot load language driver），系统是win2000P，程序是用delphi5.0写的，数据库是Access与SQL，SQL是通过ODBC调用的

Answer 1

发布的时候，用 installshiel 6.21 带东方语言包的，将
bde和mdac 组件 一同打包。

Answer 2

var
  Reg:TRegistry;
  dest:string;
begin
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    dest:=ExtractFilePath(Application.ExeName);
//注册BDE  Access驱动
      if Reg.KeyExists('\Software\Borland')=False then
      begin
        if Reg.OpenKey('\Software\Borland\BLW32',True) then
        begin
          Reg.WriteString('BLAPIPATH',dest+'BDE\');
          Reg.WriteString('LOCALE_stat0',dest+'BDE\fareast.btl');
          Reg.WriteString('LOCALE_stat1',dest+'BDE\usa.btl');
          Reg.CloseKey;
        end;        if Reg.OpenKey('\Software\Borland\Database Engine',True) then
        begin
          Reg.WriteString('CONFIGFILE01',dest+'BDE\IDAPI32.CFG');
          Reg.WriteString('DLLPath',dest+'BDE\');
          Reg.WriteString('RESOURCE','0009');
          Reg.WriteString('SaveConfig','WIN32');
          Reg.WriteString('UseCount','1');
          Reg.CloseKey;
        end;
        //Access驱动
        if Reg.OpenKey('\Software\Borland\Database Engine\Settings\DRIVERS\MSACCESS\DB OPEN',True) then
        begin
          Reg.WriteString('DATABASE NAME','DRIVE:/PATH/DATABASE.MDB');
          Reg.WriteString('LANGDRIVER','');
          Reg.WriteString('OPEN MODE','READ/WRITE');
          Reg.WriteString('SYSTEM DATABASE','');
          Reg.WriteString('USER NAME','');
          Reg.CloseKey;
        end;        if Reg.OpenKey('\Software\Borland\Database Engine\Settings\DRIVERS\MSACCESS\INIT',True) then
        begin
          Reg.WriteString('DLL32','IDDA3532.DLL');
          Reg.WriteString('DRIVER FLAGS','');
          Reg.WriteString('TRACE MODE','0');
          Reg.WriteString('TYPE','SERVER');
          Reg.WriteString('VERSION','1.0');
          Reg.CloseKey;
        end;