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

tahirg 11:24 13-07-2011
Цитата:

подскажите как в скрипте запретить создавать запись в аплете "установка и удаление программ"?

Сделать так чтоб после инсталяции удалялся ключ реестра [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\(Здесь должно быть AppName или если указываешь AppId)_is1]

demon1232010
Тогда можно не заморачиваясь запретить создавать ключ удаления
Код: [Setup]
CreateUninstallRegKey=false

Gnom3 16:07 13-07-2011
Цитата:

Тогда можно не заморачиваясь запретить создавать ключ удаления

Думаю это товарищу tahirg и надо было. А я как-то и не знал про CreateUninstallRegKey да и при том мне нравится с заморочками!!

Как убрать надписи, что мелким шрифтом
http://www.fotonons.ru/images/13.07.11/1btb.jpg

Помогите оптимизировать код

Function cm(Message: String): String; Begin Result:= ExpandConstant('{cm:'+ Message +'}') End;
function NextButtonClick(CurPageID: Integer): Boolean;
var i: Integer;
Begin
Result:=True;
if CurPageID = wpSelectDir then
begin
for i:= 1 to Length(WizardForm.DirEdit.Text) do
if WizardForm.DirEdit.Text[i] > #122 then
begin
MsgBox(cm('Cyrillic'), mbError, mb_Ok);
Result:=False;
Exit;
end;
if (Pos(Uppercase(ExpandConstant('{pf}')), Uppercase(ExpandConstant('{app}'))) > 0)
or (Pos(Uppercase(ExpandConstant('{win}')), Uppercase(ExpandConstant('{app}'))) > 0) then
begin
MsgBox(cm('SysDirSelect'), mbError, mb_Ok);
Result:=False;
Exit;
end;
end;
End;

Можно объединить begin MsgBox ...... end
а также условия Pos(Uppercase(ExpandConstant('{...}'))

MrLOLs 20:17 13-07-2011
Цитата:

Помогите оптимизировать код

Как-то [more=так]
Код: function NextButtonClick(CurPageID: Integer): Boolean;
var i: Integer;
Begin
Result:=True;
if CurPageID = wpSelectDir then begin
for i:= 1 to Length(WizardForm.DirEdit.Text) do begin
if WizardForm.DirEdit.Text[i] > #122 then begin
MsgBox(cm('Cyrillic'), mbError, mb_Ok);
Result:=False;
Exit;
end;
end;
if (Pos(Uppercase(ExpandConstant('{pf}')), Uppercase(ExpandConstant('{app}'))) > 0)
or (Pos(Uppercase(ExpandConstant('{win}')), Uppercase(ExpandConstant('{app}'))) > 0) then begin
MsgBox(cm('SysDirSelect'), mbError, mb_Ok);
Result:=False;
Exit;
end;
end;
End;

Gnom3
demon1232010
спасибо парни, то что надо!

tahirg, не вижу у вас никаких оптимизаций в алгоритме.

MrLOLs
Видимо, неправильно было понято понятие оптимизации в данном случае код отрабатывает поцентов на 40 быстрей оригинала - это и есть оптимизация
Мой вариант тоже работает быстрей оригинала, но, видимо, несет оменно то, что вам требовалось

MrLOLs
а что вы вообще подразумеваете под оптимизацией кода?
Там вроде то больше нечего оптимизировать.

Мне кажется можно обойтись без использования One Two, а сразу присваивать константе S значение.
Нужно лишь в конце кода поставить условие что если константе S что либо присвоено, то вывести сообщение.
Вот только не могу поставить такое условие для типа string =)

MrLOLs
One Two нужны для другого обрати внимание if One or Two then begin - без этого код для меседжбокса придется писать дважды Чего, как раз просилось избежать.

r1977
Найди в файле russian.isl эти строки и удали их, если что он находится Inno setup 5 / Languages

ResTools build 110319, не совместим с inno 5.4.2 убрали бы.

Цитата:

не совместим с inno 5.4.2

Обоснуй данное утверждение.

MrLOLs
эт вы о чём?

SotM
И не собираюсь обосновывать, скачай да посмотри.

Цитата:

ResTools build 110319, не совместим с inno 5.4.2 убрали бы.

Странно, но у меня имено Inno Setup QuickStart Pack (ansi) 5.4.2 + Inno Setup Compiler 5.4.1-4.2 build 110319 + Inno ISCmplr Setup 5.4.2 build 110329
И всё отлично работает...

Edison007007
Я про build 110319, там ошибка входа в библиотеку islzma при компиляции.
Поверх инно можно просто build 110329 кидать, они всё равно все кумулятивные.

Gnom3 16:07 13-07-2011
Цитата:

Чем короче, тем лучше и скрипт красивше выглядит

С этим согласен, я имел ввиду те ситуации когда с заморочки просто не обойтись либо с ними удобнее! В данной ситуации я просто не знал про CreateUninstallRegKey (не всё же нам знать) вот и предложил с извращением.

Snoopak96 17:05 14-07-2011
Цитата:

Я про build 110319, там ошибка входа в библиотеку islzma при компиляции

У меня всё нормально, да и кроме вас этого никто не видел! Так что думается что это вы где-то ошиблись или напортачили!

demon1232010,
Цитата:

У меня всё нормально, да и кроме вас этого никто не видел! Так что думается что это вы где-то ошиблись или напортачили!

Добавь TNewIconImage, увидишь как у тебя всё нормально.

P.S. Уже разобрался в чём дело было, вопрос закрыт, на Inno Setup QuickStart Pack (ansi) 5.4.2 лучше юзать Inno ISCmplr Setup 5.4.2 build 110329, в прочем решайте сами.

Snoopak96 19:48 14-07-2011
Цитата:

Добавь TNewIconImage, увидишь как у тебя всё нормально.

TIconImage нет у Inno Compiler'а он в ISCmplr так что это ты что-то путаешь!
Не путай:
Inno Compiler всего лишь расширяет редактор, а ISCmplr уже добавляет новые возможности!!!

Цитата:

TIconImage нет у Inno Compiler'а он в ISCmplr так что это ты что-то путаешь!
Не путай:
Inno Compiler всего лишь расширяет редактор, а ISCmplr уже добавляет новые возможности!!!

Мда кто о чём, суть вопроса прочитай ещё раз.

Цитата:

подскажите, как в ISFreeArcExtract v4.0 от Shegorat'а убрать второй прогрессбар если один архив? И еще, зачем нужен FaTexture, и как им пользоваться?

Ну помогите же

Подскажите, как я могу выдать пользователю сообщение если у него Windows 7, с помощью http://wiki.delphi-jedi.org/wiki/JCL_Help:IsWin7 или http://wiki.delphi-jedi.org/wiki/JCL_Help:TWindowsVersion

MrLOLs
[more]
Код: procedure InitializeWizard();
var
ver: TWindowsVersion;
begin
GetWindowsVersionEx(ver);
if (ver.Major=6) and (ver.Minor=1) then
MsgBox('Используется Windows 7', mbInformation, MB_OK);
end;

Snoopak96 20:43 14-07-2011
Цитата:

суть вопроса прочитай ещё раз.

Ну пролистал я эту страницу, и не нашёл ни одного твоего вопроса. А теперь ты прочитай раз 15 мой пост, а потом пиши что-то, точнее прочитай эти строки
Цитата:

TIconImage нет у Inno Compiler'а он в ISCmplr

!

demon1232010,
Это ежу понятно что в стандартном Inno нету TIconImage, я про ResTools.

Ещё раз: Если поставить Inno Setup QuickStart Pack (ansi) и кинуть поверх Inno Setup Compiler 5.4.1-4.2 build 110319 от ResTools, не будет у вас компилировать если есть TIconImage и т.д. (+ там есть косяк с islzma.dll но он решаемый, смотря какаяя версия изначального Inno была), хотя должно компилировать, это видимо лежит за гранью человеческого понимания

как сюда перенести чекбоксы с vscredit и directX
http://i25.fastpic.ru/big/2011/0714/cc/49fa5afe9141c7c48899850fe8569fcc.jpg

fduf,

Цитата:

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: redist; Description: Дополнительное программное обеспечение; Types: full; Flags: fixed
Name: redist\VCRedist; Description: Microsoft Visual C ++; Flags:checkablealone;

[Run]
Filename: {src}\redist\vcredist_x86_ru.exe; Parameters: /q; StatusMsg: Установика Microsoft Visual C ++; Components: redist\VCRedist;