» Inno Setup (создание инсталяционных пакетов)

Необходимо экспортировать ключи в данную ветку:
HKLM\SYSTEM\CurrentControlSet\Enum\Root\
Обычным методом этого сделать не получается!Естественно они должны удаляться так же легко!.. Для ускорения "ДОГОНА" хочу спросить у Вас... КАК?? Заранее СПАСИБО всем кто откликнется!!

elapse

Спасибо

geranik

Цитата:

result:=f+'\Mods\Anti-Balance';// \ - в начале по обстоятельству

-- не сочти за наглость, просто небольшое дополнение: для того, чтобы не быть зависимым от "обстоятельств" , можно использовать function AddBackslash(const S: String): String; - гарантировано вернет путь со слэшем, вне зависимости от наличия слэша в исходной строке. Т.е. result:=AddBackslash(f)+'Mods\Anti-Balance';

elapse

Заметил небольшой глюк.

На компонентах пустое поле. А должно быть выбрано Полная установка.
Нельзя ли как-нибудь поправить

Mista_Max

Цитата:

Необходимо экспортировать ключи в данную ветку:
HKLM\SYSTEM\CurrentControlSet\Enum\Root\

-- а нескромный вопрос - зачем? Если для инсталляции трояна, то Inno Setup не лучший выбор. :-\

Chanka, очень сложно? Или нет желания что-то делать самому?

Код:
procedure InitializeWizard();
begin
WizardForm.TypesCombo.Tag := WizardForm.TypesCombo.ItemIndex;
WizardForm.BorderStyle := bsDialog;
WizardForm.TypesCombo.ItemIndex := WizardForm.TypesCombo.Tag;
end;

elapse

Недостаточно знаний в этом направлении

Спасибо

Извиняюсь за повторение, но всё-таки может существует вариант кода, позволяющий приступить к установке как только пользователь выбрал директорию установки и нажал кнопку "ОК" (в окне выбора директории установки), т.е. не требующий подтверждения по кнопке "Далее". И, есть ли возможность наложения bmp-рисунка на кнопку "О программе..." (About...)?. Вызов этой кнопки (в левой нижней части окна инсталлера) я вызываю процедурой из стандартного скрипта "CodeClasses.iss". Уважаемые товарищи, пожалуйста предложите кто-нибудь спасительный скрипт, буду очень Вам благодарен.

Artem_Butenko, насчёт автонажатия NextButton - примерно [more=так][no]
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DirExistsWarning=no

[Code]
procedure DirOnClick(Sender: TObject);
var
DirEditString: String;
begin
DirEditString := WizardForm.DirEdit.Text;
if BrowseForFolder('Выберите папку из списка и нажмите «ОК»', DirEditString, False) then
begin
WizardForm.DirEdit.Text := DirEditString;
WizardForm.NextButton.OnClick(WizardForm.NextButton)
end;
end;

procedure InitializeWizard();
begin
WizardForm.DirBrowseButton.OnClick := @DirOnClick;
end;
[/no][/more]. Только не думаю, что это так "полезно".

Насчёт наложения текстур - скины Samprona, руководство Kindly, Соrona Skin Виктора Доброва --> неужели мало примеров?

Genri
Как то давненько ты выкладывал скрипт:

function PercentProgress(): Integer;
begin
with WizardForm.ProgressGauge do
begin
Result:= (Position-Min)/((Max - Min)/100) ;
end;
end;

procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
var
percent: integer;

begin
percent:= PercentProgress;
with BackgroundBitmapImage do
begin
if ((percent > 12) and (percent < 25) and (Tag <> 1)) then
begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\pic1.bmp');
Tag:= 1;
end
Сдесь - запуск рисунка в зависимости от выполнения % установки.
Можно ли вместо рисунка запустить например на 5 % файл.ехе ???

Genri

Цитата:

Т.е. result:=AddBackslash(f)+'Mods\Anti-Balance';

Я раньше не знал как это пишется, надо просто AddBackslash в начале строки. Спасибо.

Только начинаю разбираться с программой, поэтому нужна помощь.
Нужно, чтобы при установке проверялось какая версия офиса стоит на компе (например, 2000, 2003, ХР) и, в зависимости от этого, устанавливалась та или иная версия программки. Возможно ли это?

Linda85
ИМХО, надо проверять наличие значения Path в ветке HKLM\Software\Microsoft\Office\x.x\Common\InstallRoot
где x.x - это обозначение версии офиса (например, для MS Office 2003 - это 11.0)

А лучше написать что устанавливается и куда при той или иной версии офиса, так будет понятнее... Так и скрипт написать проще будет

GRom V

Цитата:

Можно ли вместо рисунка запустить например на 5 % файл.ехе ???

-- ну если надо, то вместо Bitmap.LoadFromFile..., вызывай функцию Exec с необходимыми параметрами. Каких-либо проблем я не вижу.

Linda85

Цитата:

Нужно, чтобы при установке проверялось какая версия офиса стоит на компе

