[pr-lp]

Может кто подскажет,накопилось ряд вапросов (какие параметры задавать в скрипте):
1).Что нужно указать чтоб к примеру при сжатие инно пропускал некоторые фаилы,папки и не сжиал их,а оставлял в оригинальном размере
2).Где надо указать и какой параметр чтоб фаилы запакованые извлекались не в паку каторый инно сам себе создаст а в уже созданную папку ,вот пример :
[Setup]
AppName=Splinter Cell Double Agent
AppVerName=Splinter Cell Double Agent
AppPublisher=Carter_2006,Inc.
DefaultDirName={pf}\Splinter Cell Double Agent
DefaultGroupName=Splinter Cell Double Agent
OutputBaseFilename=Setup
UninstallStyle=classic
Compression=lzma/ultra
DiskSpanning= yes
DiskSliceSize=733989400
SlicesPerDisk=3
VersionInfoCompany=carter
VersionInfoDescription=Splinter Cell Double Agent
VersionInfoVersion=2.0

[Tasks]
; NOTE: The following entry contains English phrases ("Create a desktop icon" and "Additional icons"). You are free to translate them into another language if required.
Name: "desktopicon"; Description: "Создание иконки на Рабочем Столе"; GroupDescription: "Создание иконки:"; Flags: checkedonce

[Files]
Source: "F:\GAMES\Splinter Cell Double Agent\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files


в данном варианте игра себе создает папку еще и туда скидует фаилы,а мне необходимо чтоб она в корень папки ранее созданной все скидывала
3).К примеру , я сжал группу файлов 7зип ,как сделать чтоб инно распокавал чать файлов и т д ..потом запустил распаковку из этого 7зип ..распаова из 7 зип ..инно продолжил истоляцию дальше ...

4) . если ехе находится не сразу в
карне, а в папке \System ..у меня в
свойствах
ярлыка пути получается к примеру,
"F:\GAMES\Splinter Cell Double Agent\System\SplinterCell4.exe" -ll

