Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

knowing if BDE is installed

Posted on 2002-03-31
7
Medium Priority
?
238 Views
Last Modified: 2010-04-04
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
Comment
Question by:girlswants_me
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
7 Comments
 

Author Comment

by:girlswants_me
ID: 6909709
help me please
0
 
LVL 1

Expert Comment

by:Alone
ID: 6909741
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
 

Author Comment

by:girlswants_me
ID: 6909902
i dont understand what you mean
can you give me a sample code for it?
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
LVL 9

Expert Comment

by:ginsonic
ID: 6910204
RootKey := HKEY_LOCAL_MACHINE;
 OpenKey('SOFTWARE\Borland\Database Engine', False);
 try
   s := ReadString('CONFIGFILE01');
   //BDE installed
 finally
   CloseKey;
 end;
0
 
LVL 9

Accepted Solution

by:
ginsonic earned 200 total points
ID: 6910207
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
 

Author Comment

by:girlswants_me
ID: 6911487
Thank you for the Excellent Code.

0
 
LVL 9

Expert Comment

by:ginsonic
ID: 6911997
Anytime :)
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
Suggested Courses

618 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question