nOobCrafter
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DeKaNszn
День добрый, я все со старым http://forum.ru-board.com/topic.cgi?forum=5&topic=29117&start=680#9
Почему то ругается на:
Внутренняя ошибка: An attempt was made to call the "CurrentFileName" function from outside a "Check", "BeforeInstall" or "AfterInstall" event function belonging to a "[Files]" entry.
Код: // по ходу твой код.
function InitializeSetup():boolean;
begin
updating:=false;
Result:=true;
end;
function checking():boolean;
begin
If not updating
Then Result:=true
Else
Case ExtractFileName(CurrentFileName) of
'232.dll','485.dll','bdt52cf.dll','jpeg32.dll','proclink.dll','asod.exe','browser.exe','builder.exe','vidsvr.exe', '232.dll','485.dll','jpeg32.dll','vidcap.dll','IniSetAccess.exe','photocap.exe','SArepair.exe','SetAccess.exe','SetAccess_conv282.exe','twaincap.exe','twp_help.exe':
Result:=true;
else Result:=false;
end;
end;
// ничего больше лишнего нет, табличку из function checking() убрал (етсь она или нету, разницы никакой)
procedure CurStepChanged(CurStep: TSetupStep);
begin
if DirExists('C:\123') then begin
if CurStep = ssInstall then begin
if WizardForm.TasksList.Checked[4] = True then //если чекбокс отмечен тогда выполняем бекап
begin
updating := true;
end;
|
как понял функция CurrentFileName вызываетя в неположеном дл нее месте, но почему?.. ход процесса такой ( оно заменяет несколько файлов, вылазит ошибка, нажимаем ок, и все идет дальше, то есть никаких сбоев кроме как этой ошибки нет. в чем может быть косяк? |
Нужное пометил коментами
Попробовал скрипт что выкладывал WinstAn70, в котором сдвигается второй прогрессбар.... не работает. Т.е. извлечение идет из архивов, а полосочки не бегут. Для частоты эксперимента вставлял свой ехе в скрипт WinstAn70 и не заработало