Inno Setup. Прочие вопросы

[FX-DENIS]

при попытке запуска exe) выбивает ошибку: »
Не хватает библиотек или проблема в распаковке библиотек скорее всего или попробуйте использовать Юникод версию компилятора.
По второй ошибке нечего сказать не могу,не мастер)))

[OldGamer]

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

[Dodakaedr]

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

[LordSP]

Извиняюсь, ошибся темой, вопрос перенес сюда (http://forum.oszone.net/showthread.php?p=2597967&posted=1#post2597967)
Знающих, просьба помочь. Спасибо.

[OldGamer]

проблема в распаковке библиотек скорее всего
тот пример рабочий
Спасибо всем за помощь!
Но... уже сам разобрался. Оказалось, что проблема была в .dll-библиотеках - заменил их на новые и всё работает :rupor:
http://s018.radikal.ru/i520/1601/1e/ce474c0ed16ct.jpg (http://radikal.ru/f/s018.radikal.ru/i520/1601/1e/ce474c0ed16c.png.html)

[Vitalik_Byrevich]

Добрый день. Не подскажите как узнать номер цвета? Стандартный в скрипте прописан Color:=11232829 и в окне он отображется синим (за текстом) https://yadi.sk/i/LVpeeO8MnaRq2 , а мне надо чтобы этого синего фона не было.

[FX-DENIS]

Спасибо всем за помощь! »
Есть кнопка Полезное сообщение :laugh:

Не подскажите как узнать номер цвета »Логически надо этот цвет узнать в стандартной цветовой кодировке потом конвертировать в эту.А узнать цвет проще программой Пипетка,таких в инете много,запустите инсталятор скопируете пипеткой цвет на этом тексте,а потом на любом сайте его конвертируете в другой формат. Мне видится такой вариант,можно еще почитать справку инно,по тегу Колор.мож че найдете. :)

[Nordek]

