Natrix
Новичок
Доброго времени суток.
Подскажите пожалуйста,
доп. ПО оставляет временные файл, какой есть вариант удаления этих файлов после установки с учётом что их может и не быть?
Отказывается удалять при любом значении CurStep =. Подскажите пожалуйста ещё варианты.
_________________________________________________________________________________________________________________________________
Есть код:
Как к нему добавить проверку наличия ещё одного файла, только в случае обнаружения не разрешать установку, а наоборот запретить с этой же страницы (CurPage=6) выдавая другое или это же сообщение. Возможно ли это вообще в данном варианте и если нет, то есть ли какие нибудь другие решения для подобной задачи? Т.е. разрешить установку в выбранную директорию если в ней 1.exe обнаружен и 2.exe не обнаружен.
_________________________________________________________________________________________________________________________________
И последняя дилемма, как проверить наличие исполняемого файла (деинсталлятор) в указанном юзером пути установки. Т.е. чекнуть в выбранной директории файл {src}\del\unins000.exe и при его нахождении, выполнить, запустить деинсталляцию в тихом (либо нет, тут уж не суть) режиме, до установки?
Подскажите пожалуйста,
Код:
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
begin
DelTree(ExpandConstant('{app}') + 'folder\name.file', True, True, True);
end;
end
Код:
function NextButtonClick(CurPage: Integer): Boolean;
var
s:string;
begin
Result:=True;
If CurPage=6 then
begin
If FileSearch('name.exe', ExpandConstant('{app}'))='' then
begin
s:='В '+ExpandConstant('{app}')+' файл name.exe не найден.';
MsgBox(s, mbError, mb_Ok);
Result:=False;
end;
end;
end;
Последнее редактирование: