InnoSetup Ultra

1. 

   Оффлайн

   Leserg

   Звание: Ветеран

   Команда сайта

   Сообщений: 927

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

   Рейтинг: 8

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

   Баллы: 1586

   Был: 2024-04-23 22:51

   Лайков: 132

   Цитата: WYLEK

   добро пожаловать в нашу компанию!

   
   
   Спасибо Gnom

   Кто ищет, тот всегда найдет!
   

   1 июля 2011 - 01:35 / #21
2. 

   Оффлайн

   Автор темы

   WYLEK

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

   Админ

   Сообщений: 2178

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

   Рейтинг: 10

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

   Баллы: 3400

   Был: 2024-04-08 16:00

   Лайков: 196

   Можешь посмотреть что можно сделать в этой теме - Делаем патч в Inno как на PatchWise Free…
   
   Дело в том, что создается папка бэкапа, а можно ли сделать чтобы просто дописывала к файлу расширение .bak?
   
   Например плагинам для фотошопа пофиг из какой папки читать файл. Я с этим столкнулся и был удивлен - фотошоп спокойно читал из бэкапной папки в 32 битном режиме енг файл а в 64 битном рус файл?! А если устанавливать с расширением .bak исходный файл - то все нормально.

   

   1 июля 2011 - 11:02 / #22
