[MogilShik2007]

Такс, сначала:
интересует - функции этих строк, для чего они:
Source: {win}\help\; - вызывается справка оттуда или что?
Source: "calc.exe"; - проверка хешей или наподобии?

в этом вы сильно ошибаетесь. Flags ещё как вас интересует, только вы сами об этом даже не подозреваете. Кстати, Flags играет не малую роль. »

По флагам повторяюсь вопросов не было, и так понятно, что используются и где используются.

MogilShik2007, вам дали ссылку на справку, где описывается ваш вопрос. Впадлу читать? Идите лесом тогда... Котярко спасибо за скрипт прошлый. Все работает. Не обращай внимание на неадекватов »

Ты коней осади, помогли с кодом вали дальше, и не хами тут.

[Zabeal]

Друзья, помогите разобраться с задачей.

Мне нужно записать в реестр несколько значений. Заранее количество значений не известно и будет вычисляться на этапе выполнения.
Для реализации задачи я применяю пользовательский макрос с директивой #for:

Код:

#for {i = 1; i <= count; i++} _GetAutoLoad

Возник вопрос: можно ли пробросить переменную из секции [code] в директиву #for пользовательского макроса?
Цель: количество итераций цикла должно быть не константой, заданной на этапе компиляции, а переменной, вычисляемой в коде в InitializeWizard.
В моём случае для переменной count нужно присвоить значение переменной GlobalCount.
Пытался в скрипте указать такую конструкцию: #define count {#GlobalCount}, но конечно не прошло.

Выборка из скрипта:

Код:

[Registry]
#define i
#define count {#GlobalCount}

#sub _GetAutoLoad
Root: HKCU; Subkey: {code:GetAutoload|{#i}}
#endsub

#for {i = 1; i <= count; i++} _GetAutoLoad


/////////////////////////////////////////////////
[ Code]
  const
    MapInfoPath = 'SOFTWARE\MapInfo\MapInfo\Professional\';
  var
    GlobalCount : integer;
function GetAutoload(Param : string) : string;
begin
  Result := MapInfoPath + 'FLD-' + Param;
end;
procedure InitializeWizard;
begin
  // Тут вычисляется значение для переменной GlobalCount
  GlobalCount := XYZ;
end;

[Nordek]

вызывается справка оттуда или что? »

Вообще да, в С:\Windows\Help - Расположена справочная информация.
Для примера: Диспетчер устройств - "C:\Windows\Help\mui\0419\devmgr.CHM"

проверка хешей или наподобии? »

Т.е

Код:

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs
Source: "calc.exe"; DestDir: "{app}"; DestName: nfs.exe; Flags: external

Скопировать: Содержимое из "C:\Windows\Help" и файл калькулятора из "C:\Windows\System32\" в назначенную папку и запустить оттуда? Радикальное решение! Таковое действие можно обозначить как человеческой тупостью.

Выполнение возможно без копирования:

Код:

[Run]
Filename: {sys}\calc.exe; Flags: skipifdoesntexist postinstall nowait; Description: "Открыть ""Калькулятор""."
Filename: {win}\Help\mui\0419\devmgr.CHM; Flags: skipifdoesntexist postinstall shellexec nowait; Description: "Открыть справку по ""Диспетчеру устройств""."

функции этих строк, для чего они »

Скорее для примера представлено, т.е показать наглядно что скрипт работает.

[jack_nuclear]

Цитата Nordek:
Могу задать аналогичный встречный вопрос: Впадлу воспользоваться поиском? Результат: #265.
Не думайте что вы от других чем-то отличаетесь. »


А этот пост к чему? Сначала смотри кто спрашивал, лол xD Ники не перепутал? Я вроде не ValeraVentor@fb

Да. Отличаюсь. Я наизусть знаю справку и не спрашиваю то. что в ней написано, как 99% пользователей

MogilShik2007 А ты еще задай тупейший вопрос, который написан в первых двух предложениях справки. Меня такие люди поражают своей безмозглостью.

[Nordek]

jack_nuclear, #1009

[jack_nuclear]

Nordek, Ай-ай-ай. Это опять не то, что я спрашивал. Перед тем, как пытаться вы*бнутся - надо быть уверенным на все 100%

котярко меня понял и кинул ссылкой на правильную реализацию. Я задавал конкретный вопрос под конкретные задачи, а не "дайте мне реализацию звуков в компонентах" + Вы дали ссылку на "говнокод". Реализация ужасная.

Ваши 2 попытки не удались. Третья будет?

[Nordek]

А ты еще задай тупейший вопрос »

Какой тупой вопрос?
Вот этот? »

интересует - функции этих строк, для чего они: Source: {win}\help\; - вызывается справка оттуда или что? Source: "calc.exe"; - проверка хешей или наподобии? »

jack_nuclear, Задайте себе вопрос: "Смогли его объяснить?".
На сколько я понял, MogilShik2007 - а интересовало зачем применили подобное:

Код:

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs
Source: "calc.exe"; DestDir: "{app}"; DestName: nfs.exe; Flags: external

и для каких целей.
Что однозначно ясно: Для примера, но не для последующего исполнения.

Меня такие люди поражают своей безмозглостью. »

Не буду показывать пальцем и переходить на личности, но о написанном предложении направленное другому человеку, стоит думать: что то предложение больше относится тому, кто его написал.

jack_nuclear, Научитесь цитировать.

[jack_nuclear]

Цитата Nordek:
Не буду показывать пальцем и переходить на личности, но о написанном предложении направленное другому человеку, стоит думать: что то предложение больше относится тому, кто его написал. »


Видимо вы из той же партии. Ну сидите-сидите. Объясняйте друг другу справку (да-да. Справка -> Files и там написано что к чему) раз вы только на это способны. Люди хотят ремонтировать двигатель, но инструментов в глаза не видели. Человек не понимает азов (что вообще делает Files -> Source) и не читает справку

+Если не знаешь зачем, но есть пример - скомпилируй и нечего форум засорять тупейшими вещами. Я за 8 закрытых тем первый раз обратился с умным вопросом. В первых темах люди были умней. Деградируете. Объяснять справку!! ахаха))

