如何知道BDE中的Alias所指向的數(shù)據(jù)庫(kù)的目錄？ (2000年11月20日) 

本站更新  分類(lèi):   作者:srw  推薦:   閱讀次數(shù):489  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
下面這段程序, 可以查出某一個(gè) Alias 的目錄,不妨可以參考看看:
// Delphi 1.0 取得 Alias 的實(shí)際路徑 
// uses DB, DBTables, DBConsts, DbiTypes, DbiProcs, DbiErrs; 
function GetAliasPath(const sAliasName: string): string;
var
szName: array[0..100] of char;
Desc: DBDesc;
wResult: DBIResult;
begin
Result := '';
StrPLCopy(szName, sAliasName, High(szName));
wResult := DbiGetDatabaseDesc(szName, @Desc);
if wResult = DBIERR_NONE then
Result := StrPas(Desc.szPhyName);
end;