Obtenir le nom d'utilisateur courant

[Progi1984]

Code : Linux & Windows

Code : Tout sélectionner

;@author : Progi1984
;@desc : Returns the current username
ProcedureDLL.s System_GetCurrentUser()
  Protected sUsername.s
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux ;{
      sUsername = GetEnvironmentVariable("USERNAME")
    ;}
    CompilerCase #PB_OS_Windows ;{
      Protected *MemUserName
      Protected lMemSize.l
      lMemSize = 1000
      *MemUserName = AllocateMemory(lMemSize)
      GetUserName_(*MemUserName, @lMemSize)
      sUsername = PeekS(*MemUserName)
      FreeMemory(*MemUserName)
    ;}  
  CompilerEndSelect
  ProcedureReturn sUsername
EndProcedure
Debug System_GetCurrentUser()