Delphi Überprüfen ob die BDE installiert ist

Thema durchsuchen

Ansicht

Themen-Optionen

Überprüfen ob die BDE installiert ist

Ein Thema von Daniel B · begonnen am 5. Jul 2003

Antwort

Daniel B

(Gast)

n/a Beiträge

Überprüfen ob die BDE installiert ist

5. Jul 2003, 12:23

Hallo,

zusammenfalten · markieren

Delphi-Quellcode:

			function BDEInstalled: Boolean;

begin

 Result := (DBiInit(nil) = 0);

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

 if BDEInstalled then

   ShowMessage('BDE ist installiert!')

 else

   ShowMessage('BDE ist nicht installiert!');

end;