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

[palsn2000]

kotyarko@fb, Чтобы не быть голословным решил скинуть пример (пришлось всё слепить в одну папку для удобства)

Выкладываю архив Скрипт.zip с набором файлов для примера (для компиляции использую расширенную версию Ansi от restools с препроцессором)

17 и 18 строки:

//#include "Soft\ISS\Code\5_Слайдшоу_IW4_DS3_CPC2.iss" ;;;; IW4 DS3 CPC2 --> изначальный вариант (работает, но приходится вручную править список файлов в зависимости от их количества)
#include "Soft\ISS\Code\6_Слайдшоу_IW4_DS3_CPC2.iss" ;;;; IW4 DS3 CPC2 --> вариант, предложенный El Sanchez (тут я не могу разобраться с параметром i - отсюда, видимо, и возникают ошибки).

[kotyarko@fb]

palsn2000, "Soft\ISS\Code\6_Слайдшоу_IW4_DS3_CPC2.iss": в процедуре CurStepChanged не закрыты операторные скобки (не хватает одного end).

Работоспособность скрипта проверить не удалось, скрин прикреплён.

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

[nik1967]

palsn2000, end; пропустил в 6_Слайдшоу_IW4_DS3_CPC2.iss.
[Files]
; Файлы заставки
Source: SlideShou\*; DestDir: {tmp}; Flags: dontcopy deleteafterinstall noencryption nocompression;
Source: Soft\ISS\Resource\isgsg_0.6.0.69.dll; DestDir: {tmp}; DestName: isgsg.dll; Flags: dontcopy deleteafterinstall noencryption nocompression overwritereadonly

[Code]
//Слайд шоу
var
I : Integer;

const
Indent=25;

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):boo lean; external 'ssInitialize@files:isgsg.dll stdcall delayload';
procedure ssDeInitialize; external 'ssDeInitialize@files:isgsg.dll stdcall delayload';
procedure ssAddImage(FileName:PAnsiChar); external 'ssAddImage@files:isgsg.dll stdcall delayload';
procedure ssStartShow; external 'ssStartShow@files:isgsg.dll stdcall delayload';
procedure ssStopShow; external 'ssStopShow@files:isgsg.dll stdcall delayload';
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';

procedure InitializeWizard4();
begin
ssInitialize(GetWindowLong(MainForm.Handle,-8),8,False,1,$FF000000);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall then begin
try
while True do
begin
ExtractTemporaryFile(Format('Screen (%d).jpg', [i + 1]));
ssAddImage(ExpandConstant(Format('{tmp}\Screen (%d).jpg', [i + 1])));
i := i + 1;
end;
except {no exception}
finally
if i > 0 then
ssStartShow;
end;
if CurStep=ssPostInstall then ssStopShow;
end;
end;

procedure CurPageChanged2(CurPageID: Integer);
begin
if CurPageID=wpInstalling then begin
WizardForm.MainPanel.Visible:=False;
WizardForm.Bevel1.Visible:=False;
WizardForm.Width:=ScaleX(395);
WizardForm.Height:=ScaleY(142);
WizardForm.Left:=ScaleX(GetSystemMetrics(0)-WizardForm.Width-Indent);
WizardForm.Top:=ScaleY(GetSystemMetrics(1)-WizardForm.Height-Indent);
WizardForm.InnerNotebook.Left:=ScaleX(10);
WizardForm.InnerNotebook.Top:=ScaleY(10);
WizardForm.InnerNotebook.Width:=ScaleX(370);
WizardForm.StatusLabel.Left:=ScaleX(0);
WizardForm.StatusLabel.Top:=ScaleY(0);
WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.FileNameLabel.Left:=ScaleX(0);
WizardForm.FileNameLabel.Top:=ScaleY(20);
WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.ProgressGauge.Top:=ScaleY(40);
WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
WizardForm.CancelButton.Left:=ScaleX(154);
WizardForm.CancelButton.Top:=ScaleY(80);
end;
if (CurPageID=wpFinished) or (CurPageID=wpInfoAfter) then begin
if WizardForm.Width<>502 then begin
WizardForm.Visible:=False;
WizardForm.Width:=ScaleX(502);
WizardForm.Height:=ScaleY(392);
WizardForm.Left:=(GetSystemMetrics(0)-WizardForm.Width) div 2;
WizardForm.Top:=(GetSystemMetrics(1)-WizardForm.Height) div 2;
WizardForm.MainPanel.Visible:=True;
WizardForm.Bevel1.Visible:=True;
WizardForm.InnerNotebook.Left:=ScaleX(40);
WizardForm.InnerNotebook.Top:=ScaleY(72);
WizardForm.InnerNotebook.Width:=ScaleX(417);
WizardForm.Visible:=True;
end;
end;
end;