Цитата Nordek:
jack_nuclear, Научитесь цитировать. »
С телефона? Пожалуйста, перестаньте умничать. Смотритесь жалким, когда в 5-ый раз не получается

[MogilShik2007]

Цитата jack_nuclear:
MogilShik2007 А ты еще задай тупейший вопрос, который написан в первых двух предложениях справки. Меня такие люди поражают своей безмозглостью. »

Глаза помой, походу долбишься в них постоянно, если ума не хватает понять вопроса - помалкивай.
Nordek вопрос понял, объяснил, а ты сидишь тут вые..ваешсься.

Так с этим разобрались, что по поводу первой части вопроса про реализацию DX?

[jack_nuclear]

Цитата MogilShik2007:
Так с этим разобрались, что по поводу первой части вопроса про реализацию DX? »


Это описано в СПРАВКЕ, долбень. Мне хватает мозгов, что б написать инсталл в 1500 строк, а ты сиди на примерах с инета. По поводу DX смотри в справке и примерах с [Run] или для твоего начального уровня - напиши батник на запуск 2 екзешников типо такого

@ECHO OFF
START "" /WAIT Setup1.exe
START "" Setup2.exe

и запускай через него компонент. Примеров в инете куча (проверил гуглением). Дерзай

Этот вопрос не тупой и тут надо хоть что-то знать, поэтому ответил.

Для "умных" - я дал самую простую реализацию. Можно и в компоненты добавить, но с задержкой придется мучатся или через exec (лучший вариант)

Примеры:
Exec('шляпа.exe', 'параметры', 'C:\путь', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode); //тебе нужен ewWaitUntilTerminated

функция:
function Exec(const Filename, Params, WorkingDir: String; const ShowCmd: Integer; const Wait: TExecWait; var ResultCode: Integer): Boolean;