FONT_Studio
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста. Проблема "проверки присутствия определенных файлов в папке с установленной программой на странице выбора папки назначения"...
Проблема в том что проверка происходит НЕ В УКАЗАННОЙ МНОЙ ПАПКЕ (на странице выбора), а в папке которая прописана по умолчанию в секции [Setup], DefaultDirName={pf}
Использую данный код:
function NextButtonClick(CurPage: Integer): Boolean;
var
sz:Integer;
s:string;
begin
Result:=True;
If CurPage=7 then
//Проверка присутствия определенных файлов в папке с установленной программой на странице выбора папки назначения
begin
If (FileSearch('My.exe', ExpandConstant('{app}'))='')
then
begin
s:='Извините, в директории '+ExpandConstant('{app}')+'' #13 'не обнаружены файлы, подтверждающие подлинность программы.' #13#13 'Пожалуйста, выберите правильный путь для установки обновления.';
MsgBox(s, mbError, mb_Ok);
Result:= False
end
end;
end;
end. |
Всего записей: 6 | Зарегистр. 27-01-2016 | Отправлено: 21:58 27-01-2016 | Исправлено: FONT_Studio, 01:22 28-01-2016 |
|
