Par2: Getting user name in Windows 1998-02-05 -- Troy Sorzano MODULE('Windows API')
GetUserNameA(*Cstring,*Long),BOOL,PASCAL,RAW
END
Loc:Login_Buffer CSTRING(256)
Loc:Login_Buffer_Size LONG
Loc:Login_Buffer_Size = 255
IF NOT GetUserNameA(Loc:Login_Buffer,Loc:Login_Buffer_Size)
MESSAGE('Error GetUserNameA','Windows API Error',ICON:HAND)
ELSE
MESSAGE('Name: '&Loc:Login_Buffer)
END
This works for us in CW 2.003 32bit.
I think this only gets the windows network loging. It might not get a Novell login.
Printed November 21, 2024, 12:35 pm This article has been viewed/printed 35198 times. |