как узнать номер цвета? »С помощью Pixie (http://www.nattyware.com/pixie.php).
Inno понимает не как привычный цвет HTML, а как HEX. Т.е у Inno обратный порядок.
Нужно поменять первые два и последние два значения местами.
Пример: FFECDF » DFECFF

Pixie - умеет выводить в HEX, увидите, трудно не заметить.

[dracosha]

Ребята! Может кто-то знает или может кто-то слышал, когда на свет появится расширенная версия на основе последней версии inno?

[gurulea93]

Privet vsem pamaghite pajalusta stobi delati mesta MsgBox TMemo 133255
vot cod


#define GameName "Sacred"
#define modpack_versionInfo "101"

[Setup]
AppName={#GameName}
AppVerName={#GameName}
DefaultDirName={pf}\{#GameName}
AppPublisher=troyan

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



[CustomMessages]
russian.Modpack=Модпак
russian.SupportForum=Тема на koreanrandom.com
russian.ForumLink=http://www.koreanrandom.com
russian.UpdatedLabel=Обновлено:
russian.WOT_version=Версия WOT:
russian.modpack_version=Версия модпака:
russian.installer_version=wotunion installer
russian.CheckingActualModpackVersionLabel=Проверка обновлений модпака...
russian.CannotCheckUpdate=Ошибка при проверке обновлений. Далее - для установки
russian.NoUpdates=Обновлений не найдено. Далее - для установки
russian.ErrorWhileOpeningUpdatePage=Ошибка при переходе на страницу загрузки
russian.AllIsReadyForInstall=Все готово для установки. Нажмите Далее для продолжения
russian.UpdateFound=найдено
russian.httpVersion=http://proreduceri.tk/version.txt
russian.httpMsg=http://proreduceri.tk/msg.txt
russian.WOT_NotFound=Клиент World of Tanks не обнаружен. Установка будет прервана.
russian.for=для
russian.CheckAccess=Установка невозможна. Проверьте наличие прав доступа к файлам и папкам установленного клиента World of Tanks, закройте программы, которые используют папки и/или файли клиента World of Tanks, или запустите инсталлятор модпака с правами администратора.
russian.MustUninstallBefore=Установка невозможна. Воспользуйтесь деинсталлятором модпака для удаления предыдущей установки модпака (Пуск - Программы - wotunion modpack - Удалить wotunion modpack).
russian.NewVersionFound=Доступна новая версия модпака:
russian.GoToLink=Перейти по ссылке в браузере для загрузки ?
russian.CheckAccessUninstall=Деинсталляция невозможна. Проверьте наличие прав доступа к файлам и папкам установленного клиента World of Tanks закройте программы, которые используют папки и/или файлы клиента World of Tanks, или запустите деинсталлятор модпака с правами администратора.



[Code]
var
CheckingActualModpackVersionLabel: TLabel;
WelcomePageID: Integer;
ActualVersion: String;
ActualVersionLongint: Longint;
InstallVersionLongint: Longint;
ActualVersionMsg: String;
ReadyToInstall: Boolean;
TerminateInstall: Boolean;

function DownloadFile(const AURL: string; var AResponse: string): Boolean;
var
WinHttpRequest: Variant;
begin
Result := False;
try
WinHttpRequest := CreateOleObject('WinHttp.WinHttpRequest.5.1');
WinHttpRequest.Open('GET', AURL, False);
WinHttpRequest.Send;
AResponse := WinHttpRequest.ResponseText;
Case WinHttpRequest.Status of
'200':
begin
Result := True;
end;
end;
except
ReadyToInstall:=True;
AResponse := GetExceptionMessage;
CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:CannotCheckUpdate}');
Result := False;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectDir then
begin

end;
WizardForm.InnerNotebook.Visible := CurPageID <> WelcomePageID;
end;

function Form_CreatePage(PreviousPageId: Integer): Integer;
var
Page: TWizardPage;
begin
Page := CreateCustomPage(PreviousPageId, '', '');
WelcomePageID := Page.ID;
CheckingActualModpackVersionLabel := TLabel.Create(WizardForm);
with CheckingActualModpackVersionLabel do
begin
Parent := WizardForm.InnerPage;
Visible:=True;
Left := ScaleX(5);
Top := ScaleY(292);
Font.Color:= clBlack;
end;
Result := Page.ID;
end;
Procedure ForumLinkOnClick (Sender: TObject);
var
ErrorCode: Integer;
Begin
ShellExec ('open', ExpandConstant('{cm:ForumLink}'),'','', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
begin
Form_CreatePage(wpWelcome);

with WizardForm.PageDescriptionLabel do
begin
Visible := False;
end;
with WizardForm.PageNameLabel do
begin
Visible := False;
end;
end;

function CheckUpdates():Boolean;
var ErrorCode: Integer;
begin
if ReadyToInstall=False then
begin
CheckingActualModpackVersionLabel.Visible:=True;
CheckingActualModpackVersionLabel.Caption := ExpandConstant('{cm:CheckingActualModpackVersionLabel}');
if ((DownloadFile(ExpandConstant('{cm:httpVersion}'), ActualVersion)=True) and (DownloadFile(ExpandConstant('{cm:httpMsg}'), ActualVersionMsg)=True)) then
begin
if (StrToIntDef(ActualVersion, ActualVersionLongint)) > (StrToIntDef('{#modpack_versionInfo}', InstallVersionLongint)) then
begin
CheckingActualModpackVersionLabel.Caption := CheckingActualModpackVersionLabel.Caption + ExpandConstant('{cm:UpdateFound}');
if MsgBox(ExpandConstant('{cm:NewVersionFound}') + ActualVersionMsg + ExpandConstant('{cm:GoToLink}'), mbConfirmation, MB_YESNO) = IDYES then
begin
If not ShellExec('', ExpandConstant('{cm:ForumLink}'), '', '', SW_SHOW, ewNoWait, ErrorCode) then
begin
CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:ErrorWhileOpeningUpdatePage}');
ReadyToInstall:=True;
Result:=False;
end
else
begin
Result:=False;
TerminateInstall:=True;
WizardForm.Close;
end;
end
else
begin
CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:AllIsReadyForInstall}');
ReadyToInstall:=True;
Result:=False;
end;
end
else
begin
CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:NoUpdates}');
ReadyToInstall:=True;
Result:=False;
end;
end
else
begin
CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:CannotCheckUpdate}');
ReadyToInstall:=True;
Result:=False;
end;
end
else
begin
Result:=True;
end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
if CurPageID <> WelcomePageID then
begin
Result:=True;
end
else
begin
Result:=CheckUpdates;
end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
if ((CurPageID=WelcomePageID) and (TerminateInstall=True)) then Confirm := False;
end;

[markovicius]

Привет есть у меня токой скрипт




; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "PES 6 Firebird Markovicius"
#define MyAppVersion "1.0"
#define MyAppPublisher "Marius Z."
#define MyAppExeName "mark6.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{E1FCAB5E-7AF2-42E0-93E8-E4A1FBF90B09}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
InfoBeforeFile=D:\Games\PES 6 Firebird Markovicius\readme.txt
OutputBaseFilename=PES 6 Firebird Markovicius
SetupIconFile=D:\Games\pes 6 firebird markovicius\1.ico
Compression=lzma
SolidCompression=yes
;Compression=none
;SolidCompression=no
WizardImageFile=1.bmp
DiskSpanning=yes
DiskSliceSize=1566000000

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

