安装程序制作(支持paradox数据库ttable tquery组.txt

自己对DELPHI学习的一点体会

安装程序制作(支持Paradox数据库TTable TQuery组件) (2000年11月20日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:585  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
希望对你有所帮助---我搞了2天才搞定！！！！

1.制作环境：
Delphi 5.0
Install Shield for Delphi 5.0
BDE ver 5.01
Window 2000 (制作好后，在Win98下安装运行都正确)

2.制作步骤：
1〉找出所有需要的文件：< 安装到路径下 >
IDR20009.DLL
BANTAM.DLL
CHARSET.CVB
FAREAST.BTL
IDAPI32.DLL
IDBAT32.DLL
IDPDX32.DLL
IDSQL32.DLL 

2>修改注册表： 

路径：HKEY_LOCAL_MACHINE\Software\Borland\Database Engine 值名： DLLPATH 值：
路径：HKEY_LOCAL_MACHINE\Software \Borland\BLW32 值名： BLAPIPATH 值： 


3>别名的建立： 

在程序中建立：程序一个例子如下： 
procedure TFrmTM.AutoCreateAlias;
const 
DBType='Type=STANDARD';
DBDefaultDriver='DEFAULT DRIVER=PARADOX';
DBBCD='ENABLED BCD=FALSE';
DBPATH='PATH=';
DataDir='Data';
AliasName='TM';
var
MyList: TStringList;
DataPath:string;
begin
if test.IsAlias(AliasName) then begin
Exit;//如果别名存在则不建立否则建立TM别名。
end;
MyList := TStringList.Create;
DataPath:=RectifyPath(GetCurrentDir)+DataDir;
try
with MyList do begin
Add(DBType);
Add(DBDefaultDriver);
Add(DBBCD);
Add(DBPath+DataPath);
end;
test.AddAlias(AliasName, Driver, MyList);
finally
MyList.Free;
end;
end; 

4>其他步骤按照不详细介绍：（参考delphi书籍） 
 
 


--------------------------------------------------------------------------------