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]
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
