Instalar

[juniorboll]

Ae galera com a ajuda de vocês eu terminei o programa q eu tava fazendo e agora to querendo uma ajudinha pra instalar ele em outra maquina.

eu criei ele com table e com o alias stadart tem como eu fazer algum jeito deu instalar na outra maquina e já criar a alias automatico? como fazer?

[Progr'amador]

Olá

o Install Shield faz isso, mas tambem nunca fiz,

no delphi tem uma função que faz

declare no uses: DB

{ se o alias não existir... } 
  if not Session.IsAlias('MeuAlias') then begin 
    Session.AddStandardAlias('MeuAlias', 'C:\Diretorio', 'PARADOX'); 
    Session.SaveConfigFile; 
  end; 

Abs. Progr'amador.

[juniorboll]

mas aonde eu ponho esse codigo, a e num ta aceitando eu por o DB no uses não???

Olá

o Install Shield faz isso, mas tambem nunca fiz,

no delphi tem uma função que faz

declare no uses: DB

{ se o alias não existir... } 
  if not Session.IsAlias('MeuAlias') then begin 
    Session.AddStandardAlias('MeuAlias', 'C:\Diretorio', 'PARADOX'); 
    Session.SaveConfigFile; 
  end; 

Abs. Progr'amador.

[juniorboll]

Desculpe já consegui agora so preciso instalar em um pc pra v se vai funcionar, valeu deu certinho

funcionou perfeitamente eu puz o codigo assim

initialization

begin

if not Session.IsAlias('frigorifico') then begin

Session.AddStandardAlias('frigorifico', 'C:\frigorifico', 'PARADOX');

Session.SaveConfigFile;

{aqui entra o código de inicialização q é feito antes de tudo}

end;

end;

pode fechar o tópico ta respondido

[Progr'amador]

no uses:

esqueci, declare tambem DBTable;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, DBTables;

o código você pode colocar num evento que você quizer tipo, num button:

procedure TForm1.Button1Click(Sender: TObject);
begin
  { se o alias não existir... }
  if not Session.IsAlias('MeuAlias') then begin
     Session.AddStandardAlias('MeuAlias', 'C:\Diretorio', 'PARADOX');
     Session.SaveConfigFile;
  end;
end;

Abs. Progr'amador.