Hallo,
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;
Unit BDE nicht vergeesen in den Uses aufzunehmen.
Grüsse, Daniel