判断是否安装BDE

function BDEInstalled:Boolean

var

    reg:TRegistry;

    s:string;

begin

    Result :=False;

    reg :=TRegistry.Create;

    reg.Rootkey :=HKEY_LOCAL_MACHINE;

    reg.Openkey('Software\Borland\Database Engine',False);

 

    s:='';

    try

        s:=reg.ReadString('CONFIGFILE01');

        if s<>'' then

            Result :=True;    

    finally

        reg.Closekey;

    end;

end;