[Johny777]

Nightwishh, модифицировал показ слайдов (рандомный), много удалил и заменил InnoCallback.dll на CallbackAddr
библиотека не нужна. Только картинки

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: Image_1.bmp; Flags: dontcopy solidbreak sortfilesbyextension nocompression
Source: Image_2.bmp; Flags: dontcopy solidbreak sortfilesbyextension nocompression
Source: Image_3.bmp; Flags: dontcopy solidbreak sortfilesbyextension nocompression

Source: {fonts}\*; DestDir: {app}; Flags: external

[code]
const
  SlidesNumber=3; //количество слайдов
  SlideRenewTine=2; // задержка показа слаидов в секундах
  
var
  SplashImage: TBitmapImage;
  SlidesTimer: LongWord;
  Pic: Byte;

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure ShowRandomPics;
begin
  Pic := Random(SlidesNumber);
  SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_' + IntToStr(Pic+1) + '.bmp'));
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  z: Byte;
begin
  case CurStep of
    ssInstall:
    begin
      { SplashImage }
      SplashImage := TBitmapImage.Create(nil);
      with SplashImage do
      begin
        SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.Bevel.Top)
        Parent := WizardForm.InstallingPage;
        Stretch := True;
        Pic := Random(SlidesNumber);
        ExtractTemporaryFile('Image_' + IntToStr(Pic+1) + '.bmp');
        Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_' + IntToStr(Pic+1) + '.bmp'));
      end;
      WizardForm.StatusLabel.Caption := 'Распаковка слайдов ...';
      for z := 1 to SlidesNumber do if not FileExists(ExpandConstant('{tmp}\Image_' + IntToStr(z) + '.bmp')) then ExtractTemporaryFile('Image_'+inttostr(z)+'.bmp');
      SlidesTimer := SetTimer(WizardForm.Handle, 7, SlideRenewTine*1000, CallbackAddr('ShowRandomPics'));
    end;
    
    ssPostInstall:
    begin
      KillTimer(WizardForm.Handle, SlidesTimer);
      SplashImage.Free;
    end;
  end;
end;

procedure DeInitializeSetup();
begin
  KillTimer(WizardForm.Handle, SlidesTimer);
end;

а именно меня волнуют 2 одинаковые функции »

и правильно волнуют. Достаточно записать по одному экземпляру заголовка

теперь тебе будет легче объединить 2 кода в ручную

[El Sanchez]

При выборе определённого компонента: 1. запустить (до копирования файлов) сторонний (дополнительный) инсталлятор из {tmp} с заданными ключами установки. 2. удалить в {app} определённые папки ("мусорные", которые установит инсталлятор из пункта 1). 3. выполнить копирование (установку) файлов уже посредством основного inno-инсталлятора »

elChoopacabra, первые 2 пункта нужно делать на этапе ssInstall, как раз перед отработкой секции Run (3 пункт):

Код:

[Files]
Source: setup.exe; Flags: dontcopy nocompression; Components: mycomponent

[code]
procedure CurStepChanged(CurStep: TSetupStep);
var
    ResCode: Integer;
