🚀 go-pugleaf

Create new ADODB.Connection object and check its Version property.

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi + ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Vladimir Stefanovic" <antivari@ptt.yu> �������/�������� � ��������
���������: news:40112953@newsgroups.borland.com...
> I have already written some code (see below) that checks Registry
> entries. Unfortunately, not all Win systems (98 Millennium) have these
> entries in the same place, so the code is completely unreliable.
> Furthermore if the entries are in the same place, some programs when
> installed just change these entries (M$ VC++ 6), so this code is much
> more unreliable :)
>
> AnsiString GetADOVersion()
> {
>    AnsiString RESULT = "0";
>    bool exists = false;
>
>    TRegistry *Reg = new TRegistry( KEY_READ );
>    try
>    {
>       Reg->RootKey = HKEY_LOCAL_MACHINE;
>       exists = Reg->OpenKey( "Software\\Microsoft\\DataAccess\\", false );
>
>       if ( exists )
>          RESULT = Reg->ReadString ( "Version" );
>    }
>    __finally
>    {
>       delete Reg;
>       return ( RESULT );
>    }
> }
>
>
> Thanks,
> Vladimir Stefanovic.
>
>
>