serg_aka_lain
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
procedure CurStepChanged(CurStep: TSetupStep);
var
ErrorCode: Integer;
begin
if CurStep = ssPostInstall then
begin
if (FileSearch('mscomctl.ocx', ExpandConstant('{sys}')) = '')
or (FileSearch('vb40032.dll', ExpandConstant('{sys}')) = '') then
begin
WizardForm.StatusLabel.Caption := 'Установка Visual Basic 4.0...';
if not Exec(ExpandConstant('{app}') + '\Vbr4\setup.exe', '/q', '', SW_Hide, ewWaitUntilTerminated , ErrorCode) then
begin
WizardForm.Visible := False;
SuppressibleMsgBox('Ошибка запуска установки Visual Basic 4.0', MbCriticalError , MB_OK, MB_Ok);
WizardForm.Visible := True;
end;
end;
end;
end;
|
