Restored mysteriously disappeared functions

Author: lelegard

Diff for: install-common.ps1

@@ -343,6 +343,18 @@ function Install-Standard-Msi([string]$ReleasePage, [string]$Pattern, [string]$F
     Install-Msi $Url
 }
 
+# Get user environment variable.
+function Get-UserEnvironment([string]$Name)
+{
+    return [System.Environment]::GetEnvironmentVariable($Name, [System.EnvironmentVariableTarget]::User)
+}
+
+# Define user environment variable.
+function Define-UserEnvironment([string]$Name, [string]$Value)
+{
+    [System.Environment]::SetEnvironmentVariable($Name, $Value, [System.EnvironmentVariableTarget]::User)
+}
+
 # Get system-wide environment variable.
 function Get-Environment([string]$Name)
 {
@@ -411,3 +423,17 @@ function Search-Path([string]$Name, [string]$Path = $env:Path)
     }
     return $null
 }
+
+# Send a WM_SETTINGCHANGE message to all applications 
+Add-Type -Namespace Win32 -Name NativeMethods -MemberDefinition @"
+  [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
+  public static extern IntPtr SendMessageTimeout(IntPtr hWnd, uint Msg, UIntPtr wParam, string lParam, uint fuFlags, uint uTimeout, out UIntPtr lpdwResult);
+"@
+
+function Send-SettingChange
+{
+    $HWND_BROADCAST = [IntPtr]0xffff;
+    $WM_SETTINGCHANGE = 0x1a;
+    $result = [UIntPtr]::Zero
+    [void]([Win32.Nativemethods]::SendMessageTimeout($HWND_BROADCAST, $WM_SETTINGCHANGE, [UIntPtr]::Zero, "Environment", 2, 5000, [ref]$result))
+}