如何在 Inno Setup 中迭代 MULTI_SZ 字符串？

Question

如何在 Inno Setup Pascal 脚本中迭代 MULTI_SZ 字符串？例如超过返回的值RegQueryMultiStringValue

Answer 1

这是执行此操作的代码：

var
  I,StartPos:Integer;
  MultiSzStr,Element:String;

...

  StartPos := 1;
  for I:= 1 to Length(MultiSzStr) do
  begin
    if MultiSzStr[I] = #0 then
    begin
      Element := Copy(MultiSzStr, StartPos, I - StartPos);
      { do something with the element }
      StartPos := I + 1;
    end;
  end;