Rubrik: Windows/System | 22.03.05 |
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: 11.325 |
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