[MogilShik2007]

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

Ну так хера здесь делаешь баклан, или в свой великой справке ответов не нашел?

[jack_nuclear]

Цитата MogilShik2007:
Ну так хера здесь делаешь баклан, или в свой великой справке ответов не нашел? »

А в справке есть реализация звука? Ты и за 10 лет не напишешь.

Я тебе пример дал, долбень, и методы реализации

Примеры:
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;

Я уверен, что ты вообще не понимаешь, что с этим делать Жди пока кто-то за тебя сделает)) 2007 в нике год рождения, я так понял? За слова "ума не хватает понять вопроса" отвечаешь или очередной диванный?

[K.A.V.]

Идите лесом тогда... »

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

В первых темах люди были умней. Деградируете »

Ну так хера здесь делаешь баклан »

Я тебе пример дал, долбень. »

Напоминаю всем, что есть такая штука, как ОПК
А более конкретно, пункт 3.1

Если кто-то что-то не понял, не знает, не умеет, неправильно понял другого человека - это не повод его оскорблять
Если вы находите такой стиль общения нормой, то данный форум не для вас
Если после данного замечания ваши сообщения будут оставаться на таком же уровне - вам помогут понять, что данный форум не для вас.
Уважайте друг друга и держите свои эмоции при себе

За слова "ума не хватает понять вопроса" отвечаешь или очередной диванный? »

Успокоитесь или вам помочь? Если есть претензии к участнику - решайте такие вопросы в личных сообщениях, прекращайте этот цирк

ps

вы*бнутся »

ь потеряли

[MogilShik2007]

DEL

jack_nuclear, - 2381

[Nordek]

нужно чтоб из папки Redist устанавливалась полная версия DirectX, а после запускался DirectXweb »

что по поводу первой части вопроса про реализацию DX? »

Простой пример:

Код:

[Setup]
AppName=Redist
AppVersion=1.0
DefaultDirName={pf}\Redist
OutputDir=.

[Tasks]
Name: ext; Description: Дополнительные компоненты
Name: ext\dx; Description: Установить/Обновить DirectX

[Run]
Filename: {src}\Redist\DirectX\DXSETUP.exe; Parameters: /silent; Tasks: ext\dx; Flags: skipifdoesntexist; StatusMsg: Установка DirectX 9
Filename: {src}\Redist\dxwebsetup.exe; Parameters: /Q; Tasks: ext\dx; Flags: skipifdoesntexist; StatusMsg: Установка DirectX 9 (Загрузка компонентов из сети интернет)

[El Sanchez]

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

Zabeal, в вашем случае использовать препроцессор не нужно:

Скрытый текст

Код:

[Code]
const
    MapInfoPath = 'SOFTWARE\MapInfo\MapInfo\Professional';

/////////////////////////////////
function GetGlobalCount: Integer;
begin
    { тут вычисляется результат
    Result := 100500; }
end;

//////////////////////////////////////////////
procedure CurStepChanged(CurStep: TSetupStep);
var
    i: Integer;
begin
    case CurStep of
        ssPostInstall:
            begin
                for i := 1 to GetGlobalCount do
                    RegWriteStringValue(HKCU, Format('%s\FLD-%d', [MapInfoPath, i]), '', '');
            end;
    end;
end;

что по поводу первой части вопроса про реализацию DX? »

MogilShik2007, подобные вопросы про установку DirectX и VCRedist, гордо именуемых в инсталляторах "Установка дополнительного ПО", всплывают на форуме довольно-таки часто, только почему-то никто не проверяет, а нужно ли это ПО системе конечного пользователя.

[Zabeal]

Zabeal, в вашем случае использовать препроцессор не нужно: »

Спасибо за предложенное решение!
Я так и вынужден сделать, но всё-таки была надежда обойтись средствами самого установщика
Дело вот в чём: в реестр я конечно запишу значения, это отлично, но как быть при деинсталляции приложения?
Ведь тогда мне придётся самому чистить реестр, а значит нужно самому хранить ключи реестра, которые должны быть удалены при деинсталляции.
Вот я и хотел заставить установщик и писать в реестр и удалять ключи...

Очень жаль, что в препроцессор нельзя передать переменную из кода.
Мне не удалось справиться даже через промежуточный INI файл.
То есть, я записывал мою переменную в INI файл во время исполнения скрипта, а при нажатии кнопки Install эта переменная должна была прочитаться из файла и использоваться в цикле.
Так вот, в секции кода можно полностью управлять папками (указывать хоть абсолютный, хоть относительный путь), а в препроцессоре есть всего две системных константы, которые указывают на папку размещения исходного текста скрипта или исполняемого файла компилятора. В итоге из препроцессора мой INI файл может быть прочитан только в случае, если он лежит по абсолютному пути, что неприемлемо.

[El Sanchez]

Я так и вынужден сделать »

Zabeal, так и нужно, препроцессор для других задач оставьте.

Дело вот в чём: в реестр я конечно запишу значения, это отлично, но как быть при деинсталляции приложения? »

Zabeal, создать через секцию Registry пару корневых записей в реестре, при деинсталляции все нормально удалится.

Код:

[Registry]
; Тут будет создан корневой раздел производителя программы MapInfo.
; При деинсталляции, если этот раздел не будет содержать в себе других подразделов и ключей от других
; программ MapInfo, например, от MapMarker, то корневой раздел можно будет удалять (флаг uninsdeletekeyifempty)
Root: HKCU; SubKey: Software\MapInfo; Flags: uninsdeletekeyifempty
; Удаляем раздел нашей программы MapInfo со всеми подразделами и ключами.
Root: HKCU; SubKey: Software\MapInfo\MapInfo; Flags: uninsdeletekey

[Dodakaedr]

Допустим имеем такой ini файл

Код:

[INI]
Filename: "{commonappdata}\file.ini"; Section: "Flag"; Key: "AllUsers"; String: "0";

Подскажите как провести проверку на String: "0";? IniKeyExists не подходит.

[nik1967]

Dodakaedr,

навскидку

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=.

[Code]
procedure InitializeWizard();
var
  S, P: String;
begin
  P:= ExpandConstant('{src}'+'\file.ini');
  //P:= ExpandConstant('{commonappdata}'+'\file.ini');
    if FileExists(P) then begin
      S:= GetIniString('Flag', 'AllUsers', '', P);
        if S = '0' then 
          MsgBox('true', mbInformation, MB_OK)
        else
          MsgBox('false', mbInformation, MB_OK);
    end;
end;