[GliceMan]

Hola Neftalí, he probado el Ino Setup y me ha gustado mas que el InstallShield, es sencillo de usar, y da una presentación del instalador muy elegante, pero se me plantean 2 dudas:

Estoy intentando hacer un formulario con el ino setup form designer para que me pida un número de Serie, lo he creado de la siguiente manera:

[code]

function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;
var
Next: Boolean;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
{ PASTE THE DECLARATIONS HERE }
begin
if (not BackClicked and (CurPage = wpWelcome)) or
	 (BackClicked and (CurPage = wpPassword)) then
begin
	DlgPagesClearCustom();
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Parent := WizardForm;
Left := 32;
Top := 112;
Width := 67;
Height := 13;
Caption := 'Nº DE SERIE:';
Font.Color := -16777208;
Font.Height := -11;
Font.Name := 'Times New Roman';
Font.Style := [fsBold];
end;
{ Label2 }
Label2 := TLabel.Create(WizardForm);
with Label2 do
begin
Parent := WizardForm;
Left := 128;
Top := 112;
Width := 19;
Height := 13;
Caption := ' - ';
end;
{ Label3 }
Label3 := TLabel.Create(WizardForm);
with Label3 do
begin
Parent := WizardForm;
Left := 192;
Top := 112;
Width := 16;
Height := 13;
Caption := ' - ';
end;
{ Label4 }
Label4 := TLabel.Create(WizardForm);
with Label4 do
begin
Parent := WizardForm;
Left := 256;
Top := 112;
Width := 16;
Height := 13;
Caption := ' - ';
end;
{ Edit1 }
Edit1 := TEdit.Create(WizardForm);
with Edit1 do
begin
Parent := WizardForm;
Left := 104;
Top := 112;
Width := 25;
Height := 21;
MaxLength := 3;
TabOrder := 0;
end;
{ Edit2 }
Edit2 := TEdit.Create(WizardForm);
with Edit2 do
begin
Parent := WizardForm;
Left := 144;
Top := 112;
Width := 49;
Height := 21;
MaxLength := 5;
TabOrder := 1;
end;
{ Edit3 }
Edit3 := TEdit.Create(WizardForm);
with Edit3 do
begin
Parent := WizardForm;
Left := 208;
Top := 112;
Width := 49;
Height := 21;
MaxLength := 4;
TabOrder := 2;
end;
{ Edit4 }
Edit4 := TEdit.Create(WizardForm);
with Edit4 do
begin
Parent := WizardForm;
Left := 272;
Top := 112;
Width := 25;
Height := 21;
MaxLength := 2;
TabOrder := 3;
end;
 
	{ PASTE THE IMPLEMENTATION HERE }
if((edit1.text='***')and(edit2.text='*****')and(edit3.text='****')and(edit4.text='**'))then
Begin
	Next := DlgPageProcessCustom();
end
else
Begin
ShowMessage('El Nº DE SERIE introducido no es valido');
end;
	if not BackClicked then
	 Result := Next
	else
	 Result := not Next;
	ScriptDlgPageClose(not Result);
end
else
	Result := True;
end;

Pero me da errores en los ScriptDlgPage y no se por que, por que la implementación la he copiado de la documentación lo unico que he puesto yo es el If.

Otra cosa es que no se como coger la ruta donde guarde el usuario la base de datos y guardarmela en un Txt para asi poder cargarsela al Adoconnection al inicio del programa.

Un Saludo.