procedure DeinitializeSetup3();
begin
ssDeInitialize;
end;

С помощью какого тэга сделать код inno разноцветным?
Хе, опоздал. Ну и ладно, пусть будет. Я кстати тоже замаялся J:\ отрезать. Кстати, папка в temp не удаляется - остаётся Screen (3).jpg

[kotyarko@fb]

С помощью какого тэга сделать код inno разноцветным? »
Глобальный переключатель находится в меню Tools>Editor Options...>Options>Use syntax highlighting.
Конкретно цвета в: Tools>Editor Options...>Script colors \ [Code] colors.

[kotyarko@fb]

да я про местный форум интересовался. Как здесь это сделать. »
Как и везде, только форматом bb-кодов: [*code][/code] (без "*").

[Dodakaedr]

nik1967, ;#define Video
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
WizardImageFile=Fon.bmp
OutputBaseFilename=2

[Files]
Source: compiler:Dll Pack\IsPicture_for_all.dll; Flags: dontcopy
Source: Fon.bmp; Flags: dontcopy
#ifdef Video
Source: XVID\fon.avi; Flags: dontcopy
#endif


[Code]
//-----------------------------------------
procedure Initialize(AhWnd,BhWnd:hWnd);external 'Initialize@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Здесь указываем хендлы окон, на данный момент, лучше пока указывать
// WizardForm.Handle - первым и MainForm.Handle вторым.
//-----------------------------------------
procedure XvidVideo(fn:String;Seth:string);external 'XvidVideo@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Эта процедура загружает фоновое avi-видео.
// Seth - задаем координаты через пробел в одинарных кавычках
// пример: XvidVideo(ExpandConstant('{tmp}\fon.avi'), '351 201 236 132');
//-----------------------------------------
procedure Deinitialize;external 'Deinitialize@{tmp}\IsPicture_for_all.dll stdcall delayload';
// отменяет свзывание форм между собой, выгружает видео.

//-----------------------------------------
function NewFont(Height:Integer;thickness,italic,underline,strikeout:DWORD;name:String):hWnd;external 'NewFont@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Создает шрифты для замены стандартных. Необходима для борьбя с артефактами сглаживания.
// Height, // высота шрифта
// thickness, // насыщенность шрифта
// italic, // курсив
// underline, // Подчеркнутый
// strikeout, // Зачеркнутый
// name // имя шрифта
//-----------------------------------------
procedure SplashWnd(FileName:PAnsiChar;Time,width,height:Integer);external 'SplashWnd@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Создает Splash-заставку
// Прозрачность, пока, не поддерживается
// FileName, // имя файла
// Time, // скорость появления в миллисекундах
// width, // ширина
// height, // высота
procedure EndSplash(Time1,Time2:Integer);external 'EndSplash@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Закрываем Splash-заставку
// Time1, // выжидание до закрытия в миллисекундах
// Time, // скорость закрытия в миллисекундах
//-----------------------------------------
//-----------------------------------------


http://i74.fastpic.ru/thumb/2015/1029/ba/d4f375249164acbe22d88483d6a5b2ba.jpeg (http://fastpic.ru/view/74/2015/1029/d4f375249164acbe22d88483d6a5b2ba.jpg.html)

[Dodakaedr]

