var
pszAliasName: PChar; { Имя псевдонима }
pszDriverType: PChar; { Тип драйвера для псевдонима }
pszParams: PChar; { Дополнительные параметры }
bPersist: Bool; { Постоянный или временный псевдоним }
dbiRes: Integer; { Возвращаемый код }
begin
pszAliasName := strAlloc(25);
pszDriverType := strAlloc(25);
pszParams := strAlloc(100);

try
bPersist := True;
strPcopy(pszAliasName, ′Lance′);
strPcopy(pszDriverType, ′PARADOX′);
strPcopy(pszParams, ′PATH:′ + ′c:Paradox′);

dbiRes := DbiAddAlias(nil, pszAliasName, pszDriverType, pszParams,
bPersist);

finally
strDispose(pszAliasName);
strDispose(pszDriverType);
strDispose(pszParams);
end;
end; 

Получить ссылку на материал