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