3. 

   Оффлайн

   Gnom

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

   Знаток

   Сообщений: 79

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

   Рейтинг: 2

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

   Баллы: 51

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

   Был: 2023-04-05 20:55

   Лайков: 2

   Так то можно, вариантов бекапа несколько, у того-же Доброва есть пример от Генри, не очень понятно, чего нужно, но сейчас посмотрю, чего можно сделать
   Есть функция, которая замесчательно подойдет для этого:
   function FileCopy(const ExistingFile, NewFile: String; const FailIfExists: Boolean): Boolean;
   -копирует файл с заменой имени и расширения, сейчас придумаю, как прикрутить ее к бекапу.
   
   нужен полный набор, для экспериметов и отладки.
   
   Навскидку - как то так должно выглядеть:
   
   
   

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

   
   
   [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";
   // Файл, который будем пачить.
   PatchedFile = "wylek.exe";
   // Файл, который будет в бекапе.
   BackupedFile = "wylek.bak";
   
   function vpatch(parentwnd: Integer; pluginname,funcname,param1,param2,param3: PChar): 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
   FileCopy(ExpandConstant("{app}"+BackupDir+""+BackupFileName),E
   xpandConstant("{app}"+Filename),False);
   DeleteFile(ExpandConstant("{app}"+BackupDir+""+BackupFileName)
   );
   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;
   If CurPage=6 then
   begin
   If (FileSearch(PatchedFile, ExpandConstant("{app}"))="")
   //Вставьте полное имя файла выше для проверки на присутствие
   then
   begin
   s:="Извините, в директории "+ExpandConstant("{app}")+"" #13 "не обнаружены оригинальные файлы." #13#13 "Пожалуйста, выберите правильный путь к папке для установки обновления.";
   MsgBox(s, mbError, mb_Ok);
   Result:= False
   end;
   end;
   end;
   
   //Не забываем вставить порверку на присутствие проверяемого файла
   
   procedure CurPageChanged(CurPageID: Integer);
   var
   MD5,s:string;
   begin
   
   if CurPageID = wpInstalling
   then
   begin
   MD5:= GetMD5OfFile(ExpandConstant("{app}PatchedFile"));
   If not (MD5 = "9711713d2e4173cccfeeea1ffd76f129")
   //Вставьте полное имя файла выше и MD5 с енг буквами В НИЖНЕМ РЕГИСТРЕ!
   then
   
   begin
   s:="Ошибка MD5 в файле обновления!" #13#13 "Установка прекращена.";
   MsgBox(s, mbCriticalError, mb_Ok); //Если хеш файла(ов) не соответствует, выдается сообщение, и на этом все действия прекращаются.
   WizardForm.Close; //Закрытие инсталлятора
   Exit; //Прерывание и откат всех действий
   end;
   end;
   end;
   
   //Не забываем дописать еще такую процедуру
   procedure CancelButtonclick(CurPage:Integer; var Cancel, Confirm: Boolean);
   begin
   Cancel:=True;
   If CurPage=12 //Это непосредственно страница с индикатором выполнения
   then
   begin
   Confirm:=False; //На этой странице отключаем появление сообщения при нажатии на кнопку Отмена
   end;
   end;
   
   procedure CurStepChanged(CurStep: TSetupStep);
   begin
   If CurStep=ssInstall then
   begin
   CreateDir(ExpandConstant("{app}"+BackupDir))
   
   BackupFile(PatchedFile,BackupedFile);
   if PatchFileFunc(PatchedFile,BackupedFile) = 1 then
   RestoreFile(BackupedFile,PatchedFile)
   WizardForm.PROGRESSGAUGE.POSITION := 33;
   end;
   end;
   //Вставьте полные имена файлов выше на каждую процедуру отдельно

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

   Сообщение отредактировал 25 января 2023 - 21:07
   1 июля 2011 - 12:58 / #23
4. 

   Оффлайн

   Автор темы

   WYLEK

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

   Админ

   Сообщений: 2178

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

   Рейтинг: 10

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

   Баллы: 3400

   Был: 2024-04-08 16:00

   Лайков: 196

   Цитата: Gnom

   Навскидку - как то так должно выглядеть:

   
   
   
   Проверил - работает. Но переменные не прошли в поиске и MD5 файла, сделал напрямую ехе-файл
   
   вот здесь - If (FileSearch("ThemesCreator.exe", ExpandConstant("{app}"))="")
   
   и здесь - MD5:= GetMD5OfFile(ExpandConstant("{app}ThemesCreator.exe"));
   
   иначе проходило пропатчивание а потом выполнялся поиск и выводило ошибку.
   
   И еще вопрос - как быть с этой процедурой с 10 файлами патча?
   Что и куда вводить данные?
   
   

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

   [code]
   BackupFile(PatchedFile,BackupedFile);
   if PatchFileFunc(PatchedFile,BackupedFile) = 1 then
   RestoreFile(BackupedFile,PatchedFile)
   WizardForm.PROGRESSGAUGE.POSITION := 33;

   
   
   Вот проверенный код
   
   
   

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

   [Code]
   const
   BackupDir = "PatchBackup";
   PatchFile = "MyPatch.dat";
   // Файл, который будем пачить.
   PatchedFile = "ThemesCreator.exe";
   // Файл, который будет в бекапе.
   BackupedFile = "ThemesCreator.bak";
   
   function vpatch(parentwnd:Integer; pluginname,funcname,param1,param2,param3: PChar): 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+""+BackupFi leName),ExpandConstant("{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
   FileCopy(ExpandConstant("{app}"+BackupDir+""+BackupFileName),E
   xpandConstant("{app}"+Filename),False);
   DeleteFile(ExpandConstant("{app}"+BackupDir+""+BackupFileName)
   );
   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;
   If CurPage=6 then
   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;
   
   //Не забываем вставить порверку на присутствие проверяемого файла
   
   procedure CurPageChanged(CurPageID: Integer);
   var
   MD5,s:string;
   begin
   
   if CurPageID = wpInstalling
   then
   begin
   MD5:= GetMD5OfFile(ExpandConstant("{app}ThemesCreator.exe"));
   If not (MD5 = "9711713d2e4173c3cf450a1ffd76f129")
   //Вставьте полное имя файла выше и MD5 с енг буквами В НИЖНЕМ РЕГИСТРЕ!
   then
   
   begin
   s:="Ошибка MD5 в файле обновления!" #13#13 "Установка прекращена.";
   MsgBox(s, mbCriticalError, mb_Ok); //Если хеш файла(ов) не соответствует, выдается сообщение, и на этом все действия прекращаются.
   WizardForm.Close; //Закрытие инсталлятора
   Exit; //Прерывание и откат всех действий
   end;
   end;
   end;
   
   //Не забываем дописать еще такую процедуру
   procedure CancelButtonclick(CurPage:Integer; var Cancel, Confirm: Boolean);
   begin
   Cancel:=True;
   If CurPage=12 //Это непосредственно страница с индикатором выполнения
   then
   begin
   Confirm:=False; //На этой странице отключаем появление сообщения при нажатии на кнопку Отмена
   end;
   end;
   
   procedure CurStepChanged(CurStep: TSetupStep);
   begin
   If CurStep=ssInstall then
   begin
   CreateDir(ExpandConstant("{app}"+BackupDir))
   
   BackupFile(PatchedFile,BackupedFile);
   if PatchFileFunc(PatchedFile,BackupedFile) = 1 then
   RestoreFile(BackupedFile,PatchedFile)
   WizardForm.PROGRESSGAUGE.POSITION := 33;
   end;
   end;

   Сообщение отредактировал 25 января 2023 - 21:07

   

   1 июля 2011 - 15:18 / #24
5. 

   Оффлайн

   Gnom

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

   Знаток

   Сообщений: 79

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

   Рейтинг: 2

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

   Баллы: 51

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

   Был: 2023-04-05 20:55

   Лайков: 2

   Цитата: WYLEK

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

   
   
   1 июля 2011 - 16:07 / #25
6. 

   Оффлайн

   Автор темы

   WYLEK

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

   Админ

   Сообщений: 2178

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

   Рейтинг: 10

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

   Баллы: 3400

   Был: 2024-04-08 16:00

   Лайков: 196

   Цитата: Gnom

   и прописывать PatchedFile и BackupedFile везде, где нужно, этот вариант был хорош для одного файла smile для нескольких этот блок:

   
   
   
   Большое спасибо!
   Все работает - баки создаются.
   
   

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

   

   

   1 июля 2011 - 22:42 / #26
7. 

   Оффлайн

   Gnom

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

   Знаток

   Сообщений: 79

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

   Рейтинг: 2

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

   Баллы: 51

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

   Был: 2023-04-05 20:55

   Лайков: 2

   Если сегоlня будут вопросы, отвечу вечером, после 8-ми. Сегодня и завтра я на смене.
   2 июля 2011 - 09:56 / #27
8. 

   Оффлайн

   Автор темы

   WYLEK

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

   Админ

   Сообщений: 2178

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

   Рейтинг: 10

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

   Баллы: 3400

   Был: 2024-04-08 16:00

   Лайков: 196

   Вот что вышло
   
   

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

   

   
   
   Пока вытягивал из французcкого языкового файла недостающие ресурсы для енг версии, почти его выучил

   Сообщение отредактировал 25 января 2023 - 21:08

   

   11 июля 2011 - 00:09 / #28
9. 

   Оффлайн

   Gnom

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

   Знаток

   Сообщений: 79

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

   Рейтинг: 2

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

   Баллы: 51

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

   Был: 2023-04-05 20:55

   Лайков: 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: PChar): Integer;
   external "MoveFileA@kernel32.dll stdcall";
   
   function vpatch(parentwnd: Integer; pluginname,funcname,param1,param2,param3: PChar): Integer;
   external "vpatch@files:callvpatch.dll stdcall";
   
   function PatchFileFunc(FileName,BackupFileName: String): Integer;
   begin
   Resultnstant("{tmp}"+PatchFile),
   ExpandConstant("{app}"+BackupDir+""+BackupFileName),ExpandCons
   tant("{app}"+FileName));
   // Result :
   // 0 = іЙ№¦
   // 1 = К§°Ь
   end;
   
   procedure BackupFile(FileName,BackupFileName:= 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),
   ExpandConstant("{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 //case of//Вставьте полное имя файла выше для проверки на присутствие
   then begin
   s:="Извините, в директории "+ExpandConstant("{app}")+"
   " #13 "не обнаружены оригинальные файлы." #13#13
   "Пожалуйста, выберите правильный путь к папке для установки обновления.";
   MsgBox(s, mbError, mb_Ok); Result:= False;
   end; end; end; end;
   
   //Не забываем вставить порверку на присутствие проверяемого файла
   
   procedure CurPageChanged(CurPageID: begin end; - работает намного быстрее, чем If then begin end;
   If (FileSearch(wylek.exe, ExpandConstant("{app}"))="");
   //Вставьте полное имя файла выше для проверки на присутствие
   then begin
   s:="Извините, в директории "+ExpandConstant("{app}")+"
   " #13 "не обнаружены оригинальные файлы." #13#13
   "Пожалуйста, выберите правильный путь к папке для установки обновления.";
   MsgBox(s, mbError, mb_Ok); Result:= False;
   end; end; end; end;
   
   //Не забываем вставить порверку на присутствие проверяемого файла
   
   procedure CurPageChanged(CurPageID: Integer);
   var
   MD5,s:string;
   begin case CurPage of wpInstalling: begin
   MD5If not (MD5 = "9711713d2e4173cccfeeea1ffd76f129")
   //Вставьте полное имя файла выше и MD5 с енг буквами В НИЖНЕМ РЕГИСТРЕ!
   then begin
   s:="Ошибка MD5 в файле обновления!" #13#13 "Установка прекращена.";
   MsgBox(s, mbCriticalError, mb_Ok); //Если хеш файла(ов) не соответствует, выдается сообщение, и на этом все действия прекращаются.
   WizardForm.Close; //Закрытие инсталлятора
   Exit; //Прерывание и откат всех действий
   end; end; end; end;
   
   //Не забываем дописать еще такую процедуру
   procedure CancelButtonclick(CurPage:= GetMD5OfFile(ExpandConstant("{app}wylek.exe"));
   If not (MD5 = "9711713d2e4173cccfeeea1ffd76f129")
   //Вставьте полное имя файла выше и MD5 с енг буквами В НИЖНЕМ РЕГИСТРЕ!
   then begin
   s:="Ошибка MD5 в файле обновления!" #13#13 "Установка прекращена.";
   MsgBox(s, mbCriticalError, mb_Ok); //Если хеш файла(ов) не соответствует, выдается сообщение, и на этом все действия прекращаются.
   WizardForm.Close; //Закрытие инсталлятора
   Exit; //Прерывание и откат всех действий
   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);
   begin case CurStep of ssInstall: begin
   CreateDir(ExpandConstant("{app}"+BackupDir)); BackupFile(wylek.exe,wylek.bak);
   if PatchFileFunc(wylek.exe,wylek.bak) = 1 then begin
   RestoreFile(wylek.bak,wylek.exe);
   WizardForm.PROGRESSGAUGE.POSITION := 33;
   end; end; end; end;
   

   
   Пишем об ошибках, буду исправлять, данный вариант должен работать значительно быстрей, на большом количестве файлов.
   11 июля 2011 - 15:10 / #29
10. 

    Оффлайн

    Автор темы

    WYLEK

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

    Админ

    Сообщений: 2178

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

    Рейтинг: 10

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

    Баллы: 3400

    Был: 2024-04-08 16:00

    Лайков: 196

    Цитата: Gnom

    Пишем об ошибках, буду исправлять, данный вариант должен работать значительно быстрей, на большом количестве файлов.

    
    
    
    
    Работает вот так...
    
    
    

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

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

    
    
    [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: PChar): Integer;
    external "MoveFileA@kernel32.dll stdcall";
    
    function vpatch(parentwnd: Integer; pluginname,funcname,param1,param2,param3: PChar): Integer;
    external "vpatch@files:callvpatch.dll stdcall";
    
    function PatchFileFunc(FileName,BackupFileName: String): Integer;
    begin
    Result:= vpatch(1,ExpandConstant("{tmp}VPatch.dll"),"vpatchfile",ExpandConstant("{tmp}"+PatchFile),
    ExpandConstant("{app}"+BackupDir+""+BackupFi leName),ExpandConstant("{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),
    ExpandConstant("{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 //case of: begin end; - работает намного быстрее, чем If then begin end;
    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 CurPageChanged(CurPageID:Integer);
    var
    MD5,s:string;
    begin
    
    if CurPageID = wpInstalling
    then
    begin
    MD5:= GetMD5OfFile(ExpandConstant("{app}ThemesCreator.exe"));
    If not (MD5 = "9711713d2e4173c3cf450a1ffd76f129")
    //Вставьте полное имя файла выше и MD5 с енг буквами В НИЖНЕМ РЕГИСТРЕ!
    then
    
    begin
    s:="Ошибка MD5 в файле обновления!" #13#13 "Установка прекращена.";
    MsgBox(s, mbCriticalError, mb_Ok); //Если хеш файла(ов) не соответствует, выдается сообщение, и на этом все действия прекращаются.
    WizardForm.Close; //Закрытие инсталлятора
    Exit; //Прерывание и откат всех действий
    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);
    begin case CurStep of ssInstall: 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;
    

    Сообщение отредактировал 25 января 2023 - 21:08

    

    11 июля 2011 - 16:54 / #30