如何 通过 代码 查看AOD的版本

怎么 通过 代码 查看AOD的版本
如题！

再请教下不同的版本，相同的异常，提示信息会不一样吗？

[解决办法]
是ADO吧，，注册表的HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess下有Version项，
uses Registry;

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var reg:Tregistry; KeyList: TStringList; i: Integer;begin  reg:=Tregistry.create;  KeyList := TStringList.Create;  reg.RootKey := HKEY_LOCAL_MACHINE;  reg.openkey('Software\Microsoft\DataAccess', False);  reg.GetValueNames(KeyList);  for i := 0 to KeyList.Count - 1 do  begin   if KeyList[i] = 'Version' then      ShowMessage(reg.ReadString(KeyList[i]));  end;  reg.CloseKey;  reg.free;  KeyList.Free;end;
[解决办法]
版本：2.81.1132.0
ShowMessage(ADOConnection1.Version);
版本：2.8

[解决办法]
太给力了呀
case5166