安装程序制作(支持Paradox数据库TTable TQuery组件)
希望对你有所帮助---我搞了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 MyListdo
begin
Add(DBType);
Add(DBDefaultDriver);
Add(DBBCD);
Add(DBPath+DataPath);
end;
test.AddAlias(AliasName, Driver, MyList);
finally
MyList.Free;
end;
end;