Umgebungsvariablen dauerhaft setzen

[arbu man]

Hi,

Ich möchte gerne eine Umgebungsvariable dauerhaft mit einen Wert belegen, um damit meine Programme aus der shell heraus starten zu können. Bsp.: C:\>myapp.exe startet dann myapp.exe, die aber in einen anderen Verzeichnis liegt.
Ich habe es schon mit der Funktion "SetEnvironmentVariable" versucht allerdings scheint diese die Werte nicht dauerhaft zu verändern.

mfg, Björn

[SubData]

Dafür gibt es die globale Environment Variable PATH.

Systemeigenschaften => Erweitert => Umgebungsvariablen

[arbu man]

Und wie geht das mit Delphi ?

[IngoD7]

Wohl nur durch Eintragen in die Registry.

Google mal nach "Umgebungsvariablen Registry".

[inherited]

Werden die nicht in der autoexec.bat gesetzt?

[arbu man]

Zitat von IngoD7:

Wohl nur durch Eintragen in die Registry.

Google mal nach "Umgebungsvariablen Registry".

Hab ich gemacht und den Schlüssel "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\Session Manager\Environment\" gefunden. Da kann ich jetzt Variablen bestimmen. Aber diese kann mich nur so aufrufen:

%myapp%

ich würde meine Anwendung lieber so aufrufen:

myapp

Wie mache ich das ?

Zitat von inherited:

Werden die nicht in der autoexec.bat gesetzt?

Was ist das für eine Datei und wo finde ich diese ? Scheint nicht auf meiner Plattezu sein...
KA wie das damit gehen soll...

mfg, Björn

[arbu man]

Zitat von SubData:

Dafür gibt es die globale Environment Variable PATH.

Systemeigenschaften => Erweitert => Umgebungsvariablen

Ich habe zwar jetzt das Path gefunden, aber ich sehe keine Möglichkeit es mit Delphi zu ändern, TRegistry weigert sich es zu lesen ('') und zu schreiben (ERegistryException)

[Waldteufel]

Hi Arbu Man.

Du musst einfach nur den Pfad deiner Anwendung (also den Ordner, in dem sie liegt) in die Umgebungsvariable PATH eintragen. Diese hat etwa folgenden Aufbau

Code:

Pfad1;Pfad2;Pfad3;P:\Fad\4;...

usw.

Du fügst einfach hinten ein Semikolon und deinen Pfad an und die Sache ist geritzt.

Zitat von arbu man:

Was ist das für eine Datei und wo finde ich diese ? Scheint nicht auf meiner Plattezu sein...
KA wie das damit gehen soll...

Die AUTOEXEC.BAT war mal die Autorun-Startdatei für Dos. Alle Befehle darin wurden beim Systemstart automatisch ("auto") ausgeführt ("exec"). Die Datei gibt's unter NT und XP und ähnlichem nicht mehr - stattdessen gibt es AUTOEXEC.NT - die wird aber imho nur beim Öffnen von cmd.exe und so gestartet.

Gruß,
Waldteufel

[arbu man]

Hi Waldteufel,

dieSache ist nur die die TRegistry Klasse weigert sich beharlich die Zeichen Folge einzulesen oder gar zu ändern. Beim Einlesen gibt es einen Leerstring und beim Schreiben, ne ERegistryException. Ich vermutet es liegt vielleicht am Datentype: REG_EXPAND_SZ.

mfg, Björn

[Klaus01]

Mit diesem Code kannst Du Umgebungsvariablen setzen und das dauerhaft:

Delphi-Quellcode:

//********************************************************************************
{*********************************************}
{ Set Global Environment Function             }
{ Coder : Kingron,2002.8.6                    }
{ Bug Report : [email][e-mail][/email]                }
{ Test OK For Windows 2000 Advance Server     }
{ Parameter:                                  }
{ Name : environment variable name            }
{ Value: environment variable Value           }
{ Ex: SetGlobalEnvironment('MyVar','OK')      }
{*********************************************}

function SetGlobalEnvironment(const Name, Value: string;
  const User: Boolean = True): Boolean;
resourcestring
  REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session Manager\Environment';
  REG_USER_LOCATION = 'Environment';
begin
  with TRegistry.Create do
    try
      if User then { User Environment Variable }
        Result := OpenKey(REG_USER_LOCATION, True)
      else { System Environment Variable }
      begin
        RootKey := HKEY_LOCAL_MACHINE;
        Result  := OpenKey(REG_MACHINE_LOCATION, True);
      end;
      if Result then
      begin
        WriteString(Name, Value); { Write Registry for Global Environment }
        { Update Current Process Environment Variable }
        SetEnvironmentVariable(PChar(Name), PChar(Value));
        { Send Message To All Top Window for Refresh }
        SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('Environment')));
      end;
    finally
      Free;
    end;
end; { SetGlobalEnvironment }

Aber sinnvoller wäre es schon, wenn Du die Pfadvariable erweitern würdest.
Also voher den Pfad/Path auslesen, erweitern und zurückschreiben.

Grüße
Klaus