Know, in runtime if BDE was installed  

Send By: Christian Engstfeld
Web : www.PlanetSoftware.8k.com
Email: Christian.Engstfeld@inworx.com.ar
Date: 21/02/02

Tip accessed 573 times

 


To check the BDE exists you can in two methods:


1. Read a registry key:



 RootKey := HKEY_LOCAL_MACHINE;
 OpenKey('SOFTWARE\Borland\Database Engine', False);
 try
   s := ReadString('CONFIGFILE01');
   {BDE Instalada}
   {BDE Installed}
 finally
   CloseKey;
 end;




2. You can try to initialize the BDE .




 IsBDEExist := (dbiInit(nil) = 0)



Note: Personally I prefer the second method because the some no-good un-installators may remove the BDE file but forget to delete the key in registry...