angemeldeten User ermitteln [ERLEDIGT]

Konzeptionelles, Technisches, Termine, Fragen zum Hersteller usw.

Moderator: Moderatoren

Antworten
Benutzeravatar
Manfred
Foren-Administrator
Foren-Administrator
Beiträge: 21248
Registriert: Di, 29. Nov 2005 16:58
Wohnort: Kreis Wesel
Hat sich bedankt: 211 Mal
Danksagung erhalten: 71 Mal

angemeldeten User ermitteln [ERLEDIGT]

Beitrag von Manfred »

Bevor ich jetzt hier viel im Nirwana rumsuche: Den Computernamen ermitteln, dazu gibt es ein Beispiel. Wie komme ich an den derzeitg angemeldeten Usernamen? Den fische ich mir doch auch aus der Registry!?

Ist das der Eintrag, oder paßt der nur gerade zufällig?

Code: Alles auswählen

LOCAL nHKey      := HKEY_CURRENT_USER
         LOCAL cKeyName   := "Software\Microsoft\Windows\CurrentVersion\Explorer"
         LOCAL cEntryName := "Logon User Name"
Zuletzt geändert von Manfred am Mi, 14. Apr 2010 20:16, insgesamt 1-mal geändert.
Gruß Manfred
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
Benutzeravatar
Lewi
1000 working lines a day
1000 working lines a day
Beiträge: 830
Registriert: Di, 07. Feb 2006 14:10
Wohnort: Hamburg
Danksagung erhalten: 2 Mal

Beitrag von Lewi »

Hi Manfred,
mit GetEnv("USERNAME") bekommst Du den derzeit angemeldeten Usernamen.

Gruß, Olaf
Benutzeravatar
Manfred
Foren-Administrator
Foren-Administrator
Beiträge: 21248
Registriert: Di, 29. Nov 2005 16:58
Wohnort: Kreis Wesel
Hat sich bedankt: 211 Mal
Danksagung erhalten: 71 Mal

Beitrag von Manfred »

Hi Olaf,

siehste, ich wußte doch dass es einfach war. Danke, war mir total entfallen. :roll:
Gruß Manfred
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2950
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 14 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Beitrag von Wolfgang Ciriack »

Hallo Manfred,
ansonsten gibt es noch diese Möglichkeit:

Code: Alles auswählen

function xw32_GetUserName()
local nDll, cRetVal := space(256), nSize := 255

nDll := DllLoad( "ADVAPI32.DLL")
IF nDll != 0
    nRetVal := DllCall( nDll, DLL_STDCALL, "GetUserNameA", ;
                        @cRetVal, @nSize )
    DllUnload( nDll )
endif
return ( cRetVal )
Viele Grüße
Wolfgang
Antworten