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

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

morozov-ch
{app}

lexikon · Отправлено: **03:25, 02-02-2010** | #**1162**

Serega,
благодарю! работает! только вот что указать DefaultDirName чтобы при выборе какой либо папки она не добавляло этот DefaultDirName
к примеру DefaultDirName = \MyProgram то в списке выбрав папку C:\Games у меня автоматически получится С:\Games\MyProgram
мне не надо что бы так получалось

заранее благодарю!

morozov-ch · Отправлено: **07:42, 02-02-2010** | #**1163**

Может я не правельно выразился или что-то не понимаю
Вот функция

//Настройка подключения к серверу.
procedure MyAfterInstall();
//Копирование файла настроек.
begin
FileCopy('{app}\Nastr.ini','{pf}\PPPPP\Nastr.ini', false);
end;

Не работает.

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

Цитата lexikon:

что указать DefaultDirName чтобы при выборе какой либо папки она не добавляло этот DefaultDirName »

Нужно просто указать AppendDefaultDirName=no, пример:

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
AppendDefaultDirName=no
DefaultDirName={pf}\My Program
;*********и т.д.************;

Цитата morozov-ch:

Подскажите в какой переменной/константе в Inno Setup хранится путь к инсталятору.»

AddBackslash(ExpandConstant('{src}')) или ExtractFilePath(ExpandConstant('{srcexe}'))

Цитата morozov-ch:

{scr} - не проходит. »

есть {src}, вы спутали.

Цитата morozov-ch:

FileCopy('{app}\Nastr.ini','{pf}\PPPPP\Nastr.ini', false); »

забыли дописать ExpandConstant, т.е. надо так:

Код:

FileCopy(ExpandConstant('{app}\Nastr.ini'), ExpandConstant('{pf}\PPPPP\Nastr.ini'), False);

Cranz86 · Отправлено: **11:06, 02-02-2010** | #**1165**

Народ, помогите пожалуйста с событиями. Понимаю что где то координально ошибся, но объясню что есть и что надо. Если первый чекбокс снять, то 2 и 3 благополучно снимаются, но делаются не кликабельными, а хочется что бы на их нажатие реагировал первый чекбокс, т.е. из двух событий работает первое и оно перекрывает второе.

Код:

procedure OnClickCheck(Sender: TObject);
begin
    if №1Check.Checked = false then
      begin
        №2Check.Checked := false;
        №3Check.Checked := false;
      end;

    if №2Check.Checked = true or №3Check.Checked = true then
      begin
        №1Check.Checked := true;
      end;
end;

procedure InitializeWizard();
begin
  CreateTheWizardPages;
  №1Check.OnClick := @OnClickCheck;
  №2Check.OnClick := @OnClickCheck;
  №3Check.OnClick := @OnClickCheck;
end;