Author: tom
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;
No comments:
Post a Comment