[R.i.m.s.k.y.]

Как сделать так чтобы при установки определялась версия Net.Framework 3.5, если он не установлен, то сначало устанавливался Net.Framework 3.5 из папки Others, а потом продолжалася установка, если установлен то продолжал установку? »

Код:

function netfw35(): Boolean;
begin
if ( RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5') ) then Result := True else Result := False;
end;

Function InitializeSetup: Boolean;
var res, i : Integer; 
Begin
result:=true;//шоп не закрылся инсталлер
if (not netfw35) then begin
  MsgBox('Net.Framework 3.5 не найден, нажмите ОК для установки', mbInformation, MB_OK);
  Exec(ExpandConstant('{src}\Others\dotnet35.exe'), ' /q /passive /norestart',ExpandConstant('{src}\Others\'),SW_show, ewWaitUntilTerminated, res);
  result:=true;//шоп не закрылся инсталлер
end;//if (not netfw35) 
end; //InitializeSetup

[Devils Night]

R.i.m.s.k.y., это я закоментировал

Код:

result:=true;//шоп не закрылся инсталлер

, чтоб закрывался, потому не нужно чтобы устанавливался без Framework-а, и нужно вот что, чтобы установка дожидалась пока установится Framework, и как Framework установится то продолжалась основная установка!?

[R.i.m.s.k.y.]

чтоб закрывался, потому не нужно чтобы устанавливался без Framework-а, и нужно вот что, чтобы установка дожидалась пока установится Framework, и как Framework установится то продолжалась основная установка!? »

ewWaitUntilTerminated указывает, что инсталлер будет ждать пока не поставится фреймворк
тебе надо чтобы закрылся или чтобы поставил фреймворк и продолжил?
вверху - поставит и продолжит
если хочешь чтобы закрылся - убери Exec и исправь

if (not netfw35) then begin
...
result:=false;
...

кстати зря закомменил "шоп не закрылся инсталлер", если какой-то шаг вернет false в результате ошибки вызова, то без этой строчки InitializeSetup тоже может получить на выходе false и инсталлер закроется

ворчание моде он
народ, где вы так писать научились, а? зато никто не забывает попинать бабу-ЕГЭ
книжки бы хоть почитали, грамотные, как предложения строятся, как мысль из мозга переносится на бумагу/клавиатуру
хотя если учесть, что написанная мысль - есть мысль измышленная, я даже боюсь представить что там измышляется

[TROY Diamond]

Помогите, пожалуйста, доработать, исправить, "усовершенствовать" скрипт!
Или поделитесь какими-нибудь другими кодами создания индикаторов процесса "для секции [Run]"

ПРОБЛЕМА: Индикатор работает НЕ на всех темах!!!

[Setup]
AppName=MyProg
AppVerName=MyProg
DefaultDirName={pf}\MyProg
OutputDir=.
Compression=lzma/ultra
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

[code]
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';

const
PBM_SETMARQUEE = $040A;
GWL_STYLE = -16;
PBS_MARQUEE = $08;

var
AnimatePb: TNewProgressBar;

procedure CreateAnimatePb;
begin
AnimatePb := TNewProgressBar.Create(WizardForm);
with AnimatePb do
begin
Parent := WizardForm.InstallingPage;
SetBounds(WizardForm.ProgressGauge.Left, WizardForm.ProgressGauge.Top + WizardForm.ProgressGauge.Height + ScaleY(10),
WizardForm.ProgressGauge.Width, WizardForm.ProgressGauge.Height);
SetWindowLong (AnimatePb.Handle, GWL_STYLE, (GetWindowLong (AnimatePb.Handle, GWL_STYLE) or PBS_MARQUEE));
SendMessage(AnimatePb.Handle, PBM_SETMARQUEE, 1, 20);
end;
end;

procedure AnimatePbMsg(const msg: string);
begin
if AnimatePb = nil then
CreateAnimatePb;
WizardForm.FilenameLabel.Caption := msg;
end;

procedure AnimatePbFree;
begin
if AnimatePb <> nil then
begin
AnimatePb.Free;
AnimatePb := nil;
end;
end;

[Run]
Filename: {app}\MyProg.exe; BeforeInstall: AnimatePbMsg('Создание файла...'); Flags: skipifsilent
Filename: {app}\MyProg2.exe; BeforeInstall: AnimatePbMsg('Создание файла...'); Flags: skipifsilent
Filename: {app}\MyProg3.exe; BeforeInstall: AnimatePbMsg('Создание файла...'); AfterInstall: AnimatePbFree; Flags: skipifsilent

ПРОБЛЕМА: Индикатор работает НЕ на всех темах!!!

А также:
1. Нужно поднять индикатор выше, чтобы он был на том же самом месте, что и оригинальный и выглядел также.
2. Убрать сообщения, т.к. я использую "StatusMsg", а если не использовать, то появится сообщение "Завершение установки"
3. Сделать кнопку "Отмена" активной и вернуть возможность прерывания процесса установки.

Если нельзя ничего этого сделать, поделитесь какими-нибудь другими кодами создания индикаторов процесса "для секции [Run]"

У меня из секции [Run], выполняется ещё куча команд в скрытом режиме, которая занимает довольно много времени, поэтому нужна какая-то индикация...

ИЛИ МОЖЕТ ЕСТЬ КАКОЙ-НИБУДЬ ДРУГОЙ СПОСОБ, для запуска и выполнения дополнительных операций, во время и/или после установки, НЕ обязательно из секции [Run] со стандартной индикацией процесса?!

[Devils Night]

чтобы поставил фреймворк и продолжил? »

Именно это надо.

кстати зря закомменил "шоп не закрылся инсталлер" »

А когда не убран, он всё равно продолжает установку, даже если фреймворк не установлен.

убери Exec и исправь if (not netfw35) then begin ... result:=false; ... »

Насчёт этого, я тугой вообще, туго соображаю.

[TROY Diamond]

Посмотрите, пожалуйста, мой скрипт, - проверьте, исправьте если, что нужно и скажите, что да, как!
За гламуром вообще НЕ гонюсь... наоборот, всё должно быть компактно, аккуратно и близко к оригиналу...

http://rghost.ru/33759851

Если есть более, простой способ всех проведённых мною манипуляций, то подскажите, пожалуйста!
А также, посоветуйте, пожалуйста, насчёт индикатора процесса...
И вообще, что касается выполнения большого количества каких-либо операций во время и/или после установки, как это лучше реализовать?
Можно ли сделать кнопку "Отмена" активной и/или выполнять это всё не из секции [Run]?!
А последнее по поводу "runascurrentuser" нужно, чтобы все команды выполнялись с правами Администратора!

[TROY Diamond]

Как использовать *.png или *.gif картинку в WizardSmallImageFile и WizardImageFile, вместо *.bmp

[Vista-w]

TROY Diamond,
botva2.dll

[ARS_23]

Vista-w,
на сколько я знаю-ботва не работает с *.gif

[No4noylis]

ARS_23, Inno GIFCtrl не поможет???