nik1967, расширенная от restools или вручную "все делать"
Но здесь на форуме явно какой-то свой тэг есть. »
Ссылочка Теги форума (http://forum.oszone.net/misc.php?do=bbcode) над полем комментария (быстрый ответ)

[palsn2000]

kotyarko@fb, извините, за пути к файлам с буквой диска - основной скрипт исправил, а про блоки кода, подхватываемые препроцессором забыл.
J:\Soft\ISS\Resource\btnimage.bmp -- > это в данном случае должно было быть Soft\ISS\Resource\btnimage.bmp

На всякий случай исправил и перепаковал архив -- может быть кому-то пригодится для примера.

[Nordek]

nik1967, "Правая кнопка мыши » Копировать как UBB код."
Данный пункт доступен на уровне расширенной версии Inno.

http://i74.fastpic.ru/thumb/2015/1029/ba/d4f375249164acbe22d88483d6a5b2ba.jpeg (http://i74.fastpic.ru/big/2015/1029/ba/d4f375249164acbe22d88483d6a5b2ba.jpg)»
Только для начала нужно сделать следующее:
"Инструменты » Настройки редактора » Копирование текста"
Поставьте флажок напротив "Использовать тег "
Для того, чтоб вместо тега цитаты
[Setup]
AppName=My Program
AppVersion=1.5
AppPublisher=My Company, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

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


был задействован тег [code]
[Setup]
AppName=My Program
AppVersion=1.5
AppPublisher=My Company, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

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


Далее снимите флажки с "Вставлять имя файла" и "Вставлять время создания"

Для того, чтоб исключить из заголовка "Имя_скрипта.iss, Дата и время".
[Setup]
AppName=My Program


т.е
[Setup]
AppName=My Program



"имя.iss, дата и время" допустимо для тега
[Setup]
AppName=My Program
AppVersion=1.5
AppPublisher=My Company, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

но не для тега т.к получится нелепая обработка.
При добавлении в сообщение вы сами заметите:
[Setup]
AppName=My Program
AppVersion=1.5
AppPublisher=My Company, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[hr]

Далее:
В одном случае по желанию: Т.е дополнительная обработка, а именно:
В начале удаление , в конце удаление .
В первом случае шрифт в теге ненужен: По-умолчанию используется шрифт HTML тега <pre></pre>
Во втором случае цвет (чёрный), цвет без тега чёрный.
В другом случае [Сode] не жирный как в редакторе Inno, либо вовсе повторяет код форума.
В лучшем случае если в тег [Сode] будет добавлен дополнительный тег , т.е: [Code], иначе самостоятельное указание [Code] чтоб не сливался тег c секцией [Code] из скрипта.

[habib2302]

Доброе время суток. Как сделать, если отсутствует файл с импортируемыми настройками инсталлятор не выполнял команду в разделе Run.
[Run]
Filename: {app}\USBSRService.exe; Parameters: "/loadsettings {src}\Settings.opt"; Flags: RunHidden;

[Dodakaedr]

Как сделать, если отсутствует файл »
Сделай проверку на файл[Run]
Filename: {app}\USBSRService.exe; Parameters: "/loadsettings {src}\Settings.opt"; Check: FileExists('{src}\Settings.opt'); Flags: RunHidden;

[habib2302]

Dodakaedr, только почему-то из-за этой проверки не срабатывает команда, но при этом файл лежит рядом с инстайллом
[Run]
Filename: {app}\{#Exe}; Parameters: "/loadsettings ""{src}\USBSafelyRemoveSettings.opt"""; Check: FileExists('{src}\USBSafelyRemoveSettings.opt');

[nik1967]

habib2302, а точно с инсталлятором, т.е. Setup.exe? По умолчанию данный файл создаётся в папке Output. Что бы Setup.exe создавался в той же папке, где запущен скрипт, в секции [Setup] нужно прописать OutputDir=. Т.е.
[Setup]
OutputDir=.

[habib2302]

nik1967, я просто для проверки работает ли эта команда убрал проверку и сработало. а файл с настройками лежит в папке \Output радом с инсталлятором
http://savepic.ru/8105255.png (http://savepic.ru/8104231.png)
; Скрипт создан через Мастер Inno Setup Script.
; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP!

#define MyAppName "USB Safely Remove"
#define MyAppVersion "5.3.8.1233"
#define Exe "USBSafelyRemove.exe"
#include "WinTB.iss"
#include "botva2.iss"

[Setup]
; Примечание: Значение AppId идентифицирует это приложение.
; Не используйте одно и тоже значение в разных установках.
; (Для генерации значения GUID, нажмите Инструменты | Генерация GUID.)
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=true
OutputBaseFilename={#MyAppName} {#MyAppVersion} RePack by Pilot
SetupIconFile=ico.ico
Compression=lzma2/Ultra64
InternalCompressLevel=Ultra64
SolidCompression=true
ShowLanguageDialog=yes
UninstallDisplayIcon={uninstallexe}
RawDataResource=Botva:botva2.dll|b2p:b2p.dll|Logo:logo.png|bPic:bPic.png|LiPic:LiPic.png
AppModifyPath={app}
VersionInfoProductName={#MyAppName}
DirExistsWarning=no
DisableReadyPage=true
AppID={#MyAppName}
VersionInfoDescription={#MyAppName} RePack by Pilot
AppCopyright=Pilot © 2015
VersionInfoVersion={#MyAppVersion}
VersionInfoProductVersion={#MyAppVersion}
VersionInfoCopyright=Pilot © 2015
UninstallDisplayName={#MyAppName}
ComponentsListTVStyle=true
ShowComponentSizes=false
DisableProgramGroupPage=yes
InfoBeforeFile=Info.rtf
DisableWelcomePage=true
RestartIfNeededByRun=false

[Languages]
Name: "R"; MessagesFile: "Russian.isl"
Name: "E"; MessagesFile: "English.isl"
Name: "U"; MessagesFile: "Ukrainian.isl"

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

[Tasks]
Name: ic; Description: {cm:AdditionalIcons}; Components: USBSR\I;
Name: ic\desktop; Description: {cm:CreateDesktopIcon}; Components: USBSR\I;
Name: ic\group; Description: {cm:CreateStartMenuIcon}; Components: USBSR\I;
Name: ic\quicklaunch; Description: {cm:CreateQuickLaunchIcon}; OnlyBelowVersion: 0,6.1; Components: USBSR\I; Flags: unchecked
Name: ic\taskbar; Description: {cm:PinTaskbarIcon}; MinVersion: 0.0,6.1.7600; Components: USBSR\I; Flags: unchecked
Name: ic\startmenu; Description: {cm:PinStartMenuIcon}; MinVersion: 0.0,6.1.7600; Components: USBSR\I; Flags: unchecked

[Components]
Name: USBSR; Description: {#MyAppName}; Flags: fixed disablenouninstallwarning; Types: full;
Name: USBSR\I; Description: Установить {#MyAppName}; Flags: exclusive disablenouninstallwarning

[Files]
;Файлы распаковываемые в папку с игрой. Необходимы для деинсталлятора;
Source: WinTB.dll; Flags: dontcopy;
Source: bat.exe; Flags: dontcopy;
; Примечание: Не используйте "Flags: ignoreversion" для системных файлов
Source: {app}\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs;
Source: x64\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64;
Source: x86\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Check: not IsWin64;

[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#Exe}; Components: USBSR\I; Tasks: ic\group;
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}; Components: USBSR\I; Tasks: ic\group;
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#Exe}; Components: USBSR\I; Tasks: ic\desktop;
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#Exe}; Components: USBSR\I; Tasks: ic\quicklaunch;

[Run]
Filename: {app}\USBSRService.exe; Parameters: "/install /silent"; Flags: RunHidden;
Filename: {app}\USBSafelyRemove.exe; Parameters: "/loadsettings ""{src}\USBSafelyRemoveSettings.opt"""; Check: FileExists('{src}\USBSafelyRemoveSettings.opt');
Filename: "http://repackbypilot.blogspot.com"; Description: Посетить сайт автора.; Flags: shellexec nowait postinstall skipifsilent unchecked

[Registry]
Root: HKCU; Subkey: Software\Microsoft\Windows\CurrentVersion\Run; ValueName: USB Safely Remove; ValueData: {app}\{#Exe} /startup; MinVersion: 0.0,5.0; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers; ValueName: {app}\{#Exe}; ValueType: String; ValueData: DisableNXShowUI; MinVersion: 0.0,5.0; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\NoExecuteState; ValueName: LastNoExecuteRadioButtonState; ValueType: Dword; ValueData: "$36BD"; MinVersion: 0.0,5.0; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; Subkey: SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers; ValueName: {app}\{#Exe}; ValueType: String; ValueData: DisableNXShowUI; MinVersion: 0.0,5.0; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; SubKey: Software\SafelyRemove\Options; ValueType: string; ValueName: LangFileName; ValueData: Russian; Languages: R; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; SubKey: Software\SafelyRemove\Options; ValueType: string; ValueName: LangFileName; ValueData: English; Languages: E; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; SubKey: Software\SafelyRemove\Options; ValueType: string; ValueName: LangFileName; ValueData: Ukrainian; Languages: U; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; Subkey: Software\SafelyRemove\Main; ValueName: FirstRunDT; MinVersion: 0.0,5.0; Flags: deletevalue
Root: HKCU; Subkey: Software\SafelyRemove\Main; ValueName: RunCount; MinVersion: 0.0,5.0; Flags: deletevalue
Root: HKCU; Subkey: Software\SafelyRemove\Stat; ValueName: StatString; MinVersion: 0.0,5.0; Flags: deletevalue
Root: HKCU; Subkey: Software\SafelyRemove\Main; ValueName: TotalRunSeconds; MinVersion: 0.0,5.0; Flags: deletevalue
Root: HKCU; Subkey: Software\SafelyRemove\Main; ValueName: FirstRunDTRaw; MinVersion: 0.0,5.0; Flags: deletevalue

[UninstallRun]
Filename: sc.exe; Parameters: "stop USBSafelyRemoveService"; Flags: RunHidden;
Filename: taskkill; Parameters: "/f /im USBSafelyRemove.exe"; Flags: RunHidden;
Filename: taskkill; Parameters: "/f /im USBSRService.exe"; Flags: RunHidden;
Filename: {app}\USBSRService.exe; Parameters: "/uninstall /silent"; Flags: RunHidden;

[Code]
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

#define A = (Defined UNICODE) ? "W" : "A"

const
///////////////////////////////////Относится к лого и изображениям мастера
RT_RCDATA = 10;
LOAD_LIBRARY_AS_DATAFILE = $2;

var
///////////////////////////////////Лого и изображения
lPLogo, bPicHandle, bPicHandle2, lPicHandle: THandle;
BtnImage: TBitmapImage;
///////////////////////////////////////////
iInitialize: Boolean;

///////////////////////////////////Ресурсы(относится к лого и изображениям мастера)
function GetFromRes(const ResName, SaveFileName: String): Boolean;
var
lResStream: TResourceStream;
begin
lResStream := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
try
lResStream.SaveToFile(AddBackslash(ExpandConstant('{tmp}')) + SaveFileName);
finally
lResStream.Free;
Result := FileExists(AddBackslash(ExpandConstant('{tmp}')) + SaveFileName);
end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
end;

function InitializeSetup(): Boolean;
var ResultCode:integer;
begin
ExtractTemporaryFile('bat.exe')
if FileExists (ExpandConstant('{tmp}\bat.exe')) then
Exec(ExpandConstant('{tmp}\bat.exe'), '', '', SW_SHOW,ewWaitUntilTerminated, ResultCode);
result:=true;
end;

procedure InitializeWizard;
begin
with WizardForm do
begin
///////////////////////////////////Логотип и изображения мастера
iInitialize := True;
if GetFromRes('_IS_BOTVA', 'botva2.dll') and GetFromRes('_IS_B2P', 'b2p.dll') and GetFromRes('_IS_LOGO', 'logo.png') and GetFromRes('_IS_BPIC', 'bPic.png') and GetFromRes('_IS_LIPIC', 'LiPic.png') then
begin
///////////////////////////////////Изображения
bPicHandle := ImgLoad(FinishedPage.Handle, ExpandConstant('{tmp}\bPic.png'), WizardBitmapImage2.Left, WizardBitmapImage2.Top, WizardBitmapImage2.Width, WizardBitmapImage2.Height, True, True);
WizardBitmapImage2.Hide;
ImgSetVisibility(bPicHandle, True);
ImgApplyChanges(FinishedPage.Handle);

lPicHandle := ImgLoad(MainPanel.Handle, ExpandConstant('{tmp}\LiPic.png'), WizardSmallBitmapImage.Left, WizardSmallBitmapImage.Top, WizardSmallBitmapImage.Width, WizardSmallBitmapImage.Height, True, True);
WizardSmallBitmapImage.Hide;
ImgSetVisibility(lPicHandle, True);
ImgApplyChanges(MainPanel.Handle);
DiskSpaceLabel.Hide;
ComponentsDiskSpaceLabel.Hide;
////////////////////////////////////////////

///////////////////////////////////Логотип

lPLogo:= ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(320), ScaleX(118), ScaleY(35), True, True);
ImgApplyChanges(WizardForm.Handle);
end;

///////////////////////////////////WinTB
ExtractTemporaryFile('WinTB.dll');
TaskBarV10(MainForm.Handle, WizardForm.Handle, false, false, 0, 0, _m_);
//////////////////////////////////////

with TLabel.Create(WizardForm) do
begin
Parent:=WizardForm;
AutoSize:=False;
Transparent:= true;
SetBounds(ScaleX(20), ScaleY(320), ScaleX(118), ScaleY(35));
end;
end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID =wpSelectComponents)then
Result:= True;
end;

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';

function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to executable file
// IsPin......: False - unpin from TaskBar, True - pin to TaskBar
var
hInst: THandle;
buf: array [0..255] of Char;
i, res: Integer;
strLnk, strVerb: String;
objShell, colVerbs: Variant;
begin
Result := False;
if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit; { below Windows 7 }

{ String resources }
if IsPin then
begin
if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then
begin
while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
end;
res := 5386; { Pin to Tas&kbar }
end else res := 5387; { Unpin from Tas&kbar }

{ Load string resource }
hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
if hInst <> 0 then
try
for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
try
objShell := CreateOleObject('Shell.Application');
colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
begin
colVerbs.Item[i].DoIt;
Result := True;
Break;
end;
except
Exit;
end;
finally
FreeDLL(hInst);
end;
end;

/////////////////////////////////////////////////////////////////////////
function PinToStartMenu(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to exe- or lnk-file
// IsPin......: False - unpin from StartMenu, True - pin to StartMenu
var
hInst: THandle;
buf: array [0..259] of Char;
i, res: Integer;
strLnk, strVerb: String;
objShell, colVerbs: Variant;
begin
Result := False;
if not FileExists(szFilename) then Exit;
if GetWindowsVersion > $06020000 then Exit; { Window 8 and above }

{ Windows 7 }
if (GetWindowsVersion >= $06010000) and boolean(SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0)) then
begin
while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\') + ExtractFileName(strLnk)) then Exit;
end;

{ String resources }
if IsPin then
res := 5381 { Pin to Start Men&u }
else
res := 5382; { Unpin from Start Men&u }

{ Load string resource }
hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
if hInst <> 0 then
try
for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
try
objShell := CreateOleObject('Shell.Application');

{ below Windows 7 }
if GetWindowsVersion < $06010000 then
begin
objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).InvokeVerb(str Verb);
Result := True;
end;

{ Windows 7 }
if GetWindowsVersion >= $06010000 then
begin
colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
begin
colVerbs.Item[i].DoIt;
Result := True;
Break;
end;
end;
except
Exit;
end;
finally
FreeDLL(hInst);
end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
Case CurPageID of
wpFinished:
begin
if IsTaskSelected('ic\taskbar') then
PinToTaskbar(ExpandConstant('{app}\{#Exe}'), True);
if IsTaskSelected('ic\startmenu') then
PinToStartMenu(ExpandConstant('{app}\{#Exe}'), True);
end;
wpSelectTasks:
if IsComponentSelected('USBSR\I') then
begin
WizardForm.NextButton.Caption:= SetupMessage(msgButtonInstall);
end;
end;
end;

procedure DeinitializeSetup();
begin
if iInitialize then
begin
gdipShutdown;
TaskBarDestroy;
end;
end;

procedure InitializeUninstallProgressForm;
begin
with UninstallProgressForm do
begin
///////////////////////////////////Логотип и изображения мастера
if GetFromRes('_IS_BOTVA', 'botva2.dll') and GetFromRes('_IS_B2P', 'b2p.dll') and GetFromRes('_IS_LOGO', 'logo.png') and GetFromRes('_IS_LIPIC', 'LIPic.png') then
begin
///////////////////////////////////Изображения
lPicHandle := ImgLoad(MainPanel.Handle, ExpandConstant('{tmp}\LiPic.png'), WizardSmallBitmapImage.Left, WizardSmallBitmapImage.Top, WizardSmallBitmapImage.Width, WizardSmallBitmapImage.Height, True, True);
WizardSmallBitmapImage.Hide;
ImgSetVisibility(lPicHandle, True);
ImgApplyChanges(MainPanel.Handle);

///////////////////////////////////Логотип
lPLogo:= ImgLoad(UninstallProgressForm.Handle, ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(320), ScaleX(118), ScaleY(35), True, True);
ImgApplyChanges(UninstallProgressForm.Handle);
end;

with TLabel.Create(nil) do
begin
Parent:=UninstallProgressForm;
AutoSize:=False;
Transparent:= true;
SetBounds(ScaleX(20), ScaleY(320), ScaleX(118), ScaleY(35));
end;
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
instPath: string;
begin
case CurUninstallStep of
usUninstall:
begin
PinToTaskbar(ExpandConstant('{app}\{#Exe}'), False);
PinToStartMenu(ExpandConstant('{app}\{#Exe}'), False);
end;
end;
end;

procedure DeinitializeUninstall();
begin
if iInitialize then gdipShutdown;
end;

[UninstallDelete]
Name: {app}; Type: filesandordirs;

[Messages]
BeveledLabel=RePack by Pilot

[Dodakaedr]

только почему-то из-за этой проверки не срабатывает команда, но при этом файл лежит рядом с инстайллом »
Ну а чуть подумать?
[Run]
Filename: {app}\{#Exe}; Parameters: "/loadsettings ""{src}\USBSafelyRemoveSettings.opt"""; Check: FileExists(ExpandConstant('{src}\USBSafelyRemoveSettings.opt'));

[habib2302]

Dodakaedr, сори... не обратил внимания

[ZVSRus]

Dodakaedr,
Есть код возвращения исходного пути установки и распаковки, не могу найти где ошибка.
Помогите исправить.

Сам код:
procedure dirBackClick(Sender: TObject);
begin
Edit.Text:=AddBackslash(ExpandConstant('{pf}\')+'ACD Systems');
DirTreeView.ChangeDirectory(AddBackslash(ExpandConstant('{pf}\')), True);
if Portable.Checked then
Edit.Text:=(ExpandConstant('{src}\')+'ACDSeePortable');
DirTreeView.ChangeDirectory(AddBackslash(ExpandConstant('{src}\')), True);
end;

[Dodakaedr]

ZVSRus, где (как) вы используете процедуру dirBackClick?

[ZVSRus]

Используется в function InitializeSetup(): Boolean;

[Dodakaedr]

Используется в function InitializeSetup(): Boolean; »
уже не правильно! Покажите ваш скрипт.