Path aktualisieren nach Update

[Duffy]

Hallo Christian Seehase,
auch den setze ich!

Delphi-Quellcode:

function TMainForm.SetGlobalEnvironment(Name, Value: string; System: Boolean): Boolean;
const
  UserRegKey = '\Environment';
  SystemRegKey = '\SYSTEM\CurrentControlSet\Control\Session Manager\Environment';
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  if System then
  begin
    with Registry do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey(SystemRegKey, False);
    end;
  end
  else
  begin
    with Registry do
    begin
      RootKey := HKEY_CURRENT_USER;
      OpenKey(UserRegKey, False);
    end;
  end;
  try
    Registry.WriteString('Path', Value);
    SetEnvironmentVariable(PChar(Name), PChar(Value));
    SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('Environment')));
    Result := True;
  finally
    Registry.Free;
  end;
end;

Noch eine Idee?
bye