Hola Marcos , ya lo he probado pero no me funciona .
he encontrado otra forma de crear un alias y funciona pero el problema es que una vez creado el alias necesito poder modificar el alias creado .
Para Modificar el alias he encontrado una funcion que se encarga de eso mismo utilizando Tsession.
te pongo el codigo por si te sirve :
Procedure TfrMtoEmp.CambiarAlias;
var
slParametros : TstringList;
begin
Dir := Parametros.enviarBasedatos;//Funcion que devuelve
//el Directorio
if not Session.IsAlias ('Ajp') then
Session.addStandardAlias('Prueba', Dir, 'Paradox')
else
begin
slParametros := TStringList.Create;
slParametros.Clear;
slParametros.Add('PATH=' + Dir);
Session.ModifyAlias('Ajp', slParametros);
Session.SaveConfigFile;
slParametros.Free;
end;
end;
EL PROBLEMA ES QUE AHORA ME DA PROBLEMAS EL TSTRINGLIST
NO ME DEJA AÑADIR LINEAS SABES POR QUE PUEDE SER
UN SALUDO.
|