Сунул файлы инсталлятора Фаерберда:
Код:
[Files]
Source: Firebird-2.1.3.18185_0_Win32.exe; Flags: dontcopy
Source: fbinst.inf; Flags: dontcopy
В
function NextButtonClick() делаю:
Код:
if CurPageID = FirebirdQueryPage.ID then begin
if FirebirdQueryPage.SelectedValueIndex = 0 then begin
if Exec(ExpandConstant('{tmp}\Firebird-2.1.3.18185_0_Win32.exe'), ' /loadinf="{tmp}\fbinst.inf" /silent', '', SW_SHOW, ewWaitUntilTerminated, resCodeFB) then begin
if not (resCodeFB = 0) then begin
MsgBox('Бла-бла, типа ошибка', mbError, MB_OK);
Result := false;
end;
end;
end;
end;
Код не отрабатывает, в дебаге просто пролетает мимо.
Что не так?
