Systemvariable PATH ändern

[kuba]

Hallo,

ich möchte eine Installationsroutine schreiben, dabei muss die Systemvariable PATH geändert werden.
Das funktioniert schon, jetzt benötige ich jedoch noch den "Deinstallationscode" um die Variable wieder zu entfernen, im PATH steht die Variable jetzt "mitten drin", wie kann ich meinen hinzugefügten Pfad wieder entfernen ?

KUBA

Code zum ändern:

Delphi-Quellcode:

procedure ReadEnviron (var PW: String);
Var
  Registry: tRegistry;
Begin
  Registry := tRegistry.Create;
  Try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    Registry.OpenKey ('\SYSTEM\CurrentControlSet\Control\Session Manager\Environment', False);
    PW := Registry.ReadString ('Path');
    Registry.CloseKey;
  Finally
    Registry.Free;
  End;
End;

  

procedure SetEnviron;
var registrierung:TRegistry; //uses registry nicht vergessen
    PW           :string;
  begin
      begin
      Registrierung:=Tregistry.Create;
      Registrierung.Rootkey:=HKEY_LOCAL_MACHINE;
      try
         Registrierung.OPENKEY('\SYSTEM\CurrentControlSet\Control\Session Manager\Environment',true);
      except
         Registrierung.CreateKey('\SYSTEM\CurrentControlSet\Control\Session Manager\Environment');
      end;
      ReadEnviron(PW);
      PW := PW + (';c:\test');
      showmessage(PW);
      Registrierung.WriteString('Path', PW);
      Registrierung.free;
      end;
end;