Автор: admin | 14.12.2007 | 2:14 |
В рубриках: BDE, Базы данных
uses
BDE;
function CheckBDEInstalled: Boolean;
begin
Result := (dbiInit(nil) = DBIERR_NONE)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBDEInstalled then
ShowMessage(’BDE is installed.’)
else
ShowMessage(’BDE is not installed.’)
end;
Эта запись была опубликована 14.12.2007в 14:14. В рубриках: BDE, Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.