Deklaration: Declare Function GetEnvironmentVariable Lib "kernel32" _ Alias "GetEnvironmentVariableA" ( _ ByVal lpName As String, _ ByVal lpBuffer As String, _ ByVal nSize As Long) As Long Beschreibung: Parameter:
Rückgabewert: 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 Diese Seite wurde bereits 11.339 mal aufgerufen. |
sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |