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

Dinvin4ester · Отправлено: **21:04, 09-08-2014** | #**1331**

Как решить эту проблемку - http://i68.fastpic.ru/big/2014/0802/...3b6aa26fc3.png ?
http://rghost.ru/57234254?r=3678 - сам скрипт
вот где три кнопки,нужно чтоб из трёх выбор один был,а так выходит два.
Название скрипта - выбор озвучки по центру.iss

nik1967 · Конфигурация компьютера

Цитата Dinvin4ester:

Как решить эту проблемку »

Как-то так

Dinvin4ester · Отправлено: **23:03, 10-08-2014** | #**1333**

nik1967,
Огромное спасибо вам.

Imperor · Отправлено: **09:40, 11-08-2014** | #**1334**

Здравствуйте, нашел код прогресс бара для isdone:
Модуль ProgressBar.iss

Модуль ISDone:

Тестовый прогон сделал, проценты загрузки идут как положено, однако не отображается полоса загрузки прогресс-бара. Прогресс-бар отображается, но нету загрузки? В чем может быть проблема?

AlekseyPopovv · Конфигурация компьютера

Ребята помогите решить проблему: скрипт собирается, но файл не запускается пишет ошибку. Ошибка возникает из-за if Installer.Checked then и if Portable.Checked then. Как решить эту проблему?

procedure LangClick(Sender: TObject);
begin
case TNewRadioButton(Sender) of
LangBus:
begin
if Installer.Checked then
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}')) + '{#MyAppName} Business';
begin
if Portable.Checked then
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} Business Portable';
end;
end;
LangEng:
begin
if Installer.Checked then
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}')) + '{#MyAppName} Engineer';
begin
if Portable.Checked then
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} Engineer Portable';
end;
end;
LangExt:
begin
if Installer.Checked then
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}')) + '{#MyAppName} Extreme';
begin
if Portable.Checked then
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} Extreme Portable';
end;
end;
LangNet:
begin
if Installer.Checked then
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}')) + '{#MyAppName} Network Audit';
begin
if Portable.Checked then
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} Network Audit Portable';
end;
end;
end;
end;

Решение нашёл!

odminius · Отправлено: **18:18, 11-08-2014** | #**1336**

Всем доброго времени суток. Есть задача, сделать прогу, которая будет ставить очень маленький и легкий софт. В программировании не шарю, поэтому решил воспользоваться программой InnoSetup.
Прошел по мастеру, в общем установщик все делает как надо, за 1 исключением. Не добавляется ярлык в автозагрузку на Win 8\Win 8.1. (на "Семерке все работат как надо").
Вот скрипт, который у меня получился:

Код:

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

#define MyAppName "Электронная очередь"
#define MyAppVersion "1.1"
#define MyAppPublisher "HCB"
#define MyAppURL "mberezhnoy@homecredit.kz"
#define MyAppExeName "eqop.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={{D0187399-732B-4F91-B94C-096F37A6F324}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName=C:\eqop\
DisableDirPage=yes
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputDir=C:\Users\Odmin\Desktop\Новая папка
OutputBaseFilename=setup_eqop
Compression=lzma
SolidCompression=yes

[Languages]
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: "C:\Users\Odmin\Desktop\Новая папка\eqop\eqop.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Users\Odmin\Desktop\Новая папка\eqop\*"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
Name: "{commonstartup}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

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

Помогите плиз сделать так, чтобы ярлык программы добавлялся в автозагрузку на любой версии ОС.

Imperor · Отправлено: **19:51, 11-08-2014** | #**1337**

odminius, попробуй так:
[Icons]
Name: "{userstartup}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

{userstartup} - Путь к папке Автозагрузка меню Пуск

odminius · Отправлено: **20:22, 11-08-2014** | #**1338**

Imperor, спасибо. Жаль потестить сразу не получается, в наличии только win7... Так что помогло или нет, расскажу завтра.

Imperor · Отправлено: **20:26, 11-08-2014** | #**1339**

odminius, между 7 и 8 особых различий нету и константы подходят и туда, и туда.

odminius · Отправлено: **20:39, 11-08-2014** | #**1340**

Imperor, и тем не менее, предыдущий скрипт, который я описал, на 7 работает, а на 8 нет.