XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Usernamen ermitteln
Namen des eingeloggten Users ermitteln
Def @Getusername(2) !ADVAPI32,GetUserNameA
Declare Usize#,Uname#,Fehler&
Windowstyle 31
Windowtitle Usernamen ermitteln
Window 0,0-640,440
Dim Usize#,4
Dim Uname#,256
Long Usize#,0=256
Let Fehler&=@Getusername(Uname#,Usize#)
Print API Fehlercode=+@Str$(Fehler&)
Print Username=+@String$(Uname#,0)
Print Länge mit abschließendem Nullbyte=+@Str$(@Long(Usize#,0))
Dispose Uname#
Dispose Usize#

While 0=0

    Waitinput

Wend