[Dodakaedr]

оно не застынет »

Нет. Можно запустить пример и посмотреть его работу.

[Alloc]

Привет ребят!
Понадобилось написать dll библиотеку на Delphi, что бы прикрутить ее к Inno Setup. Делаю это в первый раз, опыта раньше не было. Столкнулся с проблемой.

Как правильно передать строку из функции в приложение Inno Setup?

В Delphi я пишу так:

Код:

function GetLastVersion(Link: String) : String; stdcall;
var
  FileOnNet, LocalFileName: string;
  Version: TStringList;
begin
  Result:= '0';

  FileOnNet:=Link;
  LocalFileName:=WinTemp+'MMVersion.dat';

  if InternetConnected then
  begin
    if DownloadFile(FileOnNet,LocalFileName) = True then
    begin
      Version:= TStringList.Create;
      Version.LoadFromFile(LocalFileName);

      Result:= Version.Strings[3];

      Version.Free;

      if FileExists(LocalFileName) then DeleteFile(LocalFileName);
    end;

  end else
  begin
    Result:= '0';
  end;
end;

В Inno Setup добавляю следующее:

Код:

function GetLastVersion(const Link: String) : String; external 'GetLastVersion@files:MMProtect.dll stdcall';

Получаю Access Violation...

[semiono]

Код:

function x(): Boolean;
begin
  if RegValueExists(HKCU, 'Software\aaaa', 'bbbb') then
    begin
    Result := true
    end
    else
    begin
    Result := false
    end
end;


[Registry]
; x
Root: HKCU; Subkey: "Software\aaaa"; ValueName: "bbbb"; Flags: deletevalue noerror; Permissions: everyone-full; Check: x

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

Не получается. Мне нужно, чтобы согласно условию, если VALUE существует, то надо удалить, если не существвует, то записать в реестр.
То-есть инсталятор должен работать по-кругу, каждый раз выбирая противоположное действие. Как бы так.

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

semiono

deletevalue When this flag is specified, Setup will first try deleting the value if it exists. If ValueType is not none, it will then create the key if it didn't already exist, and the new value.

Код:

function x(): Boolean;
begin
Result := RegValueExists(HKCU, 'Software\aaaa', 'bbbb');
end;


[Registry]
; x
Root: HKCU; Subkey: "Software\aaaa"; ValueType: none; ValueName: "bbbb"; Flags: deletevalue noerror; Permissions: everyone-full; Check: x

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

Alloc, покажи секцию files c MMProtect.dll

[semiono]

R.i.m.s.k.y., не совсем корректно работает. Попробовал убрать Check: not, но не помогло. Вторая строка всегда пишется в реестр.

Если нужно, реестр можно было бы в секции код править, (но мне функция чек так же нужна в секции Files, надеюсь потом это возможно добавить?)

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

не совсем корректно работает »

?

реестр можно было бы в секции код править »

regWriteStringValue

[semiono]

? »

Первый раз записывает строку, а после этого всегда проходит обе (вернее первый раз удаляет и записывает)

[x] Root: HKCU; Subkey: "Software\aaaa"; ValueType: none; ValueName: "bbbb"; Flags: deletevalue noerror; Permissions: everyone-full; Check: x

[x] Root: HKCU; Subkey: "Software\aaaa"; ValueType: string; ValueName: "bbbb"; ValueData: "0"; Flags: noerror; Permissions: everyone-full; Check: not x

regWriteStringValue »

Я путаюсь в операторах if then else, вобщем в Паскале

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

semiono, всё должно быть нормально
или в скрипте еще где-то это дело делается

[semiono]

Код:

function x(): Boolean;
begin
  if RegValueExists(HKCU, 'Software\aaaa', 'bbbb') then
  begin
  Result := RegDeleteValue(HKCU, 'Software\aaaa', 'bbbb')
  end
  else
  begin
  Result := RegWriteStringValue(HKCU, 'Software\aaaa', 'bbbb' ,'0')
  end
end;

Не пойму что не так, почему else и if всегда проходит насквозь. Выглядит красиво, но не работает.

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

Код: function x(): Boolean; begin if RegValueExists(HKCU, 'Software\aaaa', 'bbbb') then begin Result := RegDeleteValue(HKCU, 'Software\aaaa', 'bbbb') end else begin Result := RegWriteStringValue(HKCU, 'Software\aaaa', 'bbbb' ,'0') end end; »

/me с грохотом упал под стол
я ж привел тебе код функции