kaida兄弟来看下(0分)

uses registry;

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
Reg.OpenKey('SOFTWARE/Borland/Database Engine', False);
if Reg.ValueExists('CONFIGFILE01') then
MessageBox(handle,'BDE 已注册','信息',0)
else
MessageBox(handle,'BDE 未注册','错误',0);
finally
Reg.CloseKey;
Reg.Free;
end;
end;
怎么让他检测到没有就关闭程序？吧cl放在哪里呢？？
然后去http://www.delphibbs.com/delphibbs/dispq.asp?lid=3221646回复下 我给分

uses registry;

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

谢谢啦~