RootsLabs

Permet d’obtenir le nom de l’utilisateur courant

• Systèmes :
  • Windows
  • Linux
  • Mac Os
• PureBasic 4.30

;@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()