[semiono]

:D
секция files вроде бы работает на чек корректно, но секция registry работает на один раз, либо запишет и потом не удаляет либо наоборот
я пытался сам найти решение, даже написал две функции для Check для разных слкчаев))
что-то тут с логикой...

Может я непонятно задачу объяснил, мне надо чтобы инсталятор то записыва строку, то удалял при каждой новой установке.
Смысл в том чтобы ставить два разных обновленич, то новое, то старое

[R.i.m.s.k.y.]

semiono, покажи уже скрипт

[semiono]

Код:

    [Setup]
    AppName=!
    AppVerName=! 0.0.0.0
    DefaultDirName={pf}\!
    OutputDir=.
    OutputBaseFilename=!
     
     
    [Co.de]
    function x(): Boolean;
    begin
      if RegValueExists(HKCU, 'Software\a', 'b') then
      begin
      Result := true
      end
      else
      begin
      Result := false
      end
    end;
     
     
    [Registry]
    ; x
    Root: HKCU; Subkey: "Software\aaaa"; ValueType: none; ValueName: "b"; Flags: deletevalue noerror; Permissions: everyone-full; Check: x
    ; not x
    Root: HKCU; Subkey: "Software\aaaa"; ValueType: string; ValueName: "b"; ValueData: "0"; Flags: noerror; Permissions: everyone-full; Check: x
     
    [Files]
    Source: "1.TXT"; DestDir: "{sd}"; Check: x
    Source: "2.TXT"; DestDir: "{sd}"; Check: not x

Всё работает верно, первый инстал реагирует первая строка, второй инстал вторая строка, а потом уже только вторая...
Не получается, чтобы инстал изменял будущее условие в СИСТЕМЕ

[semiono]

Код:

function x(): Boolean;
begin
  if RegValueExists(HKCU, 'Software\a', 'b') then
  begin
  RegDeleteValue(HKCU, 'Software\a', 'b')
  end
  else
  begin
  Result := false
  end
end;

function y(): Boolean;
begin
  if RegValueExists(HKCU, 'Software\a', 'b') then
  begin
  RegWriteStringValue(HKCU, 'Software\a', 'b', '0')
  end
  else
  begin
  Result := true
  end
end;

[Registry]
Root: HKCU; Subkey: "Software\a"; ValueType: string; ValueName: "b"; Flags: deletevalue noerror; Permissions: everyone-full; Check: not y

Root: HKCU; Subkey: "Software\a"; ValueType: string; ValueName: "b"; ValueData: "0"; Flags: noerror; Permissions: everyone-full; Check: not x

[Files]
Source: "1.TXT"; DestDir: "{sd}"; Check: x
Source: "2.TXT"; DestDir: "{sd}"; Check: y

[R.i.m.s.k.y.]

semiono, УМВР все работает в первом варианте

[semiono]

Там, кстати, ошибка Software\aaaa и в коде Software\a

[R.i.m.s.k.y.]

semiono, я поправил конечно, еще MSGBox понатыкал для дебага - работает

[semiono]

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

1. В реестре ничего нет. Каждый инстал один и тот же результат.

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

2. В реестре b REG_SZ записанный вручную
Но! При повторном инстале будет возврат к первому скриншёту и далее постоянно один результат.

Кстати, было бы хорошо перед else выполнить EXIT или GO TO, но как это сделать в паскале непонятно.

[El Sanchez]

1. В реестре ничего нет. Каждый инстал один и тот же результат. »

semiono,

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

Код:

[Registry]
Root: HKCU; Subkey: "Software\aaaa"; ValueType: string; ValueName: "bbbb"; ValueData: "cccc"; Permissions: everyone-full; Check: NeedValue('bbbb')

[Code]
/////////////////////////////////////////////////
function NeedValue(const Value: string): Boolean;
begin
  Result := not RegValueExists(HKCU, 'Software\aaaa', Value);
  if not Result then
    RegDeleteValue(HKCU, 'Software\aaaa', Value);
end;

Понадобилось написать dll библиотеку на Delphi, что бы прикрутить ее к Inno Setup. Столкнулся с проблемой. Получаю Access Violation... Как правильно передать строку из функции в приложение Inno Setup? »

Alloc, изучить, понять, написать заново.

[vadjliss]

ребята как убрать вот это