O Luiz, obrigada, mas eu preciso q seja pelo inno setup mesmo pq eu tenho o mesmo sistema funcionando em rede na empresa e instalado no notebook dos vendedores então fica complicado configurar o alias no próprio sistema Telma
Luiz Henrique Severo d Oliveira <[EMAIL PROTECTED]> wrote: Telma, Não sei se vai te ajudar mas esta rotina cria ou atrualiza o alias dentro do programa. Acho melhor do que criar pelo Inno. procedure TDataModule.DataModuleCreate(Sender: TObject); var AParams: TStringList; Dir: string; begin If Session1.IsAlias('DB') Then Begin AParams := TStringList.Create; try // get the current parameters Session.GetAliasParams('DB',AParams); Dir := Copy(AParams.Strings[0],6,255); // Update the alias parameters AParams.Clear; AParams.Add('PATH=' + Dir); Session1.ModifyAlias('DB',AParams); Session1.SaveConfigFile; finally AParams.Free; end; End Else Session1.AddStandardAlias('DB', 'C:\AMS2005\', 'Paradox'); AbreBanco; end; Abraços Luiz Henrique Severo d Oliveira RPG Soluçoes www.rpgsolucoes.com.br > > Mensagem: 20 > Data: Thu, 24 Feb 2005 09:29:35 -0300 (ART) > De: telma woerle <[EMAIL PROTECTED]> > Assunto: Urgente - Criar Alias Paradox no arquivo de instalação > > Oi Pessoal, > > estou precisando de um script do inno setup para criar o alias no BDE para > Paradox o sistema q usa o alias foi desenvolvido em Delphi. Já tive esse > problema outra vez e com a ajuda de vcs eu consegui resolver mas tive alguns > problemas com a minha maquina e acabei perdendo o modelo. Se puderem me > ajudar novamente eu agradeceria... > > obrigada > > Telma -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília --------------------------------- Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. --------------------------------- Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html