Visual Studio Code のインストーラ と Stackoverflow

Visual Studio Code のインストーラは、もちろん Inno Setup です。
すごいですね。最近のMSはOSSを使うのがデフォです。

暇つぶしに、Visual Studio Code の Inno Setup Scriptのコードを見ていたら.....

俺は、堂々とstackoverflowのコードをコピることにした。MSは俺に勇気を与えてくれる。

function WizardNotSilent(): Boolean;
begin
  Result := not WizardSilent();
end;

// http://stackoverflow.com/a/23838239/261019
procedure Explode(var Dest: TArrayOfString; Text: String; Separator: String);
var
  i, p: Integer;
begin
  i := 0;
  repeat
    SetArrayLength(Dest, i+1);
    p := Pos(Separator,Text);
    if p > 0 then begin
      Dest[i] := Copy(Text, 1, p-1);
      Text := Copy(Text, p + Length(Separator), Length(Text));
      i := i + 1;
    end else begin
      Dest[i] := Text;
      Text := '';
    end;
  until Length(Text)=0;
end;