1 2 //--------------------------------------------------------------------------- 3 4 #include <vcl.h> 5 #include <Bde.hpp> 6 #pragma hdrstop 7 8 #include "Unit1.h" 9 //--------------------------------------------------------------------------- 10 #pragma package(smart_init) 11 #pragma resource "*.dfm" 12 TForm1 *Form1; 13 //--------------------------------------------------------------------------- 14 __fastcall TForm1::TForm1(TComponent* Owner) 15 : TForm(Owner) 16 { 17 } 18 //--------------------------------------------------------------------------- 19 20 21 void __fastcall TForm1::Button1Click(TObject *Sender) 22 {//this pfunction will tell if the BDE is installed on a PC. 23 if (DbiInit(NULL) == 0) { 24 ShowMessage("BDE is Installed"); 25 } 26 else{ 27 ShowMessage("BDE is NOT Installed!"); 28 } 29 30 } 31 //---------------------------------------------------------------------------