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

[neorom]

Просьба одредактироваить скрипт з єтого http://s3.share.te.ua/496847/01.JPG (http://s3.share.te.ua/b496847/01.JPG) зделать так http://s3.share.te.ua/496848/02.JPG (http://s3.share.te.ua/b496848/02.JPG) и разнинє папки з файлами для инсталяции http://s3.share.te.ua/496851/03.JPG (http://s3.share.te.ua/b496851/03.JPG)

Мой скрипт (програма инсталятор должна сама определять какиє програми инстальовани и стояли там видпавиднеє галочки в окне исталяции)

[Setup]
AppName=Microsoft® Windows® XP Ukrainian User Interface Pack
AppVerName=Microsoft® Windows® XP Ukrainian Multilingual User Interface Pack
AppPublisher=Music Mix Studio© & Records Company® 2006-2008
AppPublisherURL=http://winxp.org.ua
AppSupportURL=http://winxp.org.ua
AppUpdatesURL=http://winxp.org.ua
CreateAppDir=no
OutputBaseFilename=setup1
Compression=lzma
Uninstallable=no
PrivilegesRequired=none
DisableProgramGroupPage=yes
LicenseFile=embedded\License.txt
InfoBeforeFile=embedded\InfoBefore.txt
InfoAfterFile=embedded\InfoAfter.txt
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp

[Files]
Source: {tmp}\*.*; DestDir: {tmp}\mui; Flags: ignoreversion

[Run]
Filename: {tmp}\mui\muisetup_ru_sp2.exe; Parameters: /i 0422 /d 0422 /l /f /r /s; Components: sp2comp; Tasks: sp2
Filename: {tmp}\mui\muisetup_ru_sp3.exe; Parameters: /i 0422 /d 0422 /l /f /r /s; Components: sp3comp; Tasks: sp3
Filename: {tmp}\mui\muisetup_ru_sp2.exe; Components: sp2comp; Tasks: sp2m
Filename: {tmp}\mui\muisetup_ru_sp3.exe; Components: sp3comp; Tasks: sp3m
Filename: {tmp}\mui\wmp_8_mui.cmd; Tasks: mp8
Filename: {tmp}\mui\wmp_9_mui.cmd; Tasks: mp9
Filename: {tmp}\mui\wmp_10_mui.cmd; Tasks: mp10
Filename: {tmp}\mui\wmp_11_mui.cmd; Tasks: mp11

[Tasks]
Name: sp2; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp2comp
Name: sp3; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp3comp
Name: sp2m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp2comp
Name: sp3m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp3comp
Name: mp8; Description: 8; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp9; Description: 9; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp10; Description: 10; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp11; Description: 11; GroupDescription: Оберіть версію встановленого Медіа Програвача

[Components]
Name: sp2comp; Description: Service Pack 2; Types: sp2os
Name: sp3comp; Description: Service Pack 3; Types: sp3os

[Types]
Name: sp3os; Description: Service Pack 3
Name: sp2os; Description: Service Pack 2

[Languages]
Name: ukrainian; MessagesFile: compiler:Languages\Ukrainian.isl

[insombia]

neorom вот так?
[Tasks]
Name: sp2; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp2comp
Name: sp3; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp3comp
Name: sp2m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp2comp
Name: sp3m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp3comp
Name: mp8; Description: 8; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp9; Description: 9; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp10; Description: 10; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp11; Description: 11; GroupDescription: Оберіть версію встановленого Медіа Програвача

[Components]
Name: sp2comp; Description: Service Pack 2; Types: sp2os Flags: exclusive
Name: sp3comp; Description: Service Pack 3; Types: sp3os Flags: exclusive

[neorom]

Прошу http://us.ua/1060318/

Компиляция не идьот , пишет http://s3.share.te.ua/496852/04.JPG (http://s3.share.te.ua/b496852/04.JPG)

[insombia]

Q: Как сделать, чтобы при распаковке файлов, инсталл убирался в маленькое окошко в углу экрана?
A: Мой вариант выглядит так
[Setup]
AppName=MiniInstall
AppVersion=1.0
DefaultDirName={pf}\MiniInstall

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

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

