安裝程序制作(支持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書籍） 
 
 


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