VB 5/6-Tipp 0421: Umgebungsvariablen setzen und auslesen

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Schaltfläche "Command1"

Option Explicit

Private Declare Function GetEnvironmentVariable Lib _
        "kernel32.dll" Alias "GetEnvironmentVariableA" (ByVal _
        lpName As String, ByVal lpBuffer As String, ByVal _
        nSize As Long) As Long

Private Declare Function SetEnvironmentVariable Lib _
        "kernel32.dll" Alias "SetEnvironmentVariableA" (ByVal _
        lpName As String, ByVal lpValue As String) As Long

Private Sub Command1_Click()
    Call SetEnvironmentVariable("HALLOELI", "Wie gehts?")
    Command2.Enabled = True
End Sub

Private Sub Command2_Click()
    Dim Buffer As String
    Dim l As Long
    
    l = 256
    Buffer = String$(l, Chr$(0))
    
    l = GetEnvironmentVariable("HALLOELI", Buffer, l)
    
    If l <> 0 Then
        Buffer = Left(Buffer, l)
        MsgBox ("Umgebungsvariable HALLOELI =" & Chr$(34) _
               & Buffer & Chr$(34))
    End If
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Kommentar von Uwe Gutjahr am 28.11.2005 um 09:04

Ricks Hinweis, dass systemweite Umgebungsvariablen nur in der Registry gesetzt werden können, ist vollkommen richtig. Diese Variablen wären dann jedoch erst nach einem Neustart des Systems verfügbar. damit neue Prozesse sofort auf die geänderten Werte zugreifen können, muss die Änderung mit einer WM_SETTINGCHANGE Message "bekannt" gemacht werden. Im deutschen MSDN gibt es den Artikel "Umgebungsvariable mit Visual Basic auslesen und setzen", der genau beschreibt, wie das gemacht wird.
http://www.microsoft.com/germany/msdn/library/visualtools/vb6/UmgebungsvariableMitVisualBasicAuslesenUndSetzen.mspx

Kommentar von Rick-VB am 06.02.2005 um 11:13

Meine Vermutung hat sich bestätigt. Das steht in der MSDN:
The SetEnvironmentVariable function sets the contents of the specified environment variable for the current process.

Das heißt, dass es nur für das aktuell laufende Programm gilt! Man könnte dies z.B. sehen, wenn man sein Programm/Prozess aus einer Dos-Box startet und in dieser die Umgebungsvariablen abruft.
Will man die Umgebungsvariablen dauerhaft setzen, bleibt nur der Weg über die Registry (Pfade aus XP):

'System EnvVars in der Registry:
'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment

'User EnvVars in der Registry:
'HKEY_CURRENT_USER\Environment

'Default für Users wenn Variable nicht bei Current_User nicht existiert:
'HKEY_USERS\.DEFAULT\Environment

Gruß Rick-VB

Kommentar von Rick_VB am 06.02.2005 um 10:28

Das Problem von Urs habe ich auch. Mit GetEnvironmentVariable kann ich zwar die mit SetEnvironmentVariable auslesen, aber mit Environ$() und über Arbeitsplatz->Erweitert->Umgebungsvariable und in einer Dos-Box ist diese nicht vorhanden.
Nur eine Vermutung:
Könnte es sein, dass diese APIs nur was nützen, wenn ich diese in einem Programm verwenden kann, die in einer Dos-Box läuft und dass dann diese Variable auch nur dort zu finden ist?

In der Hoffnung, dass mittlerweile jemand was weis
Gruß Rick

Kommentar von Urs am 28.09.2004 um 08:49

möchte gerne den eingestellten Standarddrucker in "WIN_PRINTER" speichern und in einem BAT-File wieder verwenden. Mit dem DOS-befehl "SET" wird aber die zuvor definierte Variable "HALLOELI" (o.ä) nicht angezeigt. Wo ist diese Variable und wielange ist sie gültig ?
Danke für die Hilfe
Urs

Kommentar von R. Petry am 09.12.2003 um 11:39

Im Resource-Kit ab WinNT 4 gibt es das Programm 'Setx.exe'.
Über die Shell-Funktion kann man eine Umgebungsvariable verändern/löschen, die auch nach Beendigung des VB-Programms noch gültig ist.

Kommentar von Gernot Frisch am 21.07.2003 um 10:25

Hallo,

SetEnvironmentVarialbe setzt eine Variable nur für den aktuellen Prozess und auch nur solange dieser eben aktiv ist.
D.h. Setzen von PATH = "C:\" lässt alle anderen Programme unberührt.

Kommentar von dirk am 14.04.2003 um 10:13

Ja es funktioniert, in diesem Bsp. aber die Environment-Variable erscheint nicht in der Dos-Shell mit dem Befehl SET. Wieso ist das so? Ich bräuchte ein Programm das mir eine solche Variable setzt, und die auch in dem Set-Befehl gelistet wird.
Vielen Dank.

Kommentar von Alex am 30.08.2001 um 09:01

Das Auslesen der Variable funktioniert unter Win2k. Jedoch das setzen nicht richtig!? Während das Programm läuft kann ich meine neu gesetze Variable belibig oft auslesen... wenn ich jedoch das Programm neu starte existiert die Variable nicht mehr und ich muss sie neu setzen.