MS ADO. Как определить установлено ли ?

← →
UnDISCOvery (2002-07-08 14:15) [0]

Как мне узнать установлено ли АДО и какой версии на компьютере юзера ? С какими версиями работают компоненты АДО в пятой Дельфе ?

← →
SEM (2002-07-08 18:19) [1]

Можно попытаться получить интерфейс какого-нибудь объекта ADO.
Например:
function Check_ADO: Boolean;
const
CLSID_DATALINKS: TGUID = "{2206CDB2-19C1-11D1-89E0-00C04FD7A829}"; {DataLinks}
var
hr: HRESULT;
pUnk: IUnknown;
OleInit: Boolean;
begin

OleInit:= OleInitialize(nil) = S_OK;

hr:= CoCreateInstance(
CLSID_DATALINKS,
nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
IUnknown,
pUnk);

pUnk:= nil;

if OleInit then OleUnInitialize;

Result:= hr = S_OK;

end;

Данная функция не сможет определить ADO версии < 2.5, т.к.
там нет объекта DataLinks (Вроде нет).

← →
UnDISCOvery (2002-07-09 15:59) [2]

Я тут в реестре порыскал .... нашел кучу ссылок на АДО, но именно на то которое установлено, что-то типа версии нифига нет !
но что означает: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000100-0000-0010-8000-00AA006D2EA4} ... я не знаю :-/
может быть просто проверять наличие файла dao360.dll ?

← →
sniknik (2002-07-09 16:54) [3]

Не там искал наверное

procedure TForm1.Button7Click(Sender: TObject);
function ADO_and_Jet40:String;
var con:TADOConnection;
begin
try
con:=TADOConnection.Create(nil);
con.LoginPrompt:=False;
con.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=.\";
con.Open;
Result:=con.Version;
con.Free;
except
on E:Exception do Result:=E.Message;
end;
end;

begin
ShowMessage("ADO версия : "+ADO_and_Jet40);
end;

MS ADO. Как определить установлено ли ? Найти похожие ветки