[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 240
  • Last Modified:

knowing if BDE is installed

How will i know if the BDE is Installed in the system
coz if i run my program using other computer
it will say "Error initializing BDE..."
0
girlswants_me
Asked:
girlswants_me
  • 3
  • 3
1 Solution
 
girlswants_meAuthor Commented:
help me please
0
 
AloneCommented:
Check HKLM\Software\Borland\Database Engine\DLLPath key. When it does not exists BDE is not installed.
If you want to check for specific BDE drivers installation, use path from that key and check existing of correspoding files. See bdedeploy.txt for details.

Regards...
0
 
girlswants_meAuthor Commented:
i dont understand what you mean
can you give me a sample code for it?
0
[Webinar] Improve your customer journey

A positive customer journey is important in attracting and retaining business. To improve this experience, you can use Google Maps APIs to increase checkout conversions, boost user engagement, and optimize order fulfillment. Learn how in this webinar presented by Dito.

 
ginsonicCommented:
RootKey := HKEY_LOCAL_MACHINE;
 OpenKey('SOFTWARE\Borland\Database Engine', False);
 try
   s := ReadString('CONFIGFILE01');
   //BDE installed
 finally
   CloseKey;
 end;
0
 
ginsonicCommented:
Or better:

Add to uses BDE;
 
function BDEInstalled : boolean;
begin
 result := (dbiInit(nil) = 0)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if  BDEInstalled then
   ShowMessage('BDE is installed.')
 else
   ShowMessage('BDE is not installed.')
end;
0
 
girlswants_meAuthor Commented:
Thank you for the Excellent Code.

0
 
ginsonicCommented:
Anytime :)
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now