安装程序制作:(支持Paradox数据库TTable TQuery组件)
希望对你有所帮助---我搞了2天才搞定!!!!
1.制作环境:
Delphi 5.0
Install Shield for Delphi 5.0
BDE ver 5.01
Window 2000 (制作好后,在Win98下安装运行都正确)
2.制作步骤:
1〉找出所有需要的文件:< 安装到<INSTALLDIR>路径下 >
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 值:<INSTALLDIR>
路径:HKEY_LOCAL_MACHINE/Software /Borland/BLW32 值名: BLAPIPATH 值:<INSTALLDIR>
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书籍)