| Статистика |
|
Онлайн всего: 5 Гостей: 5 Пользователей: 0 |
|
Проверяем установлена ли BDE
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;
|
| Категория: BDE | Добавил: Skinner (05.07.2008)
|
| Просмотров: 402
| Рейтинг: 0.0/0 |
|
|
