Umgebungsvariablen dauerhaft setzen

[arbu man]

Das würd ich ja gerne, nur:

Delphi-Quellcode:

const
  S_ENVIRONMENT = 'HKEY_LOCAL_MACHINE\SYSTEM\'+
                  'CurrentControlSet\Control\Session Manager\Environment\';

procedure AddExecutePath(aPath: string);
var
  Reg: TRegistry;
  Path: string;
  Size: integer;
  SS: TStringStream;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey(S_ENVIRONMENT, true);
    Path := Reg.ReadString('Path');
    writeln('Path: '+Path);  // Path ist ''
    Path := Path + aPath + ';';
    Reg.WriteString('Path', Path); // Exception: Fehler beim setzen der Daten
    Reg.CloseKey;
  finally
    //FreeAndNil(Reg);
  end;
end;

Kann ich Path nicht weder lesen noch schreiben.

[Chewie]

Du brauchst Administratorrechte, um in HKEY_LOCAL_MACHINE was zu ändern.

Versuch das gleiche mal in HKEY_CURRENT_USER. Eventuell befinden sich die Variablen da aber an einer anderen Stelle, das weiß ich nicht.

[marabu]

Hallo Björn,

unter Windows arbeitet man eigentlich nicht mehr mit der PATH-Variable im global environment. Trage dein Programm in der Registry unter

Code:

 
[HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\myapp.exe] 
@="C:\\Programme\\Delphi-PRAXiS\\arbu man\\myapp.exe"
Path="C:\\Programme\\Delphi-PRAXiS\\arbu man\\System;C:\\Windows\\System32"

ein. Den Standardwert des Schlüssels setzt du auf den vollen Pfadnamen deiner Anwendung. Verwendet deine Anwendung DLLs, dann trägst du deren Speicherort(e) getrennt durch Semikolon in den Wert "Path" ein. Ohne Admin-Rechte kannst du das analog im Hive HKEY_CURRENT_USER machen.

Gute Nacht

[arbu man]

Danke, marabu jetzt kann ich die Programme wenigstens durch Ausführen starten :)

mfg, Björn