function NextButtonClick(CurPageID: Integer): Boolean;
var
ResultCode: Integer;
begin
case CurPageID of
wpReady:
begin
ExtractTemporaryFile('Firebird-2.1.1.17910-0_Win32.exe');
if IsComponentSelected('Firebird_2_1') then begin
MsgBox('A continuación se instalará el motor de bases de datos Firebird 2.1', mbInformation, MB_OK);
if not Exec(ExpandConstant('{tmp}\Firebird-2.1.1.17910-0_Win32.exe'),
'/SILENT /LOG /NOCANCEL /NOICONS /TYPE=CustomInstall /COMPONENTS="ServerComponent,ServerComponent\SuperServerComponent,DevAdminComponent,ClientComponent" /MERGETASKS="CopyFbClientToSysTask"',
'',
SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
MsgBox('No se pudo realizar la instalación de Firebird 2.1.'#13#13#10'Mensaje de error del sistema'#13#13#10+SysErrorMessage(ResultCode)+'.', mbError, MB_OK)
else begin
end
end
else if IsComponentSelected('Archivos_Cliente') then begin
MsgBox('A continuación se instalará cliente del motor bases de datos Firebird 2.1', mbInformation, MB_OK);
if not Exec(ExpandConstant('{tmp}\Firebird-2.1.1.17910-0_Win32.exe'),
'/SILENT /LOG /NOCANCEL /NOICONS /TYPE=ClientInstall',
'',
SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
MsgBox('No se pudo realizar la instalación del cliente Firebird 2.1.'#13#13#10'Mensaje de error del sistema'#13#13#10+SysErrorMessage(ResultCode)+'.', mbError, MB_OK)
end
end
end;
Result := True
end;