[Leka_651]

Добрый день!
Помогите, пожалуйста.
Ситуация следующая: перед установкой делается бекап старых файлов и, если установка была прервана, нужно чтобы файлы из бекапа переносились на старое место.
У меня только частично получилось это сделать. Папка с вложенными папками возвращается обратно и не удаляется. А папка с файлами переносится, но затем удаляется.
Можно ли это как-то сделать, не отказываясь от механизма отката.

[Johny777]

Leka_651,
Уважаемая!
предоставьте для начала код всего того что Вы описали для наглядности
код в [more][code] здесь весь код [/code][/more]

sergey3695,
рискну предположить, что иконка - внешний файл и лежит на втором диске
если да, то попробуй записать строку секции файлов отвечающей за копирование иконки первой в секции и положить файл на диск рядом с экзешником инсталла

El Sanchez,
а в принципе не нужно
и без обновления рабочего стола по тестам работает на ура
сам попробуй (убрал все ограничения. Не проверяется наличие экзешников и ключа реестра)
нововведение - кнопка "параметры"
http://sendfile.su/642570

[nik1967]

Никто не знает из-за чего может возникнуть такая ошибка? Кто знает как это исправить?»

Привет! Знает. Тут 2 варианта (больше не думал ):
1. Использовать флаг external в секции [Files] для нужных файлов, ну и положить эти файлы на 2 диск (можно в папку).
2. Запаковать нужные файлы в архив и распаковать куда надо в процессе установки. (Ну и естественно удалить их из секции [Files]. Одно но, у этих файлов не будет атрибутов скрытый, системный).

[Johny777]

Одно но, у этих файлов не будет атрибутов скрытый, системный »

можно через код после распаковки присвоить им эти значения вот таким макаром:
http://forum.oszone.net/post-1721753-2460.html

[nik1967]

Johny777, ты про

Код:

SetFileAttributes(PChar(ExpandConstant('{app}\desktop.ini')), FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM); //скрываем ини-файл и ставим атрибут системный

Спасибо, не знал. (А в справке не добрался, похоже. Да и не искал, если честно ).

[Johny777]

nik1967,
ну тогда вот ещё пример
в отличии от верхнего кода кто автор этого не знаю

"Как проверить, стоит ли атрибут 'Только для чтения' у текстового файла и, если стоит, то убрать его"

Вот два решения:

читать дальше »

Код:

Решение через FindFirst : 
function SetFileAttributes(lpFileName: string; dwFileAttributes: integer): integer; 
external 'SetFileAttributesA@kernel32.dll stdcall'; 

procedure InitializeWizard(); 
var 
FileName: string; 
SR: TFindRec; 
begin 
FileName:= 'C:\TEMP\aaa.txt'; 
FindFirst(FileName, SR); 

if (SR.Attributes and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then 
SetFileAttributes(FileName, FILE_ATTRIBUTE_NORMAL); 
FindClose(SR); 
end; 

Решение через GetFileAttributes : 
function GetFileAttributes(lpFileName: string): integer; 
external 'GetFileAttributesA@kernel32.dll stdcall'; 

function SetFileAttributes(lpFileName: string; dwFileAttributes: integer): integer; 
external 'SetFileAttributesA@kernel32.dll stdcall'; 

procedure InitializeWizard(); 
var 
FileName: string; 
begin 
FileName:= 'C:\TEMP\aaa.txt'; 
if (GetFileAttributes(FileName) and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then 
SetFileAttributes(FileName, FILE_ATTRIBUTE_NORMAL); 
end;

теперь тема атрибутов "скрытый, системный" раскрыта полностью!

[nik1967]

Johny777, ещё раз спасибо! Я как Плюшкин, всё тяну себе - авось когда и пригодиться .

[Leka_651]

Привожу кусок кода - процедуру CancelButtonClick. Весь код для сборки сетапов занимает несколько файлов. Если нужно могу выложить и их.

читать дальше »

Код:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean );
var
  backup_name, moduly_name, jinnee_dir :string;
begin
      jinnee_dir := ExpandConstant( '{app}{#JINNEE_DIR}' );
// функция BackupDirName возвращает название папки, в которую делается бекап
      backup_name := BackupDirName('');
      moduly_name := ExpandConstant( '{app}{#CLIENT_DIR}' );
      if DirExists(backup_name) then
        begin
          MoveDir(backup_name+'\Модули', moduly_name);
          MsgBox('переместили модули', mbError, MB_OK) 
          MoveDir(backup_name+'\Jinnee', jinnee_dir);
          MsgBox('переместили джинн', mbError, MB_OK)
       end;
end;

папка Модули содержит вложенные папки и остается, а папка Jinnee содержит только файлы и в итоге удаляется.

[Johny777]

Я как Плюшкин, всё тяну себе - авось когда и пригодиться »

я тоже
если хочешь дам тебе папку всех кодов какие есть
только в ней порядок сначала навести нужно

Leka_651,
для процедуры отмены попробуй так

читать дальше »

Код:

[Setup]
AppName=MyAppName
AppVerName=MyAppName
DefaultDirName=MyAppName


[code]
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:=False; /// убираем подтверждение
  
  sleep(10000);/// заместо этой строки твой процесс бэкапа (копирование)
  
  Cancel := True; /// после копирования наконец таки выходим из инсталла
end;

[Leka_651]

Johny777,
попробовала. все осталось по старому.
получается, что стандартный механизм отката запускается после того как я все вытащила из бекапа. и удаляет, но только частично, не трогая папку Модули. Я не понимаю почему так

а можно сделать так, чтобы мои действия выполнялись после отката?