Solved

knowing if BDE is installed

Posted on 2002-03-31
7
230 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
  • 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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 50 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Syntax Check Delphi Seattle IOS app without MAC ? 1 92
delphi exception 7 63
Delphi Form ownership 4 73
how to change, disabled button color FMX ? 1 16
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…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

895 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now