necesito ver ejemplos de instaladores que utilicen el Alias y el BDe
 

Buenas, llevo varios dias intentando resolver como crear un instalador que utiliza una base de datos comun para varios ordenadores.

No tengo ni idea de como crearlo exactamente. Consigo introducir el alias en el ordenador que tengo como cliente pero no hay ninguna base de datos asociada.

He leido todos los post acerca del inno setup y del istool pero no acabo de comprender como funciona el AddAlias.exe ni como seleccionar la base de datos del alias.

Os adjunto el codigo del IsTool:

Código Delphi [-]
[code]
  var
    Label1: TLabel;
    FolderTreeView1: TFolderTreeView;
    ruta:string;
function InitializeSetup(): Boolean;
var
Acc97Path: String;
begin
Result := true;
//Solo si access existe.
{if(not RegKeyExists(HKLM,'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE')) then
begin
Result := False;
MsgBox('Se requiere que Microsoft Access este instalado' #13#13 'La instalación no puede continuar', mbError, MB_OK);
end;}
{if(RegQueryStringValue(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Office\8.0','', Acc97Path)) then
begin
Result := False;
MsgBox('Se requiere una version de Microsoft Access 2000 o superior' #13#13 'La instalación no puede continuar', mbError, MB_OK);
end;}
end;
procedure LocalOnClick(Sender: TObject);
begin
ruta:='{app}\BBDD\bd1.mdb';
end;
procedure NuevaRutaOnClick(Sender: TObject);
begin
ruta:=FolderTreeView1.Directory + 'bd1.mdb';
end;

function RutaAlias(S: String): String;
begin
Result := ruta;
end;
procedure CustomForm_Activate(Page: TWizardPage);
begin
end;
function CustomForm_ShouldSkipPage(Page: TWizardPage): Boolean;
begin
    Result := False;
end;
function CustomForm_BackButtonClick(Page: TWizardPage): Boolean;
begin
    Result := True;
end;
function CustomForm_NextButtonClick(Page: TWizardPage): Boolean;
begin
    Result := True;
end;
procedure CustomForm_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean);
begin
end;
function CustomForm_CreatePage(PreviousPageId: Integer): Integer;
var
    Page: TWizardPage;
begin
    Page := CreateCustomPage(
      PreviousPageId,
      ExpandConstant('Seleccione la ruta donde se encuentre su base de datos'),
      ExpandConstant('Red local o remota')
    );
    { Label1 }
    Label1 := TLabel.Create(Page);
    with Label1 do
    begin
      Parent := Page.Surface;
      Left := ScaleX(0);
      Top := ScaleY(16);
      Width := ScaleX(317);
      Height := ScaleY(13);
      Caption := 'Escoja el ordenador donde se encuentre la base de datos:';
    end;
    { FolderTreeView1 }
    FolderTreeView1 := TFolderTreeView.Create(Page);
    with FolderTreeView1 do
    begin
      Parent := Page.Surface;
      Left := ScaleX(16);
      Top := ScaleY(48);
      Width := ScaleX(369);
      Height := ScaleY(161);
      Cursor := crArrow;
      Directory := '{app}\BBDD';
      TabOrder := 0;
      OnChange := @NuevaRutaOnClick;
    end;

    with Page do
    begin
      OnActivate := @CustomForm_Activate;
      OnShouldSkipPage := @CustomForm_ShouldSkipPage;
      OnBackButtonClick := @CustomForm_BackButtonClick;
      OnNextButtonClick := @CustomForm_NextButtonClick;
      OnCancelButtonClick := @CustomForm_CancelButtonClick;
    end;
    Result := Page.ID;
  end;
  procedure InitializeWizard();
  begin
       CustomForm_CreatePage(wpInfoAfter);
  end;

Gracias de antemano.

Eer Diabl***.....