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

svs23 · Отправлено: **10:52, 09-12-2014** | #**2105**

Цитата kotyarko@fb:

С какой целью?
И с какой целью вы используете переменную CurrentFileName (которая определяет обрабатываемый в данный момент файл, при установке)? »

нашел на одном из форумов код для создания резервных копий только для заменяемых файлов

сам код

Цитата:

procedure CreateBackup;
var
srcFile, destFile: string;
basePath, shortPath: string;
begin
if IsTaskSelected('src') then
begin
basePath := ExpandConstant('{app}\res_mods');
srcFile := ExpandConstant(CurrentFileName);
shortPath := srcFile;
StringChangeEx(shortPath, basePath, '', True);
destFile := ExpandConstant('{app}\res_mods\Backup') + shortPath;
ForceDirectories(ExtractFilePath(destFile));
MoveFile(PChar(srcFile), PChar(destFile));
end;
end;

так вот и пытаюсь его приспособить...

ранее, когда он был у меня в коде только один без этих BackupCheck, работал без проблем, а теперь....

Цитата saurn:

svs23, kotyarko@fb, просто переименовать недостаточно. В этом случае запись в удалении программ будут вести в никуда. Dodakaedr предложил верный вариант. Где-то на форуме была еще пара примеров, но суть везде одна. »

Цитата Dodakaedr:

но так будет правильнее »

спс, но я отключил отображение в УСТАНОВЛЕННЫХ ПРОГРАММАХ моего установщика, удаление через ярлык на рабочем столе или из папки где установлен