` Printed Icetips Article

Icetips Article

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 May 11, 2024, 1:59 pm
This article has been viewed/printed 35114 times.