Wildcards im Registry Key Path [gelöst]

[Bastian Th.]

So !!!

Mitlerweile bin ich selbst auf die Lösung gekommen

Für den, den es interessiert was ich geändert habe, hier nochmal der neue Code

Code:

program PPath_Variable;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  JCLSYSINFO,
  Registry,
  Windows;

const
name = 'Path' ;

var
dir, path : string;
regist: TRegistry;
i : integer ;

begin
dir := GetCurrentDir;

  regist:=TRegistry.Create;
  try
   regist.RootKey:=HKEY_LOCAL_MACHINE;
   regist.OpenKey('\SYSTEM\ControlSet001\Control\Session Manager\Environment', true);
   path := regist.ReadString(name);
   i:= pos(dir, path);
   if i = 0 then
   begin
    path := path+';'+dir;
    regist.WriteExpandString('Path', path);
   end;
   regist.CloseKey;
  finally
   regist.free;
  end;

end.

ALso dann bis bald

Gruss Bastian