SetEnvironmentVariable-Funktion Diese Funktion erstellt / setzt eine Umgebungsvariable, die dann systemweit von jedem Programm abrufbar ist.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  367

Deklaration:

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

Beschreibung:
Diese Funktion erstellt / setzt eine Umgebungsvariable, die dann systemweit von jedem Programm abrufbar ist.

Parameter:

lpName	Erwartet den Namen einer Umgebungsvariable. Existiert die angegebene Umgebungsvariable nicht, so wird diese angelegt.
lpValue	Erwartet den Wert, der der Umgebungsvariable zugewiesen werden soll als String.

Rückgabewert:
Ist die Funktion erfolgreich, so ist die Rückgabe ein Wert "ungleich 0", andernfalls wird derWert "0" zurückgegeben.

Beispiel:

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

' Ermittelt einige Umgebungsvariablen
Private Sub Command1_Click()
  Dim EnvVars() As Variant, TmpStr As String * 255, Retval As Long
 
  ' Umgebungsvariable hinzufügen (ist danach bis zum Neustart des Systems  
  ' von jedem Programm abrufbar !!)
  Retval = SetEnvironmentVariable("VPAPIHELPLINE", "http://www.vbapihelpline.de") 
 
  ' Array mit den Umgebungsvariablen füllen, die wir ermitteln wollen
  EnvVars = Array("BLASTER", "SOUND", "MIDI", "PATH", "VPAPIHELPLINE")
 
  ' Ungebungsvariablen auslesen
  For i = 0 To UBound(EnvVars)
    TmpStr = "Nicht gesetzt" & vbNullChar
    Retval = GetEnvironmentVariable(EnvVars(i), TmpStr, Len(TmpStr))
    Debug.Print "Umgebungsvariable: " & EnvVars(i) & " = " &  _
    Left$(TmpStr, Retval)
  Next i
End Sub