New registry.iss for working with registry

Author: chyndman

ElixirWeb.iss

@@ -73,6 +73,7 @@ Name: "existingpath"; Description: "Append {code:ConstGetExistingErlangPath}\bin
 
 [Code]
 #include "src\util.iss"
+#include "src\registry.iss"
 #include "src\elixir_release.iss"
 #include "src\elixir_lookup.iss"
 #include "src\erlang_data.iss"

src/registry.iss

@@ -0,0 +1,39 @@
+// registry.iss - Friendlier interface with registry values
+// Copyright 2014 Chris Hyndman
+//
+//   Licensed under the Apache License, Version 2.0 (the "License");
+//   you may not use this file except in compliance with the License.
+//   You may obtain a copy of the License at
+//
+//       http://www.apache.org/licenses/LICENSE-2.0
+//
+//   Unless required by applicable law or agreed to in writing, software
+//   distributed under the License is distributed on an "AS IS" BASIS,
+//   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+//   See the License for the specific language governing permissions and
+//   limitations under the License.
+
+[Code]
+
+function FuncRegGetSubkeyNames(RootKey: Integer; SubKeyName: String): TArrayOfString;
+begin
+  RegGetSubkeyNames(RootKey, SubKeyName, Result);
+end;
+
+function FuncRegQueryStringValue(RootKey: Integer; SubKeyName: String): String;
+begin
+  Result := ''
+  RegQueryStringValue(RootKey, SubKeyName, Result);
+end;
+
+procedure AppendPath(Dir: String);
+var
+  RegValue: String;
+begin
+  if not (Dir = '') then begin
+    RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', RegValue);
+    if Pos(Dir, RegValue) = 0 then begin
+      RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', RegValue + ';' + Dir);
+    end;
+  end;
+end;