procedure MiniInstall;
begin
with WizardForm do
begin
Bevel.Hide;
Bevel1.Hide;
MainPanel.Hide;
AutoScroll := False;
ClientHeight := ScaleY(105);
InnerNotebook.Align := alClient;
ProgressGauge.Left := ScaleX(40);
CancelButton.Top := ScaleY(70);
CancelButton.BringToFront;
// ----- Позиция инсталлятора ----- \\
Left:=GetSystemMetrics(16)-Width; // Справа
// Left:=0; // Слева
Top:=GetSystemMetrics(17)-Height; // Внизу
// Top:=0; // Вверху
//----------------------------------\\
end;
end;

procedure RestoreInstall;
begin
with WizardForm do
begin
Bevel.Show;
ClientHeight := ScaleY(360);
Position:=poScreenCenter;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpInstalling: MiniInstall;
wpFinished: RestoreInstall;
end;
end; кто-то может мне сделать чтобы кнопка отмены была в миниинсталле?а то её там нету
скрипт (http://rghost.ru/44408275)

[Tco 03]

Всем привет. Господа знатоки, подскажите, если не сложно. Мне нужно, чтобы программа не устанавливалась ниже XP. Если я напишу так:
if (WindowsVersion.Major < 5) then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK); - так будет правильно?

дай скрипт »
На.

#include "botva2.iss"

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

[Files]
Source: botva2.dll; Flags: dontcopy;
Source: CallbackCtrl.dll; Flags: dontcopy;
Source: 1.png; Flags: dontcopy;

[ Code]
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
if not FileExists(ExpandConstant('{tmp}\1.png')) then ExtractTemporaryFile('1.png');
Result:=True;
end;

procedure InitializeWizard;
begin
ImgLoad(WizardForm.WelcomeLabel2.Handle, ExpandConstant('{tmp}\1.png'), ScaleX(110), ScaleY(70), ScaleX(64), ScaleY(64), True, True);
ImgApplyChanges(WizardForm.WelcomeLabel2.Handle);
end;

procedure DeinitializeSetup;
begin
gdipShutdown;
end;
Библиотеку botva2 от htuos (http://forum.ru-board.com/profile.cgi?action=show&member=htuos) качай тут (http://forum.ru-board.com/topic.cgi?forum=5&topic=36421&start=0&limit=1&m=4#1), ну и разбирайся дальше что да как.

Памагите созтать такой скрипт »
Тоже самое, через botva2 можно реализовать (картинки вставить и так далее)... Что касается рамок - это просто Bevel или скорей всего таже самая картика в формате .png

[insombia]

del

[Johny777]

Что касается рамок - это просто Bevel»
нет, это самый натуральный TNewGroupBox на этом скрине http://forum.oszone.net/post-2107907-1837.html
аж три раза! :) Удобная штука. Посмотри в дизайнере, если интересно
Мне нужно, чтобы программа не устанавливалась ниже XP. Если я напишу так:
if (WindowsVersion.Major < 5) then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK); - так будет правильно? »
даже не знаю
MajorVersion = 5 есть и у винды 2000 и 2003 а они старее XP. Короче вот код на определение версии винды. Не стал пользоваться встроенной
procedure GetWindowsVersionEx(var Version: TWindowsVersion); тк она сама использует вин апишную GetVersionEx + ещё какие-то процедуры/функции для заполнения нижних частей структуры TWindowsVersion (инфа о сервиспаке и тп)
короче если нужна чисто версия винды так будет быстрее, при работе напрямую с GetVersionEx(...) :

#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

type
WindowsVersion = (Windows2000, Windows2003, WindowsXP, WindowsVista, Windows7, Windows8);

_OSVERSIONINFO = record
dwOSVersionInfoSize: DWORD;
dwMajorVersion: DWORD;
dwMinorVersion: DWORD;
dwBuildNumber: DWORD;
dwPlatformId: DWORD;
szCSDVersion: array[0..127] of Char;
end;

function GetVersionEx(var lpVersionInformation: _OSVERSIONINFO): BOOL; external 'GetVersionEx{#A}@kernel32.dll stdcall';

function GetWindowsVersion(): WindowsVersion;
var
VersionInformation: _OSVERSIONINFO;
begin
VersionInformation.dwOSVersionInfoSize := SizeOf(VersionInformation);
if not GetVersionEx(VersionInformation) then Exit;
case VersionInformation.DwMajorVersion of
5: case VersionInformation.DwMinorVersion of
0: Result := Windows2000;
1: Result := WindowsXP;
2: Result := Windows2003;
end;
6: case VersionInformation.DwMinorVersion of
0: Result := WindowsVista;
1: Result := Windows7;
2: Result := Windows8;
end;
end;
end;



