Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Пользователь


Сообщения: 149
Благодарности: 38

Профиль | Отправить PM | Цитировать


Dodakaedr, честно говоря не очень понятно, что значит
Цитата Dodakaedr:
не при запуске инсталятора (не в системе)? »
Но то, что Вам надо, можно сделать например так
читать дальше »
[code]
Код: Выделить весь код
var found: boolean;

procedure NextButtonClick (CurPageID: integer): boolean;
begin
 if CurPageID=wpSelectDir then
 begin
   if not FileExists(AddBackslash(WizardForm.DirEdit.text) + 'File_To_Find.exe') then
   begin
    found:=false;
    result:=false;
    MsgBox('Отсутствует файл "File_To_Find.exe". Установка будет прервана!', MBinformation, mb_OK)
    WizardForm.Close; 
   end
   else
    begin
    found:=true; 
    result:=true;
    end;
 end      
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  if ((CurPageID= wpSelectDir )and (not found)) then
  begin
   cancel:=true;
   confirm:=false;
  end;
end;


legik2003, а чем вам стандартная SelectComponentsPage не нравится? там те же чекбоксы для выбора компонентов и в последствии установка именно выбранных
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:13, 18-03-2014 | #77