Name: "BrazilianPortuguese"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"
Name: "Czech"; MessagesFile: "compiler:Languages\Czech.isl"
Name: "Danish"; MessagesFile: "compiler:Languages\Danish.isl"
Name: "Dutch"; MessagesFile: "compiler:Languages\Dutch.isl"
Name: "Finnish"; MessagesFile: "compiler:Languages\Finnish.isl"
Name: "French"; MessagesFile: "compiler:Languages\French.isl"
Name: "German"; MessagesFile: "compiler:Languages\German.isl"
Name: "Greek"; MessagesFile: "compiler:Languages\Greek.isl"
Name: "Hungarian"; MessagesFile: "compiler:Languages\Hungarian.isl"
Name: "Italian"; MessagesFile: "compiler:Languages\Italian.isl"
Name: "Japanese"; MessagesFile: "compiler:Languages\Japanese.isl"
Name: "Norwegian"; MessagesFile: "compiler:Languages\Norwegian.isl"
Name: "Polish"; MessagesFile: "compiler:Languages\Polish.isl"
Name: "Portuguese"; MessagesFile: "compiler:Languages\Portuguese.isl"
Name: "ScottishGaelic"; MessagesFile: "compiler:Languages\ScottishGaelic.isl"
Name: "SerbianCyrillic"; MessagesFile: "compiler:Languages\SerbianCyrillic.isl"
Name: "SerbianLatin"; MessagesFile: "compiler:Languages\SerbianLatin.isl"
Name: "Slovenian"; MessagesFile: "compiler:Languages\Slovenian.isl"
Name: "Spanish"; MessagesFile: "compiler:Languages\Spanish.isl"
Name: "Turkish"; MessagesFile: "compiler:Languages\Turkish.isl"
Name: "Ukrainian"; MessagesFile: "compiler:Languages\Ukrainian.isl"

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

[Files]
Source: "D:\Games\PES 6 Firebird Markovicius\PhysX-9.15.0428-SystemSoftware\*"; DestDir: "{app}\PhysX-9.15.0428-SystemSoftware"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Games\PES 6 Firebird Markovicius\Papildomi zaidimo nustatymai\*"; DestDir: "{app}\Papildomi zaidimo nustatymai"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Games\PES 6 Firebird Markovicius\mark6.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Games\PES 6 Firebird Markovicius\settings.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Games\PES 6 Firebird Markovicius\readme.txt"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Games\PES 6 Firebird Markovicius\kitserver\*"; DestDir: "{app}\kitserver"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Games\PES 6 Firebird Markovicius\dat\*"; DestDir: "{app}\dat"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Games\PES 6 Firebird Markovicius\misc\*"; DestDir: "{app}\misc"; Flags: ignoreversion recursesubdirs createallsubdirs


; íàñòðîéêè
Source: "D:\Games\PES 6 Firebird Markovicius\misc\Option File\settings.dat"; DestDir: "{userdocs}\FRBD15\Pro Evolution Soccer 6"; Flags: ignoreversion uninsneveruninstall ;
; îïøèí
Source: "D:\Games\PES 6 Firebird Markovicius\misc\Option File\KONAMI-WIN32PES6OPT"; DestDir: "{userdocs}\FRBD15\Pro Evolution Soccer 6\save\folder1"; Flags: ignoreversion uninsneveruninstall;

; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; WorkingDir: "{app}"
Name: "{group}\Settings"; Filename: "{app}\settings.exe"; WorkingDir: "{app}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon; WorkingDir: "{app}"

[Registry]

Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: string; ValueName: "installdir"; ValueData: "{app}\"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: string; ValueName: "code"; ValueData: "K7URDJNALJV3SSLMATK6"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_e"; ValueData: "00000001"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_f"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_g"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_i"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_p"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_s"; ValueData: "00000000"

Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: string; ValueName: "installdir"; ValueData: "{app}\"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: string; ValueName: "code"; ValueData: "K7URDJNALJV3SSLMATK6"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_e"; ValueData: "00000001"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_f"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_g"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_i"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_p"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_s"; ValueData: "00000000"

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent



Что надо добавить чтобы в конце инстала автоматически запустилась и устанавилось програма
"PhysX-9.15.0428-SystemSoftware" которая после инстала есть в папке игры

[Nordek]

markovicius, [Tasks]
Name: physx; Description: Установить PhysX [9.15.0428]; GroupDescription: Дополнительное программное обеспечение:

[Run]
Filename: {src}\PhysX-9.15.0428-SystemSoftware.exe; Parameters: -s; StatusMsg: Установка PhysX; Tasks: physx

[markovicius]

Привет Nordek написал код но выбрасывает ошибку

