Ver Mensaje Individual
  #6  
Antiguo 15-09-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.272
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Algo de código por si te ayuda:
By Darko Ivancevic.

Código Delphi [-]
procedure CreateAlias;
const
  FDbDriver = 'PARADOX';
  SubDir = 'Data';
var
  FAlias: string;
  FAliasDir: string;
begin
  FAlias := 'aLog2000';
  Session.ConfigMode := cmPersistent;
  if not Session.IsAlias(FAlias) then
  begin
    AliasDir := ExtractFilePath(ParamStr(0)) + SubDir;
    Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver);
    Session.SaveConfigFile;
  end;
end;

Tal vez éste link te pueda ser útil, aunque no estés utilizando Inno Setup.

http://www.jrsoftware.org/iskb.php?a=bde
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita