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

[svensoft]

zzzombie89,
svensoft, вот скрин собственно, надеюсь на вашу помощь . . . »
Значит так :
Попробуйте после #expr FileClose(faAnyFile) поставить ";", то есть получается вот так #expr FileClose(faAnyFile);
Если сработает, то выложите скрин ошибки по поводу {#SourceToProgress}. Если же нет, то могу предложить или сменить версию инно (так как у меня ваш скрипт нормально компилится, не на что не ругается и все распаковывает), или как вариант юзать вот этот скрипт : http://upwap.ru/771651

Добавил:
если вот это #expr FileClose(faAnyFile); не поможет, то попробуйте в этой строке :
#for {faAnyFile = FileOpen(Current); !FileEof(faAnyFile); LastLine = FileRead(faAnyFile)} NULL
тоже в конце поставить ";"

[zzzombie89]

svensoft, я пробовал ещё тогда ставить ";" . . . всё равно не проходит компиляцию . . .

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

[Lol2xD.]

Serega, не весь конечно ))спасибо большое =))

[zzzombie89]

svensoft, пробовал как вы посоветовали . . . три комбинации и всё равно не компилируется . . .

[svensoft]

то на какую версию инно предложите перейти »
У меня : Inno Setup Compiler version 5.3.7.ee1 (a) - ISPP 5.3.6.e1 (a) , брал где то на http://restools.hanzify.org

[zzzombie89]

svensoft, спасибо, попробую щас на другую перейти версию . . . не знаю что из этого получится

[zzzombie89]

svensoft, сменил версию . . . теперь вот такая ошибка появилась при компиляции . . . всё в той же секции . . . :(

http://imglink.ru/show-image.php?id=1e06b399a1d1b7775eb23cf8fdcdd576

[svensoft]

zzzombie89,
теперь вот такая ошибка появилась при компиляции »
Ставте себе другую версию инно, чтобы брала этот код, больше ничем помочь тут не могу. Скрипт полностью рабочий, написан спецами.. все проблема в вашем случае - это версия инно

[Akella2007]

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

[serg aka lain]

Как сделать, чтобы вместо неизвестно стоял какой-нибудь другой текст? »
Никак, для этого нужна действительная цифровая подпись издателя.
Издатели программного обеспечения (http://windows.microsoft.com/ru-RU/windows-vista/When-to-trust-a-software-publisher)

[NZeee]

Привет всем. Захотел сделать инсталляция игры, но с Inno Setup работаю в первый раз. Какой код нужно добавить в скрипт, чтобы при установки шло извлечение архива .arc (в нём запакована игра)? Заранее спасибо :)

[zzzombie89]

svensoft, спасибо за помощь . . . я думал дело в скрипте . . .

NZeee, посмотри на сайте FreeArc . . . скачай скрипт для Inno с него . . . ну и сам FreeArc 0.60 -> http://freearc.org/ru/default.aspx

[alex2010]

а как сделать так, как у RG Механики?(если можно только код для вставки изображения)
http://s57.radikal.ru/i157/1002/94/a62770aad612t.jpg (http://radikal.ru/F/s57.radikal.ru/i157/1002/94/a62770aad612.png.html)

[Tukash]

кто подскажет вот такой код: при запуске setup.exe программа устанавливалась, а при повторном запуске setup.exe , запускался деинсталлятор

[vint56]

Tukash, вот код на повторный запуск
function InitializeSetup(): Boolean;
var
ResultCode: Integer;
s, ResultStr:string;
begin
Result:=True;
If not RegKeyExists(HKLM, 'SOFTWARE\MY_PROGRAM')
then
begin
MsgBox('Программа MY_PROGRAM не установлена или установлена неверно.' #13#13 'Дальнейшая работа мастера невозможна.', mbError, mb_Ok);
Result:=False;
end
else
begin
MsgBox('Программа MY_PROGRAM успешно обнаружена.' #13#13 'Установка полностью автоматическая.', mbInformation, mb_Ok);
begin
If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My_Program_v1.0_is1', 'UninstallString', ResultStr)
then
begin
If ResultStr<>''
then
begin
ResultStr:=RemoveQuotes(ResultStr);
if MsgBox('Программа установки обнаружила уже установленную программу ранней версии.' #13#13 'Вы желаете предварительно удалить ее?', mbInformation, MB_YESNO) = idYes
then
if not Exec(ResultStr, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode)
then
MsgBox('Ошибка удаления. ' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
end;
end;
end;
end;
end;

[Habetdin]

Tukash, [code]
function InitializeSetup(): Boolean;
var
UnStr: String;
ErrorCode: Integer;
begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\<тут вставляем значение AppName>_is1', 'UninstallString', UnStr) then
begin
If UnStr <> '' then
begin
UnStr := RemoveQuotes(UnStr);
Exec(UnStr, '/silent', '', SW_Show, ewWaitUntilTerminated, ErrorCode);
end;
end;
Result:= True;
end;

vint56, а при первом запуске:
MsgBox('Программа MY_PROGRAM не установлена или установлена неверно.' #13#13 'Дальнейшая работа мастера невозможна.', mbError, mb_Ok); »
? :lol:

[Tukash]

Habetdin
vint56
спасибо ребята! правда со скриптом винта были проблемы...

[Akella2007]

Никак, для этого нужна действительная цифровая подпись издателя.
Издатели программного обеспечения »

Я догадывался, что нужна цифровая подпись. По ссылке информация для простого юзера, а не для разработчика.

[SuperDan]

првет, ВСЕМ!
извините если этот вопрос уже был, он, как сделать WizardImageFile 310х310 pics! охота по шире...

[YURSHAT]

как сделать WizardImageFile 310х310 pics! охота по шире... »

Procedure InitializeWizard();
begin
with WizardForm.WizardBitmapImage do
begin
Width := ScaleX(310);
end;