Проверяем установлена ли BDE

Советы » BDE » Проверяем установлена ли 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com