-- имхо задача поставлена не совсем корректно. Вероятно, проверять надо не версию офиса, а наличие и версию необходимой програмной части офиса (Word, Excel, Access и т.п.). Ведь у пользователя из всего офиса может быть установлен только поверпоинт.

Genri, огромное спасибо, всё работает и отдельное спасибо elapse, вы здорово помогаете.

Genri
Вопрос снимается,в связи с невнимательностью автора

Sampron

Спасибо, эти скины с другим скриптом, там фишка со шрифтом check'а выполнена по другому, а я брал скин из руководства от Kindly... Хороший ход: не бороться с глюком, а обойти его )))
Но у меня тут же возникла другая проблема. В процессе установки я обычно задаю слайд-шоу фоном и сворачиваю окно инсталятора в угол экрана, при этом кнопка "отмена" куда-то пропадает и приходиться выносить её на передний план (BringToFront), а из-за этого рисунок скина с этой кнопки уходит под неё ((( А хочется сохранить стиль пакета до конца установки.
Может кто поможет сделать так, чтобы кнопка отображалась со скином)))
Заранее спасибо


Добавлено:
И ещё, чуть выше описано как запускать рисунок в фоне в зависимости от процента установки. А можно тоже самое сделать с jpg файлами (грузятся с помощью isxbb.dll)?

Может быть я пропустил читая посты на форуме. Но мне нужна помощь, можно ли сделать так что бы после проигрыша одног mp3 файла, проигрывался другой.... а то инсталляшка длинная нужно что бы две песенки играли такое возможно веть?

Forslay

а просто пороигрыш по кругу не хочешь сделать?
ещё можно тупо склеить 2 файла в один и пусть себе играет )))

Добавлено:
Forslay

а просто пороигрыш по кругу не хочешь сделать?
ещё можно тупо склеить 2 файла в один и пусть себе играет )))

machetos, Forslay, chum2000
Цитата:

Сворачиваю инсталятор, при этом кнопка 'Отмена' пропадает и приходиться выносить её на передний план...
Слайдшоу - можно тоже самое сделать с jpg файлами?
Можно ли сделать, чтобы после проигрыша одного mp3 файла проигрывался другой?

В Corona Skin есть Компактный режим, Проигрывание по списку, Слайдшоу по секундам с эффектами и другие дополнения.
Скрипт делает инсталлятор функциональнее. Смотрите список дополнений в первом посте, или прочитайте Справку.

Victor_Dobrov
нужно, чтобы именно jpg и именно по процентам, а не по секундам
(по секундам можно и без Corona Skin ... Bmp можно по процентам, но они МНОГО весят)

Виктор Вам спасибо, но для моей инсталляции Corona не подойдёт.
А на счёт проигрыша по кругу это как?

Genri
Приветствую!
Как установить разные языковые версии через Components понятно.
А реально их привязать к выбору языка интерфейса(выбрал англ. инерфейс-установка англ версии игры),(выбрал рус. инерфейс-установка рус. версии игры)?

Forslay
насчет музыки
посмотри как здесь делается
или Corona Skin расковыряй. ничего сложного здесь нет

Установил Far PowerPack там такая фишка, программа по умолчанию установилась в Program Files и папке присвоилась иконка находящаяся в папке программы (смотрится на фоне стандартных жёлтых папок интересно), появился вопрос, как после установки сделать, что бы инсталлятор присваивал иконку папке. (на папке: Свойства - Настройка - Сменить значёк)

Цитата:

-- а нескромный вопрос - зачем? Если для инсталляции трояна, то Inno Setup не лучший выбор. :-\

Хочу сделать инсталляцию для сервиса от stylexp. Чтобы без самой программы можно было менять темы и стили для xp.

Diawer

Вот способ:
В дистрибутив включ. пустой файл "desktop.ini"
Source: "desktop.ini"; DestDir: "{app}"; Attribs: "hidden system"; Flags: ignoreversion;

Папка в которую устанавливается тоже должна иметь - Attribs: "system";
[Dirs]
Name: "{app}"; Attribs: "system"; Flags: uninsalwaysuninstall;

Ну и в конце установки записываем в "desktop.ini" путь к иконке .exe, или .ico файлу.
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini', #13#10, true);
SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini', '[.ShellClassInfo]' + #13#10, true);
SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini', 'IconFile' + '=' + ExpandConstant('{app}') + '\Icon.ico' + #13#10, true);
SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini', 'IconIndex' + '=' + '0' + #13#10, true);
end;
end;

p.s. Может elapse или htuos знают способ проще ... ?
этот кажется не очень..

serg_aka_lain, спасибо работает.

Цитата:

Может elapse или htuos знают способ проще ... ?

, если есть ещё варианты выложите.

Цитата:

Может elapse или htuos знают способ проще

ну, я другого способа не знаю, вроде винда именно так и делает

htuos

Да я имел в виду обойтись без пустого файла "desktop.ini" в дистрибутиве,
а создать в процессе установки ,вернее присвоить атрибуты "hidden system"
через Code, такое возможно?