How to use and call the GetUserName API from Visual FoxPro

MORE INFORMATION

Sample code

   **--------------------------------------------------------**
   ** Program: Getuser.prg                                   **
   ** Purpose: Demonstrates how to use and call the Win32    **
   ** GetUserName API.                                       **
   **--------------------------------------------------------**
   PUBLIC  lpUserIDBuffer, ;
           nBufferSize, ;
           RetVal

   RetVal         = 0
   lpUserIDBuffer = SPACE(25) && Return buffer for user ID string
   nBufferSize    = 25        && Size of user ID return buffer

   DECLARE INTEGER GetUserName IN Win32API AS GetName ;
           STRING  @lpUserIDBuffer, ;
           INTEGER @nBufferSize

   RetVal=GetName(@lpUserIDBuffer, @nBufferSize)

   DEFINE WINDOW ShowInfo FROM 0,0 TO 5,70 ;
           FLOAT CLOSE ;
           TITLES "User ID Information" ;
           FONT "Courier",10

   ACTIVATE WINDOW ShowInfo
   MOVE WINDOW ShowInfo CENTER

   @ 0,1 SAY "User ID  : " + ;
     LEFT(lpUserIDBuffer,nbuffersize-1)
				

General information