如何对使用DataBase的数据库，使用Access驱动，读取Access97数据库的程序打包？

Question

你可以在BDE Administrator配置程序中的Configuration配置页中，
把Drivers->Native->MSACCESS中的DLL32改成IDDA3532.DLL，试试看！

Answer 1

procedure CheckBDEConfig;
const
  SubKey='\SOFTWARE\Borland\Database Engine\Settings\DRIVERS\MSACCESS\INIT';
  DLL32='IDDA3532.DLL';
var
  Reg:TRegistry;
  Value:string;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey :=HKEY_LOCAL_MACHINE;
  if Reg.OpenKey(SubKey,false) then
  begin
    Value:=Reg.ReadString('DLL32');
    if UpperCase(Trim(Value))<>DLL32 then
      Reg.WriteString('DLL32',DLL32);
  end;
end;//
procedure tform1.oncreate
begin
checkbdeconfig;
end;