Código
Procedure CreateAlias;
begin
Session.ConfigMode := cmPersistent;
if not Session.IsAlias('Alias') then
begin
Session.AddStandardAlias('Alias','C:ActiveDelphi' ,'PARADOX');
Session.SaveConfigFile;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009