XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Computernamen ermitteln
Def @Getcomputername(2) !kernel32,GetComputerNameA
Declare Csize#,Cname#,Fehler&
Windowstyle 31
Windowtitle Systemnamen ermitteln
Window 0,0-640,440
Dim Csize#,4
Dim Cname#,256
Long Csize#,0=256
Let Fehler&=@Getcomputername(Cname#,Csize#)
Print API Fehlercode=+@Str$(Fehler&)
Print Systemname=+@String$(Cname#,0)
Print Länge mit abschließendem Nullbyte=+@Str$(@Long(Csize#,0))
Dispose Cname#
Dispose Csize#

While 0=0

    Waitinput

Wend