Dear Chris,
Thanks. It works great.
Best Regards
Leigh
----- Original Message -----
From: "Chris Wallis" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Wednesday, November 01, 2000 2:40 PM
Subject: RE: [DUG]: ADO VERSION
> Try this Leigh. I found this code at one of the many tip sites.
>
> {/////////////////////////////////////////////////////////////
> CheckForADO
> Tells if ADO is installed in this PC
> /////////////////////////////////////////////////////////////}
> function CheckForADO : Boolean;
> var
> R : TRegistry;
> begin
> Result := False;
> R := TRegistry.Create;
> try
> with R do
> begin
> RootKey := HKEY_CLASSES_ROOT;
> OpenKey('ADODB.Connection\CurVer',False);
> if ReadString('') <> '' then
> Result := True;
> CloseKey;
> end; // With
> finally
> R.Free;
> end; //try
> end;
>
> //-------------------------------------------------------
> function GetFileVer(FileName : String) : String;
> var
> VerSize : DWORD;
> Zero : THandle;
> PBlock : Pointer;
> PS : Pointer;
> Size : UINT;
> begin
> {** Get size of Version resource **}
> VerSize := GetFileVersionInfoSize(PChar(FileName),
> Zero);
> If VerSize = 0 Then
> Begin
> GetFileVer := 'Not found';
> Exit;
> End;
> {** Allocate memory **}
> GetMem(PBlock, VerSize);
> {** Get Version resource **}
> GetFileVersionInfo(PChar(FileName), 0, VerSize, PBlock);
> If VerQueryValue(PBlock,
> '\\StringFileInfo\\000004E4\\ProductVersion',PS,Size) Then
> GetFileVer := StrPas(PS)
> Else
> If VerQueryValue(PBlock,
> '\\StringFileInfo\\000004B0\\ProductVersion',PS,Size) Then
> GetFileVer := StrPas(PS)
> Else
> GetFileVer := '?.?';
> FreeMem(PBlock, VerSize);
> end;
>
> //-------------------------------------------------------
> function GetADOVer : String;
> var
> Reg : TRegistry;
> List : TStringList;
> I : Integer;
> CLSID : String;
> begin
> try
> Reg := TRegistry.Create;
> List := TStringList.Create;
> With Reg do
> begin
> RootKey := HKEY_CLASSES_ROOT;
> OpenKey('', False);
> GetKeyNames(List);
> for I := 0 To List.Count - 1 do
> if Pos('ADODB.Connection', List[I]) <> 0 Then
> begin
> OpenKey(List[I]+'\CLSID', False);
> CLSID := ReadString('');
> end;
> CloseKey;
> OpenKey('\CLSID\'+CLSID + '\InprocServer32', False);
> GetADOVer := GetFileVer(ReadString(''));
> end;
> finally
> List.Free;
> Reg.Free;
> end;
> end;
>
>
>
> regards
>
> Chris
>
>
> >-----Original Message-----
> >From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> >Behalf Of Leigh Wanstead
> >Sent: Wednesday, 1 November 2000 14:30
> >To: Multiple recipients of list delphi
> >Subject: [DUG]: ADO VERSION
> >
> >
> >Hello everyone,
> >
> >How to programicaly retrive ADO version installed on a computer?
> >
> >Thanks in advance.
> >
> >Best Regards
> >Leigh
> >
> >
> >---------------------------------------------------------------
> >------------
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> >To UnSub, send email to: [EMAIL PROTECTED]
> >with body of "unsubscribe delphi"
> >
> >
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
