Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: hilfe DIETER !!!
Autor: JOMA
Datum: 24.06.03 08:46
Hallo! Etwas Beispielcode: 'Notwendig für die Ermittlung des Environmentvariableninhaltes Declare Function GetEnvironmentVariable Lib _ "kernel32.dll" Alias "GetEnvironmentVariableA" (ByVal _ lpName As String, ByVal lpBuffer As String, ByVal _ nSize As Long) As Long 'Notwendig für das Setzen des Environmentvariableninhaltes Declare Function SetEnvironmentVariable Lib _ "kernel32.dll" Alias "SetEnvironmentVariableA" (ByVal _ lpName As String, ByVal lpValue As String) As Long 'Call SetEnvironmentVariable("HALLOUSER", "Wie gehts?") Public Sub umgebungsvariablen_anzeigen() 'Anzeigen aller Umgebungsvariablen im Format a=12333' Dim X%, Buffer$ X = 1 Do Buffer = Environ$(X) If Buffer <> "" Then MsgBox (Buffer) X = X + 1 Else Exit Do End If Loop End Sub Public Function inhalt_umgebungsvariable(s_variable As String) As String 'Holt den Inhalt einer gewünschten Umgebungsvariablen Dim Buffer As String, l As Long l = 256 Buffer = String$(l, Chr$(0)) l = GetEnvironmentVariable(s_variable, Buffer, l) If l <> 0 Then Buffer = Left(Buffer, l) inhalt_umgebungsvariable = Buffer Else inhalt_umgebungsvariable = "" End If 'If l <> 0 Then ' Buffer = Left(Buffer, l) ' MsgBox ("Umgebungsvariable " + s_variable = " & Chr$(34)" _ ' & Buffer & Chr$(34)) 'End If End Function 0

Umgebungsvariable schreiben	212	ansi	23.06.03 13:41
Re: hilfe DIETER !!!	127	ansi	23.06.03 14:28
Re: hilfe DIETER !!!	120	Joschi	23.06.03 15:56
Re: hilfe DIETER !!!	373	JOMA	24.06.03 08:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen