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

Kashtan007 · Отправлено: **13:04, 06-07-2014** | #**1071**

Dodakaedr, походу, что да) Эта секция только для удаления компонентов? А, что делать с бекапом? Как мне это совместить?

Dodakaedr · Конфигурация компьютера

Цитата Kashtan007:

Эта секция только для удаления компонентов? »

Для файлов и папок.

Цитата Kashtan007:

А, что делать с бекапом? Как мне это совместить? »

С этим я не могу помочь, у меня что-то не получается.

saneksanek · Отправлено: **18:27, 06-07-2014** | #**1073**

Kashtan007, Пример,дальше сам играйся https://yadi.sk/d/CP9bnROEW3iYq

Dodakaedr · Конфигурация компьютера

Цитата Kashtan007:

А, что делать с бекапом? Как мне это совместить? »

Цитата Dodakaedr:

С этим я не могу помочь, у меня что-то не получается. »

Получилось вот такое соченить. Тестируйте, вроде работает. Спасибо Sergey3695 за помощь

Код:

[Setup]
//WizardImageFile=Images\Дизайн установщика\Приветствие.bmp
AppName=ModPackFull
AppVersion=0.9.1
//SetupIconFile=Images\Дизайн установщика\back.ico
DefaultDirName=ModPackFull
AppendDefaultDirName=no
DirExistsWarning=no

