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

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

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

kotyarko@fb · Отправлено: **10:46, 09-12-2014** | #**2102**

Цитата svs23:

прописал в [Files]
Source: BeforeInstall: BackupCheck_4(); »

С какой целью?

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

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

Цитата svs23:

спс, но для меня это сложновато »

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

kotyarko@fb · Отправлено: **10:49, 09-12-2014** | #**2104**

Цитата saurn:

В этом случае ярлык деинсталятора(если есть) и запись в удалении программ будут вести в никуда. »

Ну тогда ещё реестр можно подправить:

Код:

RegWriteStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\Программа_is1','UninstallString', ExpandConstant('{app}\uninstall.exe'));

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:

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

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

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

svs23, если хотите использовать BackupCheck_4() в таком виде в BeforeInstall, то тогда function замените на procedure. И читайте в справке о использовании внешних и встроенных функций.

Цитата kotyarko@fb:

Ну тогда ещё реестр можно подправить: »

Да. Ну и еще пару записей в реестре.

kotyarko@fb · Отправлено: **11:04, 09-12-2014** | #**2107**

Цитата saurn:

Да. Ну и еще пару записей в реестре. »

Хм.. значит, невнимательно просматривал. Буду знать.

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

Цитата saurn:

svs23, если хотите использовать BackupCheck_4() в таком виде в BeforeInstall, то тогда function замените на procedure. И читайте в справке о использовании внешних и встроенных функций. »

спс. вроде помогло, проверяю....

всем ОГРОМНОЕ спс за помощь, все заработало так как я хочу...
теперь еще unins домучаю и все, с меня хватит
еще раз всем спс

svs23 · Отправлено: **11:44, 09-12-2014** | #**2109**

последняя, надеюсь, просьба

помогите увязать в одной функции два кода

функция1

Цитата:

procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssInstall then
begin
BackupCheck_2();
BackupCheck_3();
end;
end;

функция2

Цитата:

procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssDone: RewritingUninstallData();
end;
end;

у меня не получается...

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

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssInstall:
begin
BackupCheck_2();
BackupCheck_3();
end;
ssDone:
begin
RewritingUninstallData();
end;
end;
end;