а Расположение "F:\GAMES\Splinter Cell Double Agent" ,а надо
"F:\GAMES\Splinter Cell Double Agent\System\" а вот как это прописать я не
пойму (((

[boss911]

pr-lp

1. Flags: nocompression

2. Честно говоря, нечего не понял, может плохо вникнул в вопрос, сори!!

3. Тут лучше упаковать группу файлов в SFX архив и запустить этот архив с необходимым ключами или, можно использовать флаг hidewizard, который скроет окно распаковки файлов, например (SFX 7z):

Код:

[Files]
Source: "C:\SFX.exe"; DestDir: "{app}"; Flags: deleteafterinstall nocompression

[Run]
Filename: "{app}\SFX.exe"; Parameters: "-y"; Flags: waituntilterminated hidewizard

Распаковка SFX архива, произойдет только после извлечения всех файлов из инсталятора Inno!!

4.

Код:

[Icons]
Name: {userdesktop}\Название ярлыка; Filename: {app}\System\SplinterCell4.exe; WorkingDir: {app}\System; Parameters: -ll

[pr-lp]

2. Я уже имею ранее установленную програму,с тем что я описал скрипт, получается что указываеш путь к той папке где уже что то стоит(ранее установленная программа) ,вместо того чтоб файлам извлечься в корень ,создается папка с именем программы и в неё уже извлекаются файлы ,а мне надо чтоб файлы извлекались в корень папки... а в примере скрипта

[Setup]
AppName=ШтырлиЦ-Любимый бюст Гитлера
AppVerName=ШтырлиЦ-Любимый бюст Гитлера
AppPublisher=Carter_2006, Inc.
DefaultDirName={pf}\ШтырлиЦ
DefaultGroupName=ШтырлиЦ-Любимый бюст Гитлера
UninstallDisplayIcon={app}\STRLIZ.exe
OutputBaseFilename=Setup
UninstallStyle=classic
Compression=lzma/ultra
ShowComponentSizes=yes
ShowTasksTreeLines=yes


[Tasks]
; NOTE: The following entry contains English phrases ("Create a desktop icon" and "Additional icons"). You are free to translate them into another language if required.
Name: "desktopicon"; Description: "Создание иконки на Рабочем Столе"; GroupDescription: "Создание иконки:"; Flags: checkedonce

[Files]
Source: "D:\Games\Stirliz\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files


[Icons]
Name: "{group}\ШтырлиЦ-Любимый бюст Гитлера"; Filename: "{app}\STRLIZ.exe"; WorkingDir: "{app}"; IconFilename: "{app}\Icon.ico"
Name: "{group}\Удолить "; Filename: "{uninstallexe}"
Name: "{userdesktop}\ШтырлиЦ-Любимый бюст Гитлера"; Filename: "{app}\STRLIZ.exe";WorkingDir: "{app}" ;Tasks: desktopicon ; IconFilename: "{app}\Icon.ico"


получается что я указываю папку ранее уже созданую примеру D:\Games\Stirliz5\ ..идет извлечение ..получается в папке Stirliz5 папка ШтырлиЦ и в ней уже фаилы ,а надо чтоб afsks извлекались в корень \Games\Stirliz5 ..мне кажется что то надо дописать в секции [Setup] или вообще что не писать чтоб фаилы запакованые в инно извлекались не в каталог задуманный а в корень ... если просто оставить DefaultDirName={pf}\ тогда создается Новая папка ...ну вот в краации что я для себя не уяснил

[DenchikK]

Хочу научится более или менее нормально писать скрипты на InnoSetup. Прочитал множество материлов, форумов по этому вопросу, узнал много нового и нужного, что смог воплотить в жизнь, но одна идея, которая у меня появилась, всё никак не может воплотиться в жизнь. Самому просто очень интересно!Надеюсь на Вашу помощь.

Идея заключается вот в чем:

Надо поставить смайлики для программы QIP в папку, определяемую текущим скином, с сохранением старого набора.

Для тех кто не в теме:
В Qip смайлики находятся по следующему пути:
c:\Program Files\QIP\Skins\
дальше - анимированные смайлики (файлы gif и ini) находятся в подпапке скина, например по умолчанию смайлики находятся по этому пути:
c:\Program Files\QIP\Skins\ICQ5\Smilies\Animated\
если я например использую скин Batterfly, то смайлики соответственно будут тут:
c:\Program Files\QIP\Skins\Batterfly\Smilies\Animated\

Файл, в котором записано, какой скин сейчас используется, находится тут:
c:\Program Files\QIP\Skins\current.cfg

В нем первая строчка название скина, которое равно названию каталога.

То бишь основная проблема сводится к тому - как извлечь из файла current.cfg название скина и подставить его в путь для установки смайликов.

Сохранение текущих смайликов средствами скрипта, я так и не понял, как осуществить, хотя что то подобное встретил в "Руководстве по Inno Setup 5, версия 4". Я подошел более тупо - через скрипт AutoIT, при первом его запуске происходит переименование каталога со смайликами, при uninstall - запускается ещё раз и переименовывается обратно :

Код:

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

If FileExists("Animated") Then 
DirMove ( "Animated", "Animated_1" )
else
If FileExists("Animated_1") Then 
DirMove ( "Animated_1", "Animated" ) 
EndIf
EndIf
Exit

а вот сам скрипт (вернее рабочий черновик), без определения текущего скина, ставящий смайлики в каталог по умолчанию:
[code]
[Setup]
AppName=Смайлики
AppVerName=Смайлики Для QIP
DefaultDirName={pf}\QIP\Skins\ICQ5\Smilies\Animated\
DefaultGroupName=Смайлики Для QIP
AllowNoIcons=yes
OutputBaseFilename=setup
SetupIconFile=C:\Program Files\QIP\qip.ico
Compression=lzma
SolidCompression=yes
FlatComponentsList=no
UsePreviousAppDir=no
UsePreviousGroup=no
UsePreviousSetupType=no
UsePreviousTasks=no
AlwaysShowDirOnReadyPage=yes
DirExistsWarning=no
InfoBeforeFile=C:\123\MyInfoBefore.txt
UninstallFilesDir="{pf}"

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

[LangOptions]
;Параметры для русского языка
rus.LanguageName=<0420><0443><0441><0441><043A><0438><0439>
rus.LanguageID=$0419
rus.LanguageCodePage=1251
rus.DialogFontName= MS Shell Dlg
rus.DialogFontSize=8
rus.WelcomeFontName=Verdana
rus.WelcomeFontSize=12
rus.TitleFontName=Arial
rus.TitleFontSize=29
rus.CopyrightFontName=Arial
rus.CopyrightFontSize=8

[Types]
Name: "first"; Description: "Смайлики для Qip";

Код:

var
  ResultCode: Integer;
   s1, s2:string;
Procedure MyBeforeInstall;
Begin
//  s1:=ExpandConstant('{pf}')+'\QIP\Skins\ICQ5\Smilies\';
//  s2:=ExpandConstant('c:\123\DirRen.exe');
//  FileCopy(s2, s1+'\DirRen.exe', True);
//  Sleep(1000);
  Exec(ExpandConstant('{pf}\QIP\Skins\ICQ5\Smilies\DirRen.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
  Sleep(1000);
end;

//[InstallDelete]
//Type: files; Name: "{app}\*.gif"
//Type: files; Name: "{app}\_define.ini"

[Files]
Source: "C:\123\DirRen.exe"; DestDir: "{pf}\QIP\Skins\ICQ5\Smilies\"; Flags: ignoreversion;
Source: "C:\123\Animated1\*.ini"; DestDir: "{app}"; BeforeInstall: MyBeforeInstall; Flags: ignoreversion;
Source: "C:\123\Animated1\*.gif"; DestDir: "{app}"; Flags: ignoreversion;

[Icons]
Name: "{group}\{cm:UninstallProgram,Смайлики для Qip}"; Filename: "{uninstallexe}"

[UninstallRun]
FileName: "{pf}\QIP\Skins\ICQ5\Smilies\DirRen.exe"; Flags: nowait

[UninstallDelete]
Type: files; Name: "{app}\*.gif"
Type: files; Name: "{app}\_define.ini"

Заранее благодарен за помощь!

[EgOrus]

DenchikK
сильно в задачу и скрипт не вникал
если без всяких выкрутасов, попростому, то извлечь можно вот так:

Код:

var
   cfgfile: TArrayOfString;
   skin: String;
begin
   LoadStringsFromFile('C:\Program Files\QIP\Skins\current.cfg', cfgfile);
   // пеерменная skin и есть название твоего скина используй её при указании путей
   skin := cfgfile[0];
   // для отладки выводит значение переменной skin
   MsgBox( skin, mbInformation, MB_OK );
end;

[DenchikK]

EgOrus
Спасибо большое за ответ, но я пока не понимаю, как потом это
склеить - получается как бы три части:

1. C:\Program Files\QIP\Skins\
2. Название полученного скина
3. \Smilies\Animated\

и как потом это полученное подставить в
[Setup]
DefaultDirName={pf}\QIP\Skins\ICQ5\Smilies\Animated\

Еще раз извините за беспокойство!

[EgOrus]

Пример почти из справки
[code][Setup]
DefaultDirName={pf}\QIP\Skins\{code:GetSkinName}\Smilies\Animated\

Код:

function GetSkinName(Param: String): String; 
var
   cfgfile: TArrayOfString;
   skin: String;
begin
   LoadStringsFromFile(ExpandConstant('{pf}')+'QIP\Skins\current.cfg', cfgfile);
   // пеерменная skin и есть название твоего скина используй её при указании путей
   skin := cfgfile[0];
   result := skin;
   // для отладки выводит значение переменной skin
   MsgBox( skin, mbInformation, MB_OK );
end;

Перечитал задачу, и что-то не могу понять чем тебе поможет данный скрипт, я так понял тебе название текущего скина нужно для бэкапа существующего?
Если так то нужно вычитывать название из конфига, затем бэкапить средствами паскаля этот каталог (ремувить в папку с именем название.bak предположим) и всё.
При ините деиснтоляции (procedure DeinitializeUninstall() удалять новый скрипт и восстанавливать опять же переименованием первоначальный скин.

[DenchikK]

Там не только бекап - туда же и новые смайлы запихиваются. Для каждого скина - свой набор смайлов.
Спасибо - попробую разобраться!

P.S.
На строчке
result := skin;
выдается ошибка Out Of Range

поправил строчку
LoadStringsFromFile(ExpandConstant('{pf}')+'\QIP\Skins\current.cfg', cfgfile);
заработало

Спасибо Вам огромное!!!

[ALWagner]

2 ALL

Есть старая программа запакованная Inno Setup v. 1.3.25. С 2001 г. не обновлялась. Есть желание сделать тихую инсталяшку. Ключи: /SILENT, /VERYSILENT, /SP- не проходят.
Innounp не распаковывает.

Кто поможет?

[ZaV]

а что за программа то поподробнее если можно ...