[vint56]

Berline, вот другой пример

читать дальше »

[Setup]
AppName=Иконка
AppVerName=Иконка
DefaultDirName={pf}\Иконка
DefaultGroupName=Иконка

[Dirs]
Name: "{app}"; Attribs: system; AfterInstall: CreateIni();

[Files]
Source: icon.ico; DestDir: {app}

[code]
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ***************************************************//
procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]',
'IconFile=icon.ico',
'IconIndex=0'], False)
end;
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ***************************************************//

[insombia]

Rikill стандартным инно

[Rikill]

insombia, если стандартным то мы с ночным лисом ответили

[Berline]

Shegorat, спасибо, Ваш вариант мне кажется поинтереснее...
Только подскажите плз, при компилировании, выдает ошибку: unknown type PChar - что с этим сделать?

[Habetdin]

Berline, замените PChar на PAnsiChar

[bagrat]

привет всем (извините может я не в этот топик .но Inno setap здесь),

выполнил следующее установил игру ввел серийник, пропатчил, скомпилировал инно файл ***.iss, затем экпортировал ключи из реестра(regedit) импортировал их в ***.iss , запустил компилятор получил игру

в итоге при запуске репака , просит ввести серийник, ввожу серийник ради любопытства выдает окно с ошибкой Данное окно закрыть не могу никак , только перезагрузко ПК и далее
не подскажете как в скрипте в инно сетапе прописать вручную серийник игры

читать дальше »

; Script generated by the Мастер Inno Setup Script.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[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={{9BE97B2A-A993-466C-A9CF-5844BE254C5B}
AppName=Space Empires V
AppVersion=1.79
;AppVerName=Space Empires V 1.79
AppPublisher=Malfador Machinations
AppPublisherURL=http://www.malfador.com/
AppSupportURL=http://www.malfador.com/
AppUpdatesURL=http://www.malfador.com/
DefaultDirName={pf}\Space Empires V
DefaultGroupName=Space Empires V
AllowNoIcons=yes
InfoAfterFile=C:\Users\Андрей\Desktop\для компиляции exe\3.txt
OutputDir=D:\Для компиляции
OutputBaseFilename=Space Empires V
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64
SetupIconFile=C:\Users\Андрей\Desktop\для компиляции exe\space 5\se5.ico
WizardImageFile=c:\Users\Андрей\Desktop\для компиляции exe\space 5\500x400.bmp
WizardSmallImageFile=c:\Users\Андрей\Desktop\для компиляции exe\space 5\100x100.bmp

[Messages]
BeveledLabel=RePack by bAGrat

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

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Files]
Source: F:\Games\Space Empires V\se5.exe; DestDir: {app}; Flags: ignoreversion
Source: F:\Games\Space Empires V\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: {group}\Space Empires V; Filename: {app}\se5.exe
Name: {group}\{cm:ProgramOnTheWeb,Space Empires V}; Filename: http://www.malfador.com/
Name: {group}\{cm:UninstallProgram,Space Empires V}; Filename: {uninstallexe}
Name: {commondesktop}\Space Empires V; Filename: {app}\se5.exe; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Space Empires V; Filename: {app}\se5.exe; Tasks: quicklaunchicon

[Run]
Filename: {app}\se5.exe; Description: {cm:LaunchProgram,Space Empires V}; Flags: nowait postinstall skipifsilent

[Registry]
Root: HKLM; SubKey: SOFTWARE\Strategy First\Space Empires V; ValueType: string; ValueName: Install Path; ValueData: {app}; Flags: uninsdeletekey

[code]
const
Color = clblack;
procedure InitializeWizard();
begin
WizardForm.Font.Color:=clWhite;
wizardForm.WelcomeLabel1.Font.Color:=clWhite;
WizardForm.FinishedHeadingLabel.Font.Color:=clWhite;
WizardForm.PageNameLabel.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
WizardForm.Bevel.visible:=false;
WizardForm.Bevel1.visible:=false;
end;

спасибо

[Leka_651]

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

спасибо

[R.i.m.s.k.y.]

bagrat, запусти инстал из самого инно-сетапа с трассировкой - кнопкой F9 (кажется) или на панели кнопок зеленый квадратик с белым треугольничком
на ошибке инно подсветит строчку
и мне кажется что скрипт вверху неполный, не вижу в нем криминала

[bagrat]

R.i.m.s.k.y., в том -то и дело , что красным не подчеркивает, а этот скрипт раз 10 компилировал(я новичок извольте )

[R.i.m.s.k.y.]

bagrat, я ж написал как сделать, инно будет трассировать скрип не на стадии компиляции, а при выполнении, когда эта ошибка вылезет то инно остановит исполнение и красным выделит ошибочную строчку
если тебе долго компилять заново - в секции files замени временно толстые файлы/папки на "заглушки" или закоменнтируй если нету Before/AfterInstall и Check

скорее всего ты обращаещься в секции Code к элементу (например к списку компонентов) по номеру, которого нет, или что-то подобное

скрипты-простыни хорошо бы не только прятать под кат, но и под тег [Сode]...[/Сode]

скрипт вверху точно полностью приведен?