Unable to execute file:
D:\Games\Pes 6 Firebird
Markovicius\Output\PhysX-9.15.0428-SystemSoftware.exe

CreateProcess failed;code 2.
Yhe system cannot find the file speciefed.

Что может быть не так ?

[Nordek]

markovicius, Привет!
PhysX скачивал со страницы (http://www.nvidia.ru/object/physx-9.15.0428-driver-ru.html).
Проверял, ошибок нет. Предыдущий пример рассчитан на то, если PhysX-9.15.0428-SystemSoftware.exe и setup.exe расположены в одном месте.

Если вы PhysX включаете в инсталлятор, затем при установке PhysX помещается в папку "PhysX-9.15.0428-SystemSoftware" внутри папки самого приложения, то в секции [Run] замените это:
Filename: {src}\PhysX-9.15.0428-SystemSoftware.exe; Parameters: -s; StatusMsg: Установка PhysX; Tasks: physx

на это:
Filename: {app}\PhysX-9.15.0428-SystemSoftware\PhysX-9.15.0428-SystemSoftware.exe; Parameters: -s; StatusMsg: Установка PhysX; Tasks: physx

Чтоб пропустить ошибку выполнения при отсутствии исполняемого файла: в секции [Run], в конеце можете добавить Flags: skipifdoesntexist, т.е:
Filename: {app}\PhysX-9.15.0428-SystemSoftware\PhysX-9.15.0428-SystemSoftware.exe; Parameters: -s; StatusMsg: Установка PhysX; Tasks: physx; Flags: skipifdoesntexist


На будущее:
Обсуждение скриптов (т.е написание собственного инсталлятора) находится здесь.
Длинные коды прячьте под спойлер:
Обрамляйте в (Если проблема с выводом, читайте здесь (http://forum.oszone.net/post-2270836-1700.html))

[markovicius]

Nordek Большое вам спасибо за помощь.

[vvitalli]

как записать в inno setup директорию константы - Documents and Settings\All Users

заранее благодарен

[Nordek]

vvitalli,
1. Вопросы по созданию скриптов не здесь, вам сюда (http://forum.oszone.net/thread-294838.html).
2. См. "Справка » Константы"
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={%USERPROFILE}\My Program
DefaultGroupName=My Program
OutputDir=.

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

[boss911]

DefaultDirName={%USERPROFILE}\My Program »
Это же "Documents and Settings\NameUser\My Program".

vvitalli, попробуйте {%AllUsersProfile}.

[ChVL]

Inno Setup Compiler 5.5.9 (http://www.jrsoftware.org/download.php/is.exe)

5.5.9 (2016-04-06)

To further help protect installers against potential DLL preloading attacks, Setup/Uninstall now calls SetDefaultDllDirectories if available to remove the application directory from the DLL search order. If SetDefaultDllDirectories is not available or cannot be called, it now additionally preloads a set of system DLLs known to be loaded unsafely by older or unpatched versions of Windows.
Change in default behavior: the OutputBaseFileName [Setup] section directive now defaults to mysetup instead of setup. Setting it back to setup is not recommended: all executables named "setup.exe" are shimmed by Windows application compatibility to load additional DLLs, such as version.dll. These DLLs are loaded unsafely by Windows and can be hijacked. If you do so anyway, the compiler will issue a warning.
Added new [Files] section flags: sign and signonce. Instructs the compiler to digitally sign the original source files before storing them. Ignored if [Setup] section directive SignTool is not set. Inno Setup's own compiler files are now also signed.
[Setup] section directive LZMADictionarySize now allows the LZMA dictionary size to be increased up to 1 GB from the previous maximum of 256 MB. Review the memory requirements listed in the Compression topic before using!
Improved the "auto-retry" feature of the [Files] section: it now also retries if MoveFile failed even if the preceding DeleteFile succeeded. Additionally, if MoveFile keeps failing it will now register the file to be replaced on restart if the restartreplace [Files] section flag is used instead of displaying an error message.
The value of the AppVersion directive is now not only used to set the MajorVersion and MinorVersion values in the Uninstall registry key when possible but also used to set the VersionMajor and VersionMinor values as required by newer versions of the Windows App Certification Kit.
Inno Setup Preprocessor (ISPP) changes:
Added new function RemoveFileExt.
Documented predefined variable ISPPCC_INVOKED.
Console-mode compiler (ISCC) change: Added new command line parameter /J. Can be used to #include additional files.
Unicode Inno Setup: Added official Armenian translation.
Minor tweaks.

[Sergey666]

Добрый день всем!
Подскажите (может такая тема уже и была) как сделать чтоб при установке программы скомпелированной Inno не создавались файлы типа unins000?