过程代码如下:
procedure InitBde;
var
DataDirectory : string;
ARegistry : TRegistry;
begin
DataDirectory := ExtractFilePath( Application.ExeName );
DataDirectory := DataDirectory+'bde\';
ARegistry := TRegistry.Create;
with ARegistry do {创建一个TRegistry对象实例 }
begin
RootKey := HKEY_LOCAL_MACHINE;{指定根键为HKEY_LOCAL_MACHINE}
if not OpenKey( 'Software\Borland\BLW32', False ) then
begin
// showmessage('key 1'); {写入BDE语言驱动程序所在的目录,即当前程序目录 }
OpenKey( 'Software\Borland\BLW32', True );
WriteString( 'BLAPIPATH', DataDirectory );
end;
CloseKey; {关闭主键,同时将信息写入注册表}
RootKey := HKEY_LOCAL_MACHINE;
if not OpenKey('Software\Borland\Database Engine',False) then
begin
// showmessage('key 2');
OpenKey('Software\Borland\Database Engine',True);
WriteString( 'DLLPATH', DataDirectory );
end;
CloseKey; {关闭主键,同时将信息写入注册表}
Destroy; {释放内存 }
end;
end;
procedure InitBde;
var
DataDirectory : string;
ARegistry : TRegistry;
begin
DataDirectory := ExtractFilePath( Application.ExeName );
DataDirectory := DataDirectory+'bde\';
ARegistry := TRegistry.Create;
with ARegistry do {创建一个TRegistry对象实例 }
begin
RootKey := HKEY_LOCAL_MACHINE;{指定根键为HKEY_LOCAL_MACHINE}
if not OpenKey( 'Software\Borland\BLW32', False ) then
begin
// showmessage('key 1'); {写入BDE语言驱动程序所在的目录,即当前程序目录 }
OpenKey( 'Software\Borland\BLW32', True );
WriteString( 'BLAPIPATH', DataDirectory );
end;
CloseKey; {关闭主键,同时将信息写入注册表}
RootKey := HKEY_LOCAL_MACHINE;
if not OpenKey('Software\Borland\Database Engine',False) then
begin
// showmessage('key 2');
OpenKey('Software\Borland\Database Engine',True);
WriteString( 'DLLPATH', DataDirectory );
end;
CloseKey; {关闭主键,同时将信息写入注册表}
Destroy; {释放内存 }
end;
end;
解决方案 »
- 如何将一很大的数组导出到文本
- 600分求教!!使用WEBSNAP写ISAPI程序,如何使用Web App Debugger进行跟踪调试?????
- 网络上更改另一台没显示器电脑的IP地址等设置并进行数据通讯
- 郁闷~关于公司,请大家随便说说吧;
- 高分相送,急急急,在线等待,简单的问题
- 谁能解决我的超级问题,非常着急。。
- 请问如何获得SQL SERVER 2000中存储过程的执行结果?
- 谁是powerdesigh设计高手?请来这里!高分相送!
- 如何使用DELPHI编制能够发送SMS、EMS的程序?(无内容)
- delphi中用户权限的设置.
- 用SQL语句如何连接两个表(ACCESS数据库),并且还可以编辑其内容?
- 關於undeclared identifier: 'self'
我把它加在我的工程文件Application.Initalize前面,但是运行不了,总是提示'初始化Bde错误',请问遮盖怎么解决?
To:小新,你的QQ没开吗?