//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GetUserName.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetUserName.
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, May, 26th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

#IFNDEF GET_RdsGetUserName
Define UNLEN For 256 // Maximum user name length

External_Function32 WinAPI_RdsGetUserName "GetUserNameA" AdvApi32.DLL Pointer lpBuffer Pointer lpnSize Returns DWord

  // 2003-07-29 ------------------------------------ Start Nils G. Svedmyr
#If PKG_Version<|CI9
  Function RdsGetUserName For Desktop Returns String
#ELSE
  Function RdsGetUserName Desktop Returns String
#ENDIF
  // 2003-07-29 ------------------------------------ Stop Nils G. Svedmyr
    String sUserName
    Integer iRetval iLength

    ZeroString UNLEN To sUserName
    Move UNLEN To iLength

    Move (WinAPI_RdsGetUserName (AddressOf (sUserName), AddressOf (iLength))) To iRetval

    If (iRetval <> 0) Begin
        Function_Return (CString (sUserName))
    End
    Else Begin
        Function_Return "Unable to retrieve username"
    End
End_Function // GetUserName
#ENDIF