50分,如何检测BDE是否安装?(50分)

50分,我想在程序检测BDE是否安装,如没有安装就提示用户先安装它

判断注册表的键值

察看注册表的健值
HKEY_LOCAL_MACHINE/SOFTWARE/Borland/BLW32
HKEY_LOCAL_MACHINE/SOFTWARE/Borland/Database Engine
这两条下面的，你自己打开注册表看看就知道了

调用BDE的API函数DbiGetSysConfig来获得BDE配置信息

to delphilove:
如何调用BDE的API函数DbiGetSysConfig来获得BDE配置信息
请举例说明DbiGetSysConfig的用法,谢谢先.

我的函数库中的一个函数
//[1-12]检查是否有BDE
function have_bde1:boolean;
var
reg1:tRegistry;
bde_path1:string;
begin
result:=true;
reg1:=tRegistry.Create;
reg1.RootKey:=HKEY_LOCAL_MACHINE;
if not reg1.KeyExists('Software/Borland/Database Engine') then
begin
result:=false;
reg1.Free;
exit;
end;

bde_path1:='';
if reg1.OpenKeyReadOnly('Software/Borland/Database Engine') then
begin
bde_path1:=reg1.ReadString('DLLPath');
if (bde_path1='')or(not fileExists(bde_path1+'idpdx32.dll')) then
begin
result:=false;
reg1.Free;
exit;
end;
end;
reg1.Free;
end;

1.看看你的数据引擎里有没有bde这一项
2.看看你的硬盘上有没有
C:/Program Files/Common Files/Borland Shared/BDE/bdeadmin.exe
这个文件
3.看注册表里有没有bde这个主键
4.看你的Delphi是否正确安装