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

vk_k14m@vk, под if'ом должна быть логическая переменная

[vk_k14m@vk]

под if'ом должна быть логическая переменная »

Наверно мне нужно было сразу сказать что я в Inno Setup чуть больше недели, а про Pascal вообще ничего не знаю. К слову как и про программирование в целом. Так что твой ответ мне ничего не говорит...

[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  Цвет полотна

[vk_k14m@vk]

Ответьте кто нибудь, как работает этот код?

Код:

[Files]
Check: Уже_установленное_приложение; Source: сразу_извлекается_и_запускается_этот_файл.exe; DestDir: {tmp}; BeforeInstall: ChangeCaption('Установка этого файла'); AfterInstall: install_this_file; Flags: ignoreversion recursesubdirs createallsubdirs; 
...
Source: Твои файлы...


[Сode]

procedure install_this_file();
var res:integer; file, path : string;
begin
  file := ExpandConstant('{tmp}\сразу_извлекается_и_запускается_этот_файл.exe'); path := ExpandConstant('{tmp}');
  if FileExists(file) then Exec(file, ' параметры',path,SW_SHOW,ewWaitUntilTerminated,res) else MsgBox('Файл' + ' ' + file + #13#10 + 'не найден', mbInformation, MB_OK);
end;

Function Уже_установленное_приложение():boolean;
begin
 if это_приложение_уже_установлено then Result := True else Result := False;
end;

Что на что там заменять?
AppName=Artificial Academy 2
Приложение которое должно запускаться перед началом установки:
D:\Inno Setup\Installer\0 Delete after install\AA2Decrypt_unpack.bat

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

как работает этот код »

замурчательно работает

тебе понятно как работают секции Инно, в частности Files?
если да - продолжаем, если нет - читай справку в частности по ключевым словам что я тебе давал про порядок установки
В ней дисительно расписано нормально

если функция Уже_установленное_приложение возвращает True то строчка с Check: Уже_установленное_приложение;

Код:

Check: Уже_установленное_приложение; Source: сразу_извлекается_и_запускается_этот_файл.exe; DestDir: {tmp}; BeforeInstall: ChangeCaption('Установка этого файла'); AfterInstall: install_this_file; Flags: ignoreversion recursesubdirs createallsubdirs;

выполняется, если если функция Уже_установленное_приложение возвращает False то строчка пропускается

В строке присутствуют процедуры BeforeInstall и AfterInstall
Первая работает перед копированием Source: сразу_извлекается_и_запускается_этот_файл.exe, вторая - после.
После копирования файла Source: сразу_извлекается_и_запускается_этот_файл.exe запускается процедура AfterInstall: install_this_file, которая содержит запуск файла сразу_извлекается_и_запускается_этот_файл.exe из папки DestDir: {tmp}
Отсюда побочный вывод: если копируется не один файл а папка с набором файлов то AfterInstall: нечто будет запускаться после копирования каждого файла из папки что может как минимум затормозить установку и вызвать непредвиденные последствия

____________

Всё что я расписал есть в справке, легко находится по словам Check, BeforeInstall и AfterInstall

[vk_k14m@vk]

если функция Уже_установленное_приложение возвращает True »

А если функция возвращает ошибку??? У меня ошибка в этой строчке. По этому я и спрашиваю как она работает. Как она понимает True или не True? Что они проверяет? К тому же Check: Уже_установленное_приложение не компилируется, похоже он не понимает русские символы.

Так что я переименовал Check: Already_Installed_Application;
Потом, инстеллер компилируется. Но потом когда пытаюсь установить свое приложение, выскакивает ошибка в этой строчке

Function Already_Installed_Application():boolean;
begin
if это_приложение_уже_установлено then Result := True else Result := False;
end;

Приложение вообще не устанавливается.

Значение это_приложение_уже_установлено нужно изменять на свое? Там нужно вписывать название приложение которое устанавливает инсталлер? Когда пишу ExpandConstant('{#MyAppName}') тоже ошибка. Как же заставить его работать...

BeforeInstall »

Все что тут делает BeforeInstal так это меняет сообщение при установке
BeforeInstall: ChangeCaption('Установка этого файла')
Так что он в этом случае бесполезен.

[Iska]

тебе понятно как работают секции Инно, в частности Files? »

R.i.m.s.k.y., конечно, не понимает. В принципе не понимает, что нужно делать. Коллега vk_k14m@vk банально пытается компилировать представленную ему ранее болванку скрипта и кода как есть. Изучать справку и язык не хочет/не может.

vk_k14m@vk, загрузите себе перевод, поблагодарите коллегу mig73 за выложенное и читайте, читайте, читайте.

[vk_k14m@vk]

Все работает, просто убрал проблемные строчки

Function Already_Installed_Application():boolean;
begin
if это_приложение_уже_установлено then Result := True else Result := False;
end;

и пошло как по маслу. Правда теперь то приложение при любой установке запускается. Зато лишней мороки с кодом нет...

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

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

Все работает, просто убрал проблемные строчки »

и проверки теперь нет

[ZVSRus]

Правда теперь то приложение при любой установке запускается. Зато лишней мороки с кодом нет...

А какие приложения подразумеваются, и какая требуется проверка, на запуск или на установку, или на то и другое?