请问在程序里头怎么实现判断OS有否装BDE?? 若可以的话该怎么实现???
解决方案 »
- 很簡單的一個問題
- 怎么给RichEdit赋颜色?
- 谁能告诉我,那里有有关的delphi毕业论文下!
- quickreport 报错 Property ExtendedDuplex dose not exist
- 能否把控件的名称定义为数组 或变量
- 餐饮管理系统中如何进行菜单的网络分单打印?
- ****** 请告诉几个MIDAS的qq群号码? ******
- 请问如何重绘一个应用程序的窗体或内部 Object 的边缘,就像 SPY++ 的 FindWindow Tool 实现的样式??
- delphi菜鸟的问题
- 那位有infoPower3000 Professional 和Standard的Password,请贡献一个,好吗?
- 高手请进!
- 开发者聊天室,聚人气,大家都来啊!www.cngo.net/chat
use bde;
function tform1.bdeinstalled:boolean;
begin
result:=(dbiInit(nil)=0);
end;
procedure tform1.button1click(sender:tobject);
begin
if BDEInstalled then
ShowMessage('您的系统已安装了BDE')
else
ShowMessage('BDE还没装')end;