Solved

knowing if BDE is installed

Posted on 2002-03-31
7
232 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
Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

 
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

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Simple Delphi Question 9 89
Delphi 2 59
Adoquery sql  left join does not work 25 89
How to convert memory stream to PDF file 6 52
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
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.
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

785 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