[Johny777]

мне нужен »

держи

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

Код:

[Setup]
AppName=Icon_Demo
AppVerName=Icon_Demo
DefaultDirName={pf}\Icon_Demo
Compression=none

[Files]
;DestName: "WizardForm.BitmapImage1.bmp"; Source: "Pics\Lambda_hand.bmp"; Flags: dontcopy solidbreak nocompression sortfilesbyextension
;DestName: "WizardForm.BitmapImage2.bmp"; Source: "Pics\D2_coast.bmp"; Flags: dontcopy solidbreak nocompression sortfilesbyextension
;DestName: "WizardForm.BitmapImage3.bmp"; Source: "Pics\GordonF.bmp"; Flags: dontcopy solidbreak nocompression sortfilesbyextension
;DestName: "WizardForm.BitmapImage4.bmp"; Source: "Pics\Borealis.bmp"; Flags: dontcopy solidbreak nocompression sortfilesbyextension
;DestName: "WizardForm.BitmapImage5.bmp"; Source: "Pics\portals.bmp"; Flags: dontcopy solidbreak nocompression sortfilesbyextension
;... итд

[  code]
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';

procedure InitializeWizard;////////////////////////////////////////////////////////////////////////////////////////// Initialize Wizard ////////////////////////////////////////////////////////////////////////////////////////////////
var
  Form: TSetupForm;
  LoadPrgsBar: TNewProgressBar;
  i: Integer;
begin
  Form := CreateCustomForm();
  with Form do
  begin
    ClientWidth := ScaleX(300);
    ClientHeight := ScaleY(271);
    BorderStyle := bsDialog;
    Caption := 'Загрузка';
    Left := GetSystemMetrics(16) - ClientWidth - ScaleX(16);
    Top := GetSystemMetrics(17) - ClientHeight - ScaleY(16);

    LoadPrgsBar := TNewProgressBar.Create(nil);
    with LoadPrgsBar do
    begin
      Parent := Form;
      SetBounds(ScaleX(0), ScaleY(0), ScaleX(300), ScaleY(27));
      Position := 0;
    end;

    Show;
    Repaint;
  end;

  /// пример распаковки изображений в цикле (называния картинок должны быть одинаковыми с разными номерами) = пример в секции файлов
//  with LoadPrgsBar do
//  begin
//    for i := 1 to 73 do
//    begin
//      ExtractTemporaryFile('WizardForm.BitmapImage' + IntToStr(i) + '.bmp');
//      Position := i;
//    end;
//  end;
  
    /// другой пример
//  ExtractTemporaryFile('warning_dark.bmp'); // извлекаем картинку
    LoadPrgsBar.Position := 1; // добавляем позицию
//  ExtractTemporaryFile('hl1.bmp');  /// извлекаеи ещё одну
    LoadPrgsBar.Position := 2; // добавляем позицию

    /// создаеём что-то
    LoadPrgsBar.Position := 3; // добавляем позицию



  Form.Free; /// писать в самом конце процедуры. Те освобождаем форму
end;

взял у себя из кода
правда без картинки
чисто функционал
нужна будет добавь таким макаром http://forum.oszone.net/post-1968497-631.html