有没有检测您安装了DBE程序的命令阿?(8分)

有没有检测您安装了DBE程序的命令阿？？可以告诉我么？

查注册表

怎么查？

uses registry;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp; Reg: TRegistry;<br>begin<br> &nbsp; &nbsp; Reg:=TRegistry.Create;<br> &nbsp; &nbsp; Reg.RootKey:=HKEY_LOCAL_MACHINE;<br> &nbsp; &nbsp; try<br> &nbsp; &nbsp; &nbsp; &nbsp;Reg.OpenKey('SOFTWARE/Borland/Database Engine', False);<br> &nbsp; &nbsp; &nbsp; &nbsp;if Reg.ValueExists('CONFIGFILE01') then<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MessageBox(handle,'BDE 已注册','信息',0)<br> &nbsp; &nbsp; &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MessageBox(handle,'BDE 未注册','错误',0);<br> &nbsp; &nbsp; finally<br> &nbsp; &nbsp; &nbsp; &nbsp;Reg.CloseKey;<br> &nbsp; &nbsp; &nbsp; &nbsp;Reg.Free;<br> &nbsp; &nbsp; end;<br>end;

uses registry;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp; Reg: TRegistry;<br>begin<br> &nbsp; &nbsp; Reg:=TRegistry.Create;<br> &nbsp; &nbsp; Reg.RootKey:=HKEY_LOCAL_MACHINE;<br> &nbsp; &nbsp; try<br> &nbsp; &nbsp; &nbsp; &nbsp;Reg.OpenKey('SOFTWARE/Borland/Database Engine', False);<br> &nbsp; &nbsp; &nbsp; &nbsp;if Reg.ValueExists('CONFIGFILE01') then<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MessageBox(handle,'BDE 已注册','信息',0)<br> &nbsp; &nbsp; &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MessageBox(handle,'BDE 未注册','错误',0);<br> &nbsp; &nbsp; finally<br> &nbsp; &nbsp; &nbsp; &nbsp;Reg.CloseKey;<br> &nbsp; &nbsp; &nbsp; &nbsp;Reg.Free;<br> &nbsp; &nbsp; end;<br>end;

还是不明白！！！

明白了...