GetEnvironmentVariable-Funktion Diese Funktion ermittelt Umgebungsvariablen, die in der "Autoexec.bat" oder mittels der SetEnvironmentVariable-Funktion registriert wurden.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  260

Deklaration:

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

Beschreibung:
Diese Funktion ermittelt Umgebungsvariablen, die in der "Autoexec.bat" oder mittels der SetEnvironmentVariable-Funktion registriert wurden.

Parameter:

lpName	Erwartet den Namen der Umgebungsvariable, deren Wert ermittelt werden soll.
lpBuffer	Erwartet einen mit Leerzeichen initialisierten Puffer um denWert der Umgebungsvariable zu erhalten.
nSize	Erwartet die Größe des Puffers in Bytes.

Rückgabewert:
Zurückgegeben wird die Länge an Zeichen die der ermittelte Wert lang ist.

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 !!)
  Call 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