[firebase-br] dúvida num code do inno setup

[Cássio]

certo, mas este "msiexec.exe" eu tenho que criá-lo, porque não está 
funcionando aqui... vlw,

ricardo zancanaro escreveu:
> Boa tarde Cassio,
> 
> na página http://www.innosetup.com/iskb.php?msi , tem a seguinte dica
> de como instalar .MSI.
> 
> 
> [Files]
> Source: "Your-MSI-File.msi"; DestDir: "{tmp}"
> 
> [Run]
> Filename: "msiexec.exe"; Parameters: "/i ""{tmp}\Your-MSI-File.msi"""
> 
> Em um teste que fiz aqui, o instalador chama o .MSI e fica aguardando
> o término da execução do mesmo.
> 
> Mas se quiser tentar, tem essa gambiarra aqui, ele cria uma nova
> página no seu instalador chama teu .MSI e cria uma barra de progresso
> só pra tapear, não testei, mas acredito que tenha como vc trocar o for
> por um while e executar a barra até o final da execução do .MSI
> 
> var
> 	BarraProgresso: TOutputProgressWizardPage;
> 	PaginaProgresso : TWizardPage;
> 
> procedure criarWizard();
> var
> 	Paginas: TWizardPage;
> begin
> 	PaginaProgresso := CreateOutputMsgMemoPage(wpInfoAfter, 'Título Janela',
> 		'Descrição das ações',
> 		'Ações:',
> 		'Atividade'#13'Atividade');
> 	Paginas := CreateCustomPage(wpFinished, 'wpFinished', 'Descrição do
> meu wizard');
> end;
> procedure InitializeWizard();
> begin
> 	criarWizard();
> end;
> 
> function NextButtonClick(CurPageID: Integer): Boolean;
> var
> 	I: Integer;
> 	ErrorCode: Integer;
> 	Path: String;
> begin
> 	if CurPageID = PaginaProgresso.ID then begin
> 		BarraProgresso := CreateOutputProgressPage('Iniciar Serviço','');
> 		BarraProgresso.SetText('Iniciando Firebird...', '');
> 		BarraProgresso.SetProgress(0, 0);
> 		BarraProgresso.Show;
> 		try
> 
> 			Path := '"' + ExpandConstant('{tmp}\SeuArquivo.MSI"');
> 			ShellExec('open', Path, '', '', SW_HIDE, ewNoWait, ErrorCode);
> 
> 			for I := 0 to 100 do begin
> 				BarraProgresso.SetProgress(I, 100);
> 				Sleep(100);
> 			end;
> 		finally
> 			BarraProgresso.Hide;
> 			if ErrorCode <> 0 then
> 				MsgBox('Erro ao executar o .MSI.', mbInformation, MB_OK);
> 			Result := True;
> 		end;
> 	end
>     else
> 		Result := True;
> end;
> 
> Att,
> Ricardo Zancanaro
> 
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use: http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>