Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Unterschiedliche Alias-Namen für API-Funktionen liefern verschiedene Ergebnisse
Autor: Toast78
Datum: 14.01.03 10:25
Hallo, hoffe mir kann jemand meine Frage beantworten: Ich verwende unter Windows2k mit Access2k folgende API-Funktion: Private Declare Function apiGetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long Function fOSUserName() As String Dim lngLen As Long, lngX As Long Dim strUserName As String strUserName = String$(254, 0) lngLen = 255 lngX = apiGetUserName(strUserName, lngLen) If lngX <> 0 Then fOSUserName = Left$(strUserName, lngLen - 1) Else fOSUserName = "" End If End Function Unter Win98 habe ich mit Access XP bereits diese Funktion eingebunden: 'Hier die benötigten API-Deklarationen Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long 'Die Prozedur ermittelt den angemeldeten 'Benutzernamen Public Function GetBenutzer() As String Dim UserName As String Dim Result As Long UserName = Space$(256) Result = GetUserName(UserName, Len(UserName)) If InStr(UserName, Chr$(0)) > 0 Then _ UserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1) GetBenutzer = UserName End Function Zu meiner Verwunderung ist allerdings die zweite API-Deklaration unter Win2k nicht lauffähig (GetBenutzer liefert "") und ich frage mich: Warum? Liegt es an Access oder an Windows oder gar an mir?

Unterschiedliche Alias-Namen für API-Funktionen liefern vers...

143

Toast78

14.01.03 10:25

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