I am about to make an application, that should change an existing alias in
the BDE, so that other application can use this alias.
I can only find information about how to make local aliases.
If you have any info on how to do this please mail me.
Regards
Per Nunn
--
I am: p...@ammulti.dk
See AddAlias() as listed below.
It creates the path if not created, and adds the alias if not already
there. (No errors if already there.)
uses
Sysutils, DbiTypes, DbiProcs, DbiErrs;
procedure AddAlias(const AliasName: String; const AliasPath: String);
var
AliasNameStr: Array[0..40] of Char;
AliasPathStr: Array[0..144] of Char;
IORtn: Integer;
Rtn: DBIResult;
begin
{$I-}
MkDir(AliasPath);
IORtn := IOResult;
{$I+}
StrPCopy(AliasNameStr, AliasName);
StrPCopy(AliasPathStr, 'PATH:' + AliasPath);
Rtn := DBIAddAlias(Nil, AliasNameStr, Nil, AliasPathStr, True);
if Rtn <> DBIERR_NAMENOTUNIQUE then
Check(Rtn);
end;
------------------------------------------------
Kirk B. Spadt ksp...@keyware.com
Keyware Systems, Inc.
570 Lindsey Drive (610) 964-9530
Radnor, PA 19087 (610) 964-0543 fax