Скрипты Inno Setup. Помощь и советы [часть 8]

ZVSRus · Конфигурация компьютера

pollipen

как то так

pollipen · Отправлено: **11:25, 28-08-2017** | #**2052**

не получилось ни чего не показывает

ZVSRus · Конфигурация компьютера

pollipen

Цитата:

не получилось ни чего не показывает

Смотри внимательней, в примере DLL лежат в папке Include, сотри это.

https://www.upload.ee/files/7397789/splash.rar.html

pollipen · Отправлено: **14:58, 28-08-2017** | #**2054**

да, у меня всё так и было, но почему то тишина
https://youtu.be/bGzZmjz6BOU

Nordek · Конфигурация компьютера

Цитата pollipen:

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

Потому, что у Вас юникодная версия Inno.

Поправил пример:

Код:

; Время проявления картинки Splash (1500мс = 1,5 сек)
#define SplS "2000"
; Время показа картинки Splash (3000мс = 3 сек)
#define SplR "5000"
; Время затухания картинки Splash (1500мс = 1,5 сек)
#define SplE "2000"

[Setup]
AppName=Splash
AppVerName=Splash
DefaultDirName={pf}\Splash
OutputDir=.
UsePreviousAppDir=no
UsePreviousGroup=no

[Files]
Source: "Include\gifctrl.dll"; Flags: dontcopy solidbreak
Source: "splash.gif"; Flags: dontcopy solidbreak
Source: "Include\isgsg.dll"; Flags: dontcopy solidbreak
// Source: "splash.png"; Flags: dontcopy solidbreak

[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 RunSplash();
begin
  ExtractTemporaryFile('splash.gif');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\splash.gif',{#SplS},{#SplR},{#SplE},0,255,False,$FFFFFF,10);
end;

procedure InitializeWizard;
begin
  RunSplash();
end;

pollipen · Отправлено: **16:11, 28-08-2017** | #**2056**

спасибо!!!
Всё работает!!!

R.i.m.s.k.y. · Конфигурация компьютера

Не могу понять как сделать так чтобы при запуске под UAC от имени администратора иконки создавались в папке пользователя а не администратора или в общей папке
Т.е логинится пользователь User, установщик запускается от Admin, и иконки создаются в папке
c:\Users\Admin\AppData\Roaming\Microsoft\Windows\Start Menu\

[Icons]
Components: www; Name: "{group}\w w w ...

vadim.koltsov@vk · Отправлено: **11:21, 30-08-2017** | #**2058**

Всем привет. Прикручиваю в расширенной версии фон на компонентлист, но при скролле картинка "ползает". Как это можно исправить?

Скрытый текст

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DisableFinishedPage=yes
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[CustomMessages]
rus.Text=Язык интерфейса:
rus.Voice=Язык озвучки:
rus.Russian=Русский
rus.English=Английский

[Types]
Name: full; Description: Полная установка; Flags: iscustom

[Components]
Name: Text; Description: {cm:Text}; Flags: fixed; Types: Full;                
Name: Text\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 50000000;
Name: Text\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 60000000;
Name: Voice; Description: {cm:Voice}; Flags: fixed; Types: Full;
Name: Voice\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 500000000;
Name: Voice\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 600000000;

Name: Text1; Description: {cm:Text}; Flags: fixed; Types: Full;
Name: Text1\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 50000000;
Name: Text1\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 60000000;
Name: Voice1; Description: {cm:Voice}; Flags: fixed; Types: Full;
Name: Voice1\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 500000000;
Name: Voice1\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 600000000;

Name: Text2; Description: {cm:Text}; Flags: fixed; Types: Full;
Name: Text2\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 50000000;
Name: Text2\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 60000000;
Name: Voice2; Description: {cm:Voice}; Flags: fixed; Types: Full;
Name: Voice2\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 500000000;
Name: Voice2\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 600000000;

[Files]
Source: Embedded\WizardImages\BMPImage.bmp; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;
Source: Embedded\WizardImages\BTNImage.bmp; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;

[---code---]var
  BGBitmapImage,BTNImage: TBitmapImage;
  BorderWidth: Integer;
  BGImageStream,BTNImageStream: TMemoryStream;

procedure InitializeWizard();
begin
  BGImageStream := TMemoryStream.Create;
  ExtractTemporaryFileToStream('BMPImage.bmp', BGImageStream);
  BGImageStream.Position := 0;

  BTNImageStream := TMemoryStream.Create;
  ExtractTemporaryFileToStream('BtnImage.bmp', BTNImageStream);
  BTNImageStream.Position := 0;

  BGBitmapImage := TBitmapImage.Create(WizardForm);
  BGBitmapImage.Bitmap.LoadFromStream(BGImageStream);

  BTNImage := TBitmapImage.Create(WizardForm);
  BTNImage.Bitmap.LoadFromStream(BTNImageStream);
with WizardForm.ComponentsList do begin
  Font.Color:= $FFF8F8;
  Font.Name:='Tahoma';
  Font.Size:= 8;
  BorderWidth := (WizardForm.ComponentsList.Width-WizardForm.ComponentsList.ClientWidth) div 2;
  LoadBGBmpFromBitmap(BGBitmapImage.Bitmap,  WizardForm.ComponentsList.Left+BorderWidth, WizardForm.ComponentsList.Top+BorderWidth);
  LoadBtnBmpFromBitmap(BTNImage.Bitmap);
end;
end;

postal1703 · Отправлено: **15:48, 01-09-2017** | #**2059**

нужна ваша помощь. как сделать так чтобы установщик запустил выбранный мной файл а после удачного запуска удалил его?

Nordek · Конфигурация компьютера

Цитата postal1703:

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

Скрытый текст

Так:

Код:

[Files]
Source: C:\Program Files\Inno Setup 5\Examples\MyProg.exe; DestDir: {tmp}

[Run]
Filename: {tmp}\MyProg.exe; Description: {cm:LaunchProgram,My Program}; Flags: nowait postinstall skipifsilent

или так:

Код:

[Tasks]
Name: file; Description: Run My File

[Files]
Source: C:\Program Files\Inno Setup 5\Examples\MyProg.exe; DestDir: {tmp}

[Run]
Filename: {tmp}\MyProg.exe; Tasks: file

или так:

Код:

[Tasks]
Name: file; Description: Run My File

[Files]
Source: C:\Program Files\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: deleteafterinstall

[Run]
Filename: {app}\MyProg.exe; Tasks: file