begin
    case CurStep of
        ssInstall: begin
            if IsComponentSelected('mycomponent') then
            begin
                ExtractTemporaryFile('setup.exe');
                if FileExists(ExpandConstant('{tmp}\setup.exe') then
                begin
                    Exec(ExpandConstant('{tmp}\setup.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResCode);
                    DelTree(ExpandConstant('{app}\MyFolder'), True, True, True);
                end;
            end;
        end;
    end;
end;

P.S. Дополнительный установщик может состоять из оболочки и основного установщика, например, связка InstallShield - Windows Installer. В таком случае возможен вариант, когда команда Exec вернет управление, дождавшись кода возврата от оболочки, а основной установщик еще только начал свою работу. Тогда и команде DelTree нечего будет удалять - мусор появится позже, когда отработает основной установщик. Поэтому рекомендую разобрать дополнительный установщик до его составляющих.


UPD
ой, опередили

[Nightwishh]

Johny777,
Спасибо, всё работает, но есть одна пакость! Дело в том что у меня архивы фриарк, которые распаковываются перед inno (ssInstall), а
здесь слайды начинают работать после распаковки. Пробывал в скрипте исправлять в процедуре: procedure CurStepChanged(CurStep: TSetupStep); непомогает!

[Johny777]

Nightwishh, ну помести код распаковки архивов после извлечения картинок и запуска таймера. Убиение таймера оставь где стоит. Те до этапа(ssPostInstall) где таймер убивается не дойдёт пока не выполнится код распаковки. А значит до тех пор он, таймер, будет с частотой 2сек. выполнять процедуру ShowRandomPics; Расценивай таймер не иначе как параллельный поток(процесс)
короче:

читать дальше »

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  z: Byte;
begin
  case CurStep of
    ssInstall:
    begin
      { SplashImage }
      SplashImage := TBitmapImage.Create(nil);
      with SplashImage do
      begin
        SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.Bevel.Top)
        Parent := WizardForm.InstallingPage;
        Stretch := True;
        Pic := Random(SlidesNumber);
        ExtractTemporaryFile('Image_' + IntToStr(Pic+1) + '.bmp');
        Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_' + IntToStr(Pic+1) + '.bmp'));
      end;
      WizardForm.StatusLabel.Caption := 'Распаковка слайдов ...';
      for z := 1 to SlidesNumber do if not FileExists(ExpandConstant('{tmp}\Image_' + IntToStr(z) + '.bmp')) then ExtractTemporaryFile('Image_'+inttostr(z)+'.bmp');
      SlidesTimer := SetTimer(WizardForm.Handle, 7, SlideRenewTine*1000, CallbackAddr('ShowRandomPics'));

      /// здесь код распаковки архивов

    end;
    
    ssPostInstall:
    begin
      KillTimer(WizardForm.Handle, SlidesTimer);
      SplashImage.Free;
    end;
  end;
end;

===========================

ой, опередили »

уже нет! У меня не хватало "if IsComponentSelected('mycomponent') then..."

[Nightwishh]

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

[Johny777]

Nightwishh, вот скажи мне. Нафига тебе этот исдан. Почти все реапки какие вижу с ним. может дело и не в нём, но они по большей части глючные. Кто тебе по ушам настучал его использовать. Забей и всё будет нормално. я б не променял коды ваше на возможность сильнее сжать(и эта возможность под вопросом)

[Nightwishh]

Johny777, да всё пока нормально, взял для слайдов другой скрипт, насчёт глюков ISDone- вроде норм с ним, спасибо за таймер для музыки и за скрипт слайшоу!

[Mailchik]

Нафига тебе этот исдан. Почти все реапки какие вижу с ним. может дело и не в нём, но они по большей части глючные. Кто тебе по ушам настучал его использовать.

Хм. Странно. Встречный вопрос, а кто настучал его не использовать? Баги присутствуют, куда же без них, хотя я ни одного не замечал за этой библиотекой. Очень удобная библиотека, я бы даже сказал нужная для репакера. Очень много нужных функций. Дак если есть такая библиотека, зачем придумывать велосипед, и собирать заново. Лично моё мнение.

это какие нужные в ней функции?

Распаковка архивов созданных разными алгоритмами (precomp, srep, zip, xdelta + подключение конфиг файла, для распаковки внешними компрессорами), запуск сторонних exe, с плавным отображением прогрессбара.

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

Очень много нужных функций »

это какие нужные в ней функции?

[Johny777]

Mailchik, использовать или не использовать исдан - личное решение каждого. Здесь на форуме видел людей, которые не зная возможностей инно, обходя их начинают пользоваться исданом. Оттого и мнение, что кто-то (форум, человек, репакер) прошелся по ушам и доверчивости новичка. Меня это печалит. Поэтому я не выдержав заявил Nightwishh-у чтоб он не зацикливался на методах этой библиотеки. Базара нет "Распаковка архивов созданных разными алгоритмами (precomp, srep, zip, xdelta + подключение конфиг файла, для распаковки внешними компрессорами), запуск сторонних exe, с плавным отображением прогрессбара." - несомненный плюс, но у медали две стороны
давай взвесим стороны:
начнём с того что времена, когда выгодно и удобно купить/скачать однослойную болванку с пятью играми на ней давно прошли(не для всех, но меньшинством я позволю себе пренебречь). Ожидания от современного репака(перепаковки):
- удобство проистекающее из ненадобности в ручную ставить патч, копировать правленные файлы, файлы локализации, настраивать ини файлы эмулятора для стим-игр и прочее
- качество. Те правильный и грамотный код, в котором:
1. Описаны все необходимые действия для правильной установки и удаления продукта
2. Сам инсатлл должен быть удобен по отношению к пользователю.
3. Время установки должно быть приемлемым
4. И самое главное - нужно уметь ценить ресурсы чужого компа!
Что мы получаем (говорю как бывший пользователь репаков):
1. Не все, но это ввиду того что "готовый" продукт можно получить обходя возможности инно через исдан сделало из будущего, без будущего, репакера обезьяну
2. Многое уделяется не удобству, а оформлению, хотя иногда оно из него и проистекает. Я сам фанат крутого оформления, но уважая чужое мнение не меньше своего, отдаю полуготовый продукт на тест и (внимание) на "общее впечатление" (там же и удобство) от продукта с будущим учётом пожеланий будущих пользователей. Не спрашивай примера. У меня пока один такой инсталл и он не доступен широкой общественности
3. Время установки не приемлемо, а без прекомпа возможности библиотеки аннулируются (+-500-300мб после фри арка можно пренебречь) кодом несколькими страницами назад и родным ужимателем инно
4. Дополнительное место на харде для распаковки и уйма оперативки - наглое отношение к пользователю, тк он не ценит ресурсы сколько бы их не было

Теперь о возможностях исдана- разнообразная распаковка. Вот и всё. О фагах секции файлов можно забыть. Ровно как и о функциях AfterInstall, BeforeInstall
запуск сторонних exe - может и инно.
Короче. Кто хочет пусть юзает исдан. Мне с этого момента пофиг. Я лишь буду указывать на альтернативные возможности или возможноти(которых в исдане нен) в инно

PS:

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

инно была раньше, так что ей и быть великом
а целесообразность исдана без прекомпа и сильного сжатия из которого проистекают некоторые из вышеописанных проблем(3, 4) я ставлю под большой вопрос

PSS:
ничего личного по отношению к автору библиотеки. Если он её придумал, значит было зачем