[Nordek]

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

Splash:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

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

[Files]
Source: "splash.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "Files\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Code]
procedure ShowSplashScreen(p1:HWND;p2:Ansistring;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

procedure InitializeWizard;
begin
  ExtractTemporaryFile('back.bmp');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\back.bmp',1000,3000,1000,0,255,False,$FFFFFF,10);
end;

//                                                                         1    2    3    4 5   6      7
//  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\back.bmp',1000,3000,1000,0,255,False,$FFFFFF,10);
//1 Время появления в мсек
//2 Время показа в мсек
//3 Время затухания
//4 Минимальная прозрачность  (0-255)
//5 Максимальная прозрачность (0-255)
//6 Вырезать цвет (считать вырезанный цвет прозрачным)
//7 Цвет прозрачности - Указание цвета для прозрачности. По умолчанию "Белый цвет (FFFFFF)". Значения считать справа налево, например красный не FF0000 а 0000FF.

Код:

                                                                         1    2    3    4 5   6      7
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\back.bmp',1000,3000,1000,0,255,False,$FFFFFF,10);
1 Время появления в мсек
2 Время показа в мсек
3 Время затухания
4 Минимальная прозрачность  (0-255)
5 Максимальная прозрачность (0-255)
6 Вырезать цвет (считать вырезанный цвет прозрачным)
7 Цвет прозрачности - Указание цвета для прозрачности. По умолчанию "Белый цвет (FFFFFF)". Значения считать справа налево, например красный не FF0000 а 0000FF.

Background:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Files]
Source: isgsg.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: back.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: Files\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Code]
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall delayload';
function ssInitialize(hParent:HWND;ssTimeShow:integer;FadeOut:boolean;StretchMode:integer;BkgColor:DWORD):boolean; external 'ssInitialize@files:isgsg.dll stdcall delayload';
procedure ssDeInitialize; external 'ssDeInitialize@files:isgsg.dll stdcall delayload';
procedure ssSetBkgImage(FileName:PChar); external 'ssSetBkgImage@files:isgsg.dll stdcall delayload';

procedure InitializeWizard;
begin                                                         
  ssInitialize(GetWindowLong(MainForm.Handle,-8),0,False,1,$000000ff);
  ExtractTemporaryFile('back.bmp');
  ssSetBkgImage(ExpandConstant('{tmp}')+'\back.bmp');
end;

//                                                 1 2    3  4 5
//  ssInitialize(GetWindowLong(MainForm.Handle,-8),8,True,0,$FF000000);
// 1 Время показа в секундах
// 2 Использование эффекта "Растворение". False - Выкл/True - Вкл
// 3 Метод масштабирования 0 - Не растягивать 1 - Пропорционально 2 - Во весь экран
// 4 Прозрачность полотна
// 5 Цвет полотна

Код:

                                                  1 2    3  4 5
   ssInitialize(GetWindowLong(MainForm.Handle,-8),8,True,0,$FF000000);
1  Время показа в секундах
2  Использование эффекта "Растворение". False - Выкл/True - Вкл
3  Метод масштабирования 0 - Не растягивать 1 - Пропорционально 2 - Во весь экран
4  Прозрачность полотна
5  Цвет полотна