[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"

[InstallDelete]
Type: filesandordirs; Name: {app}\old_res_mods; Check: del

[ Code]
//--------// Бекап и удаление старых модов [Начало] //--------//
var
  ModCheck, BackupCheck: TNewCheckBox;
  //--------// Бекап и удаление старых модов [Конец] //--------//
function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFileA@kernel32.dll stdcall';

function Del:Boolean;
begin
Result:=ModCheck.Checked;
end;

procedure InitializeWizard();

//--------// Бекап и удаление старых модов [Начало] //--------//
begin
   ModCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   ModCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   ModCheck.Parent := PageFromID(wpSelectDir).Surface;
   ModCheck.Caption:='Удалить все старые моды';
   ModCheck.left:=wizardForm.DirEdit.left;
   ModCheck.Top:=wizardForm.DirEdit.top + ScaleY(30);

   BackupCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   BackupCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   BackupCheck.Parent := PageFromID(wpSelectDir).Surface;
   BackupCheck.Caption:='Сохранить резервную копию старых модов';
   BackupCheck.left:=wizardForm.DirEdit.left;
   BackupCheck.Top:=ModCheck.top + ScaleY(30);
end;
//--------// Бекап и удаление старых модов [Конец] //--------//

//--------// Бекап и удаление старых модов [Начало]  //--------//

procedure CurStepChanged(CurStep: TSetupStep);
var
FindFiles: TFindRec;
i: integer;
MyFiles: array of string;
MyDir, BackDir: string;
begin
if CurStep=ssInstall then begin
if BackupCheck.Checked then begin
MyFiles:=['*.exe','*.package','*.precomp','*.jpg','*.txt','*.psd']; // указать файлы или маски нужные для бакупа через запятую. при указании маски '*' бакупятся все файлы с вложенными папками
MyDir:=ExpandConstant('{app}'+'\res_mods\'); //папка откуда бакупить
BackDir:=ExpandConstant('{app}'+'\old_res_mods\'); // папка куда бакупить
for i:=0 to GetArrayLength(MyFiles)-1 do
begin
if FindFirst(MyDir+MyFiles[i], FindFiles) then begin
repeat
if not DirExists(BackDir) then begin
CreateDir(BackDir);
end;
MoveFile(MyDir+ FindFiles.Name, BackDir+FindFiles.Name);
until not FindNext(FindFiles);
FindClose(FindFiles);
end;
end;
end;
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
FindFiles: TFindRec;
MyDir, BackDir: string;
begin
if CurUninstallStep = usPostUninstall then begin
MyDir:=ExpandConstant('{app}'+'\res_mods\'); //папка куда возвращать файлы
BackDir:=ExpandConstant('{app}'+'\old_res_mods\'); // папка откуда брать файлы
if DirExists(BackDir) then begin
if MsgBox('Восстановить данные из бэкапа?', mbConfirmation, MB_YESNO) = IDYES then begin
if FindFirst(BackDir+'*', FindFiles) then begin
repeat
MoveFile(BackDir+ FindFiles.Name, MyDir+FindFiles.Name);
until not FindNext(FindFiles);
FindClose(FindFiles);
RemoveDir(BackDir);
end;
end;
end;
end;
end;
//--------// Бекап и удаление старых модов [Конец]  //--------//

Kashtan007 · Отправлено: **15:51, 07-07-2014** | #**1075**

Dodakaedr, спасибо огромное за помощь) Передай Sergey3695 тоже спасибо)
P.S. Пойду тестировать)

Kashtan007 · Отправлено: **16:30, 07-07-2014** | #**1076**

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

Dodakaedr · Конфигурация компьютера

Цитата Kashtan007:

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

Я у себя проверил. Работает и удаление и бекап. Что-то вы напутали у себя. Скиньте в личку ваш оригинальный скрипт с которым вы работаете.....посмотрим что не так. Попробуйте еще этот пример:

Код:

[Setup]
//WizardImageFile=Images\Дизайн установщика\Приветствие.bmp
AppName=ModPackFull
AppVersion=0.9.1
//SetupIconFile=Images\Дизайн установщика\back.ico
DefaultDirName=ModPackFull
AppendDefaultDirName=no
DirExistsWarning=no

[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"

[ Code]
//--------// Бекап и удаление старых модов [Начало] //--------//
var
  ModCheck, BackupCheck: TNewCheckBox;
//--------// Бекап и удаление старых модов [Конец] //--------//
function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFileA@kernel32.dll stdcall';

procedure InitializeWizard();

//--------// Бекап и удаление старых модов [Начало] //--------//
begin
   ModCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   ModCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   ModCheck.Parent := PageFromID(wpSelectDir).Surface;
   ModCheck.Caption:='Удалить все старые моды';
   ModCheck.left:=wizardForm.DirEdit.left;
   ModCheck.Top:=wizardForm.DirEdit.top + ScaleY(30);

   BackupCheck:= TNewCheckBox.Create(PageFromID(wpSelectDir));
   BackupCheck.Width := PageFromID(wpSelectDir).SurfaceWidth;
   BackupCheck.Parent := PageFromID(wpSelectDir).Surface;
   BackupCheck.Caption:='Сохранить резервную копию старых модов';
   BackupCheck.left:=wizardForm.DirEdit.left;
   BackupCheck.Top:=ModCheck.top + ScaleY(30);
end;
//--------// Бекап и удаление старых модов [Конец] //--------//

//--------// Бекап и удаление старых модов [Начало]  //--------//

procedure CurStepChanged(CurStep: TSetupStep);
var
FindFiles: TFindRec;
i: integer;
MyFiles: array of string;
MyDir, BackDir: string;
begin
if CurStep=ssInstall then begin
if ModCheck.Checked then
begin
DelTree(ExpandConstant('{app}\old_res_mods'), True, True, True);
end;
if BackupCheck.Checked then begin
MyFiles:=['*.exe','*.package','*.precomp','*.jpg','*.txt','*.psd']; // указать файлы или маски нужные для бакупа через запятую. при указании маски '*' бакупятся все файлы с вложенными папками
MyDir:=ExpandConstant('{app}'+'\res_mods\'); //папка откуда бакупить
BackDir:=ExpandConstant('{app}'+'\old_res_mods\'); // папка куда бакупить
for i:=0 to GetArrayLength(MyFiles)-1 do
begin
if FindFirst(MyDir+MyFiles[i], FindFiles) then begin
repeat
if not DirExists(BackDir) then begin
CreateDir(BackDir);
end;
MoveFile(MyDir+ FindFiles.Name, BackDir+FindFiles.Name);
until not FindNext(FindFiles);
FindClose(FindFiles);
end;
end;
end;
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
FindFiles: TFindRec;
MyDir, BackDir: string;
begin
if CurUninstallStep = usPostUninstall then begin
MyDir:=ExpandConstant('{app}'+'\res_mods\'); //папка куда возвращать файлы
BackDir:=ExpandConstant('{app}'+'\old_res_mods\'); // папка откуда брать файлы
if DirExists(BackDir) then begin
if MsgBox('Восстановить данные из бэкапа?', mbConfirmation, MB_YESNO) = IDYES then begin
if FindFirst(BackDir+'*', FindFiles) then begin
repeat
MoveFile(BackDir+ FindFiles.Name, MyDir+FindFiles.Name);
until not FindNext(FindFiles);
FindClose(FindFiles);
RemoveDir(BackDir);
end;
end;
end;
end;
end;
//--------// Бекап и удаление старых модов [Конец]  //--------//

P.S. Если вы копипастом вставляли, то надо в строчке [ Code] удалить пробел. Вы это сделали?

saneksanek · Отправлено: **10:11, 08-07-2014** | #**1078**

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

Nordek · Конфигурация компьютера

Цитата Dodakaedr:

P.S. Если вы копипастом вставляли, то надо в строчке [ Code] удалить пробел. Вы это сделали? »

Dodakaedr, Чтоб не было подобного у пользователя: вариант.

В Inno Setup Compiler задумано ещё проще.
Знакомьтесь с настройками Inno Setup Compiler повнимательней:
Откройте Inno Setup Compiler
Инструменты » Настройки редактора
Перейдите во вкладку Копирование текста
Найдите: При копировании текста как UBB код, переключите на Использовать тег [Code] и нажмите ОК
На этом всё.

А дальше, копируете код который хотите вставить:
Выделяете содержимое; Жмёте правую кнопку мыши и выбираете Копировать как UBB код.

И всё, вам при вставке, даже не придётся здесь нажимать

т.к при копировании код будет со всеми необходимыми тегами:
[code][Code]
[/code]

Цитата saneksanek:

Можно как-то добавить сертификат подпись и вообще возможно-ли его создать и прикрутить »

SignTool

Dodakaedr · Конфигурация компьютера

Цитата Nordek:

В Inno Setup Compiler задумано ещё проще.
Знакомьтесь с настройками Inno Setup Compiler повнимательней:
Откройте Inno Setup Compiler
Инструменты » Настройки редактора
Перейдите во вкладку Копирование текста
Найдите: При копировании текста как UBB код, переключите на Использовать тег [code] и нажмите ОК
На этом всё. »

Спасибо! Но в не которых случаях копируется не корректно!