Hallo,
ich möchte den Namen eines Windows-Benutzers ermitteln. Dazu möchte ich die API GetUserNameEx benutzen. Aber mein Code stürzt immer ab:
Code
Def GetUserNameEx(3) !"secur32","GetUserNameExA"
declare test&,b#
Dim b#,256
test&=GetUserNameEx(3,b#,256)
Messagebox(Char$(b#,0,test&),"",0)
Dispose b#
Kann mir jemand sagen was ich falsch mache? Ich hab auch schon versucht die DLL erst in den Speicher zu laden:
Code
declare test&,secur&
secur&=ImportDLL($SysPath+"\\secur32.dll","")
Dim b#,256
test&=GetUserNameExA(3,b#,256)
Messagebox(Char$(b#,0,test&),"",0)
FreeDLL secur&
Dispose b#
...aber das bringt auch nichts.