InnoSetup Ultra

Inno Setup Ultra 5.5.1Программа для создания инсталляционных пакетов. Созданный утилитой инсталляционный файл какого-либо приложения, позволяет

Оффлайн

Автор темы

WYLEK

Звание: Легенда

Админ

Сообщений: 2232

Создано тем: 322

Рейтинг: 10

Репа: (246|246|0)

Баллы: 4000

Был: 2025-05-09 18:06

Лайков: 219

Цитата: Gnom
Работает вот так...

Посмотри код в сообщение 33 или 35. дело в том, что если MD5 не сходится, все равно процедура пропатчивания происходит.
А надо бы выход сделать из установки.

22 февраля 2012 - 20:08 / #41
Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Вот так должно нормально отработать.

Показать / Скрыть текст
Показать / Скрыть текст

[Setup]
DisableFinishedPage=True
AppName=Themes Creator
AppVerName=3.0
UsePreviousAppDir=true
DefaultDirName={pf}Sony EricssonThemes Creator
Uninstallable=false
Compression=lzma
SolidCompression=true
OutputBaseFilename=Themes Creator
LicenseFile=embeddedLicense.rtf
WizardImageFile=embeddedWizModernImage-Is.bmp
WizardSmallImageFile=embeddedWizardSmallImage.bm p
SetupIconFile=embeddedWXICON.ico

[Files]
Source: callvpatch.dll; Flags: dontcopy
Source: VPatch.dll; Flags: dontcopy
Source: MyPatch.dat; Flags: dontcopy

[Code]
const
     BackupDir = "PatchBackup";
     PatchFile = "MyPatch.dat";

// Задействуем системную функцию для перемещения файлов при ресторинге - здорово ускорит работу при большом количестве файлов.
function MoveFile(const srcFile, destFile: PAnsiChar): Integer;external "MoveFileA@kernel32.dll stdcall";
function vpatch(parentwnd: Integer; pluginname,funcname,param1,param2,param3: PAnsiChar): Integer;external "vpatch@files:callvpatch.dll stdcall";