procedure InitializeWizard();
begin
if GetWindowsVersion = Windows7 then MsgBox('Windows7', mbInformation, MB_OK);
if GetWindowsVersion = WindowsXP then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK);
end;

Johny777 не могли бы Вы его, пожалуйста, отрехтовать »
в шапке уже есть пример. Там правда можно убрать каллбэк библиотеку, тк CallBackAddr('имя процедуры/функции') встроенная в расширенную инно тоже вернёт адрес нужной процедуры/функции. Как это сделать есть у меня в примере да и много где ещё. Я б сам сделал, но времени у меня уже нет :( и думаю появится оно у меня очень нескоро

[neorom]

insombia ну что там из скриптом, роботаєт ?(видали лишні повідомлення з скринки, бо в тебе переповнена вона і я не можу написати тобі повідомлення.)

[habib2302]

Tco 03, и дай скрипт только для деинсталлятора

[bosenkov5]

помогите сделать так чтобы в инсталяторе менялись картиники ну хотя бы две
у меня так:
первая картинка (http://i51.fastpic.ru/big/2013/0312/98/3d70277b6e51e617050de011acb5a398.png)
предпоследняя картинка (http://i51.fastpic.ru/big/2013/0312/b0/5c4ca86ec0104459bf7099e38a069fb0.png)

[alert30]

bosenkov5, http://forum.oszone.net/thread-235078.html

А для фоновых рисунокв в инсталляторе используй программу GameScript Generator, он по Вашим подчинениям запишет автоматом все в скрипт Inno Setup.

[neorom]

Tco 03 прошу, єсли можеш, поможи из скриптом (я Inno Setup только начал розбератся, и пока все я непонемаю)

[bosenkov5]

alert30, как это автоматом?

[Tco 03]

Ну у Вас и манеры, мистер habib2302 :kruto:
Tco 03, и дай скрипт только для деинсталлятора »
Что именно тебе дать, только скрипт деинсталлятора? Или скрипт деинсталлятора приправленный botva2 ?

Tco 03 прошу, єсли можеш, поможи из скриптом (я Inno Setup только начал розбератся, и пока все я непонемаю) »
Тут есть люди, которые разбираются куда больше меня... :boast:
Вот, могу предложить скрип, изучив его у Вас должно всё получиться.

[Languages]
Name: en; MessagesFile: compiler:Default.isl
Name: nl; MessagesFile: compiler:Languages\Dutch.isl
Name: de; MessagesFile: compiler:Languages\german.isl
Name: fr; MessagesFile: compiler:Languages\french.isl
Name: es; MessagesFile: compiler:Languages\spanish.isl
Name: po; MessagesFile: compiler:Languages\PortugueseStd.isl
Name: ko; MessagesFile: compiler:Languages\korean.isl

[Types]
Name: full; Description: Complete Install
Name: upgr; Description: Upgrade RC18
Name: serv; Description: Server Only
Name: servup; Description: Server Upgrade
Name: view; Description: Viewer Only
Name: viewup; Description: Viewer Upgrade
Name: custom; Description: Custom; Flags: iscustom

[Components]
Name: server; Description: UltraVNC Server; Types: full upgr serv servup; Flags: disablenouninstallwarning
Name: server/install; Description: Install; Types: full serv; Flags: disablenouninstallwarning exclusive
Name: server/upgrade; Description: Upgrade RC18; Types: upgr servup; Flags: disablenouninstallwarning exclusive
Name: viewer; Description: UltraVNC Viewer; Types: full upgr view viewup; Flags: disablenouninstallwarning
Name: viewer/install; Description: Install; Types: full view; Flags: disablenouninstallwarning exclusive
Name: viewer/upgrade; Description: Upgrade RC18; Types: upgr viewup; Flags: disablenouninstallwarning exclusive
Name: repeater; Description: UltraVNC Repeater; Types: full; Flags: disablenouninstallwarning
Name: driver; Description: UltraVNC Download Video Driver; MinVersion: 0,5.0.2195; Types: full serv; Flags: disablenouninstallwarning
Name: encrypt; Description: UltraVNC Download Encryption Plugin; Types: full serv view; Flags: disablenouninstallwarning

[Tasks]
Name: installservice; Description: &Register Ultr@VNC Server as a system service; GroupDescription: Server configuration:; Components: server; Flags: unchecked exclusive
Name: startservice; Description: &Start or restart Ultr@VNC service; GroupDescription: Server configuration:; Components: server; Flags: unchecked; MinVersion: 0,1
Name: desktopicon; Description: Create a Ultr@VNC &Viewer desktop icon; GroupDescription: Additional icons:; Components: viewer
Name: desktopicon2; Description: Create a Ultr@VNC &Server desktop icon; GroupDescription: Additional icons:; Components: server
Name: desktopicon3; Description: Create a Ultr@VNC &Repeater desktop icon; GroupDescription: Additional icons:; Components: Repeater
Name: associate; Description: &Associate .vnc files with Ultr@VNC Viewer; GroupDescription: File Associations:; Components: viewer


[Files]
Source: vnchooks.dll; DestDir: {app}; Components: server; Flags: ignoreversion restartreplace
Source: VNCHooks_Settings.reg; DestDir: {app}; Components: server; Flags: ignoreversion
Source: Licence.txt; DestDir: {app}
Source: vncddihk.dll; DestDir: {app}; Components: server; MinVersion: 4.0.1111,0; Flags: ignoreversion
Source: 16bithlp.exe; DestDir: {app}; MinVersion: 4.0.1111,0; Components: server; Flags: ignoreversion
Source: workgrpdomnt4.dll; DestDir: {app}; Components: server; Flags: ignoreversion
Source: authadmin.dll; DestDir: {app}; Components: server; Flags: ignoreversion
Source: winvnc.exe; DestDir: {app}; Components: server; Flags: ignoreversion restartreplace
Source: vncviewer.exe; DestDir: {app}; Flags: ignoreversion; Components: viewer
Source: Whatsnew.txt; DestDir: {app}
Source: Readme.txt; DestDir: {app}
Source: ldapauth.dll; DestDir: {app}; Flags: ignoreversion; Components: server
Source: logmessages.dll; DestDir: {app}; Flags: ignoreversion; Components: server
Source: logging.dll; DestDir: {app}; Flags: ignoreversion; Components: server
Source: ldapauthnt4.dll; DestDir: {app}; Flags: ignoreversion; Components: server
Source: UnZip32.dll; DestDir: {app}; Flags: ignoreversion; Components: viewer server
Source: Zip32.dll; DestDir: {app}; Flags: ignoreversion; Components: viewer server
Source: logging.dll; DestDir: {app}; Components: server; Flags: ignoreversion
Source: ldapauth9x.dll; DestDir: {app}; Flags: ignoreversion; Components: server
Source: repeater.exe; DestDir: {app}; Flags: ignoreversion; Components: Repeater
Source: ldapauth9x.dll; DestDir: {app}; Flags: ignoreversion; Components: server
Source: authSSP.dll; DestDir: {app}; Flags: ignoreversion; Components: server
Source: SecurityEditor.dll; DestDir: {app}; Flags: ignoreversion; Components: server
Source: MSLogonACL.exe; DestDir: {app}; Flags: ignoreversion; Components: server

Source: MSLogonACL.exe; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: SecurityEditor.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: authSSP.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: ldapauth9x.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: repeater.exe; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: ldapauth9x.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: authadmin.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: Zip32.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: UnZip32.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: ldapauthnt4.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: logmessages.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: ldapauth.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: Readme.txt; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: Whatsnew.txt; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: vncviewer.exe; DestDir: {app}; Flags: ignoreversion restartreplace; Components: viewer/upgrade
Source: winvnc.exe; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: logging.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: workgrpdomnt4.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: 16bithlp.exe; DestDir: {app}; Flags: ignoreversion restartreplace; MinVersion: 4.0.1111,0; Components: server/upgrade
Source: vncddihk.dll; DestDir: {app}; Flags: ignoreversion restartreplace; MinVersion: 4.0.1111,0; Components: server/upgrade
Source: Licence.txt; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: VNCHooks_Settings.reg; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: vnchooks.dll; DestDir: {app}; Flags: ignoreversion restartreplace; Components: server/upgrade
Source: vncdrv.dll; DestDir: {sys}; Flags: restartreplace ignoreversion; Components: server/upgrade

Source: {tmp}\install.bat; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\install_silent.bat; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\uninstall.bat; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\uninstall_silent.bat; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\setupdrv.exe; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\vnccom.sys; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\vncdrv.dll; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\vncdrv.inf; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\vncdrv.sys; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\vnchelp.dll; DestDir: {app}\driver; Components: driver; Flags: external skipifsourcedoesntexist
Source: {tmp}\MSRC4Plugin.dsm; DestDir: {app}; Components: encrypt; Flags: external skipifsourcedoesntexist

Source: english.dll; DestDir: {app}; Components: viewer; Languages: nl en; DestName: lang.dll
Source: french.dll; DestDir: {app}; Languages: fr; Components: viewer; DestName: lang.dll
Source: german.dll; DestDir: {app}; Languages: de; Components: viewer; DestName: lang.dll
Source: portugees.dll; DestDir: {app}; Languages: po; Components: viewer; DestName: lang.dll
Source: spanish.dll; DestDir: {app}; Languages: es; Components: viewer; DestName: lang.dll
Source: korean.dll; DestDir: {app}; Languages: ko; Components: viewer; DestName: lang.dll
Source: english.dll; DestDir: {app}\lang; Components: viewer
Source: french.dll; DestDir: {app}\lang; Components: viewer
Source: german.dll; DestDir: {app}\lang; Components: viewer
Source: portugees.dll; DestDir: {app}\lang; Components: viewer
Source: spanish.dll; DestDir: {app}\lang; Components: viewer
Source: korean.dll; DestDir: {app}\lang; Components: viewer

[habib2302]

Tco 03, чтобы лого срабатывало во время удаления тоже без фона (с botva2)
тем более в том скрипте выдает ошибку.вот скрин с ошибкой
http://i53.fastpic.ru/big/2013/0312/0d/c1b8569020d45624cbb578b5ca7c550d.png (http://i51.fastpic.ru/big/2013/0312/53/c4a92e11fb25856125747cec795ccf53.png)

[Tco 03]

тем более тот скрипт который ты мне дал,он не работает!!! »
То что я тебе дал ещё как работает! А вот куда ты его впиндюрил, тем более на обычный инсталл, естественно работать не будет.
Я тебе дал просто пример и сказал: -"Дальше разбирёшься сам".
botva2 в идеале работает с:
OuterNotebook.Hide;
InnerNotebook.Hide;
И если ты скачал библиотеку по той ссылке, по которой я тебя отправил, читай справку находящуюся в этой библиотеки. Там всё почти подробно описано. Чесно говоря не знаю в какой версии, но и пример деинсталлятора тоже идёт вместе с библиотекой.

Добавленно:
В моём примере я написал: #include "botva2.iss" то есть нужно подключить модуль botva2, скрипт ботвы должен находиться рядом с твоим скриптом. Или же в свой скрипт вписывай то, что тебе нужно. В твоём случаи это всего лишь:
function ImgLoad(Wnd :HWND; FileName :PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@files:botva2.dll stdcall delayload';
procedure ImgApplyChanges(h:HWND); external 'ImgApplyChanges@files:botva2.dll stdcall delayload';

И не забуть добавить:
procedure gdipShutdown; external 'gdipShutdown@files:botva2.dll stdcall delayload';

procedure DeinitializeSetup();
begin
gdipShutdown;
end;

А то наделаешь косячных репаков: Для справки: gdipShutdown; выгружает botva2.dll без этой фунции, временная папка созданная Inno, не удалиться!

[habib2302]

Tco 03, выдает ошибку
http://i51.fastpic.ru/big/2013/0312/f5/4ae58f789810a4a5f946d15afaadc0f5.png (http://i52.fastpic.ru/big/2013/0312/14/2beba07d6f0bd66425568e17d60f9814.png)

[Tco 03]

habib2302
Специально для тебя, чтобы ты не порочил моё доброе имя :hi:
Незабудь только добавить:
procedure DeinitializeSetup();
begin
gdipShutdown;
end;
P.S. Только не говори, что лейблы криво отображаются! Создавай свои или поправляй имеющийся! :moil:

[alert30]

как это автоматом? »
Скачайте эту программу, сделайте Ваш слайд-шоу и сохраните. Сохраняется в скрипт Inno Setup.
Ну "автоматом", это я придумал, более этого смысла не мог подумать.

[neorom]

Тут есть люди, которые разбираются куда больше меня... »
Да я вижу, людей здесь очень много коториє готови помочь мне но ни один что то и досехпор реально не помог ...