function PatchFileFunc(FileName,BackupFileName: String): Integer;
begin
     Result:= vpatch(1,ExpandConstant("{tmp}VPatch.dll"),"vpatchfile",ExpandCo
nstant("{tmp}"+
PatchFile),
     ExpandConstant("{app}"+BackupDir+""+BackupFileName),ExpandCons
tant("{app}
"+FileName));
// Result :
// 0 = іЙ№¦
// 1 = К§°Ь
end;

procedure BackupFile(FileName,BackupFileName:String);
begin
     if not FileExists(ExpandConstant("{app}"+BackupDir+""+BackupFileName)
) then
     FileCopy(ExpandConstant("{app}"+Filename),ExpandConstant("{app}
"+BackupDir
+""+BackupFileName),True);
end;

procedure RestoreFile(BackupFileName,FileName: String);
begin
     MoveFile(ExpandConstant("{app}"+BackupDir+""+BackupFileName),E
xpandConstan
t("{app}"+Filename));
end;

function InitializeSetup(): Boolean;
begin
     if not FileExists(ExpandConstant("{tmp}VPatch.dll")) then ExtractTemporaryFile("VPatch.dll");
     if not FileExists(ExpandConstant("{tmp}MyPatch.dat")) then ExtractTemporaryFile("MyPatch.dat");
     Result:=true;
end;

// Проверка присутствия определенных файлов в папке с установленной программой на странице выбора папки назначения
function NextButtonclick(CurPage: Integer): Boolean;
var
     s:string;
begin
     Result:=True;
     case CurPage of 6:
       begin
         If (FileSearch("ThemesCreator.exe", ExpandConstant("{app}"))="") then //Вставьте полное имя файла выше для проверки на присутствие
         begin
           s:="Извините, в директории "+ExpandConstant("{app}")+"" #13 "не обнаружены оригинальные файлы." #13#13 "Пожалуйста, выберите правильный путь к папке для установки обновления.";
           MsgBox(s, mbError, mb_Ok);
           Result:= False;
         end;
       end;
     end;
end;

procedure CancelButtonclick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
     Cancel:=True;
     case
       CurPage of
       12: Confirm:=False;
     end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
     MD5,s:string;
begin
     case CurStep of
       ssInstall:
       begin
         MD5 := GetMD5OfFile(ExpandConstant("{app}ThemesCreator.exe"));
         If not (MD5 = "9711713d2e4173c3cf450a1ffd76f129") then //Вставьте полное имя файла выше и MD5 с енг буквами В НИЖНЕМ РЕГИСТРЕ!
         begin
           s:="Ошибка MD5 в файле обновления!" #13#13 "Установка прекращена.";
           MsgBox(s, mbCriticalError, mb_Ok); //Если хеш файла(ов) не соответствует, выдается сообщение, и на этом все действия прекращаются.
           WizardForm.Close; //Закрытие инсталлятора
           Exit; //Прерывание и откат всех действий
         end else
         begin
// ----- в этом блоке собственно пропачивание -----
           CreateDir(ExpandConstant("{app}"+BackupDir));

           BackupFile("ThemesCreator.exe","ThemesCreator.bak");
           if PatchFileFunc("ThemesCreator.exe","ThemesCreator.bak") = 1 then
           RestoreFile("ThemesCreator.bak","ThemesCreator.exe");
           WizardForm.PROGRESSGAUGE.POSITION := 33;

           BackupFile("ReleaseNotes.txt","ReleaseNotes.bak");
           if PatchFileFunc("ReleaseNotes.txt","ReleaseNotes.bak") = 1 then
           RestoreFile("ReleaseNotes.bak","ReleaseNotes.txt");
           WizardForm.PROGRESSGAUGE.POSITION := 66;
// --------------------------------------------------
         end;
       end;
     end;
end;
Сообщение отредактировал 25 января 2023 - 21:08

22 февраля 2012 - 21:20 / #42
Оффлайн

Автор темы

WYLEK

Звание: Легенда

Админ

Сообщений: 2232

Создано тем: 322

Рейтинг: 10

Репа: (246|246|0)

Баллы: 4000

Был: 2025-05-09 18:06

Лайков: 219

Цитата: Gnom
Вот так должно нормально отработать.

Это работает как надо! Спасибо! Там правда одна очепятка но я нашел и исправил.

22 февраля 2012 - 23:53 / #43
Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Цитата: WYLEK
но я нашел и исправил.

В моем посте поправишь? а то кто-то менее опытный возьмет, и замучается искаить проблему

23 февраля 2012 - 10:27 / #44
Оффлайн

Автор темы

WYLEK

Звание: Легенда

Админ

Сообщений: 2232

Создано тем: 322

Рейтинг: 10

Репа: (246|246|0)

Баллы: 4000

Был: 2025-05-09 18:06

Лайков: 219

Цитата: Gnom
В моем посте поправишь? а то кто-то менее опытный возьмет, и замучается искаить проблему

Ничего, найдут подсказка вот - BackupFi leName
Кстати я вставил код Лингвистическая защита в установщик и там такая же ситуация во всем нете с ошибкой идет скрипт - MsgBox("Ответ неверен!", mb Information, MB_OK)

23 февраля 2012 - 11:09 / #45
Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Цитата: WYLEK
подсказка вот

Ага, поправил. это косяк форумного тега, бывает такое. Заодно поправил, чтоб и под юникодом работало.

23 февраля 2012 - 11:24 / #46
Оффлайн

Xotabush

Звание: Сталкер

Участники

Сообщений: 118

Создано тем: 4

Рейтинг: 3

Репа: (1|1|0)

Баллы: 66

Страна: не указана!

Был: 2025-03-18 20:11

Лайков: 1

Всем привет!,Вопрос есть возможность в программе поменять значок инсталлятора.

Добавлено (04.05.2012, 12:54:25)
---------------------------------------------
Всем привет,чет у нас тишина.
Сегодня столкнулся с проблемой
Показать / Скрыть текст

У кого какие мысли,дело происходит при компиляции.
Но вопрос о том как заменить значок инсталлятора остается

4 мая 2012 - 14:54 / #47
Оффлайн

Krig

Звание: Бывалый

Знаток

Сообщений: 188

Создано тем: 7

Рейтинг: 4

Репа: (86|86|0)

Баллы: 56

Был: 2023-03-14 15:26

Лайков: 82

Цитата: Xotabush
Сегодня столкнулся с проблемой

Там же в сообщении написано в чем проблема: Требуемая функция или процедура "ShowSelectUserTask" не найдена.
Это означает, что функция или процедура "ShowSelectUserTask", которую использует твой скрипт, не найдена. Возможная причина: или не установлен плагин, откуда идет её вызов, или в скрипте не сделано её объявление, или ещё чего. Что-то конкретно тяжело сказать.

4 мая 2012 - 17:05 / #48
Оффлайн

Xotabush

Звание: Сталкер

Участники

Сообщений: 118

Создано тем: 4

Рейтинг: 3

Репа: (1|1|0)

Баллы: 66

Страна: не указана!

Был: 2025-03-18 20:11

Лайков: 1

Цитата: Krig
В разделе скрипта [Setup]напиши параметр SetupIconFile, а его значением укажи полный путь к своему значку. При сборке инсталлятора будет использован значок, который ты указал. Например: SetupIconFile=F:TMPCSvalve.ico.

С этим разобрался,все получилось.

4 мая 2012 - 22:09 / #49
Оффлайн

Gnom

Звание: Новичок

Знаток

Сообщений: 79

Создано тем: 1

Рейтинг: 2

Репа: (6|6|0)

Баллы: 51

Страна: не указана!

Был: 2024-10-30 19:17

Лайков: 2

Цитата: Xotabush
У кого какие мысли,дело происходит при компиляции.

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

5 мая 2012 - 11:19 / #50