Clarion - Identificar sesion/usuario de windows

Hola: es posible identificar la sesion de windows o el nombre del usuario activo ??

Gracias

Hola oscar
en
Inside the global Map

MODULE('Windows API')
GetUserNameA(*Cstring,*Long),BOOL,PASCAL,RAW !ojo: 32 bits
GetComputerNameA(*Cstring,*Long),BOOL,PASCAL,RAW
.

y en una windows
llama a la api

TempBufferSize = 255
If ~GetUserNameA(TempBuffer,TempBufferSize)
Message('Error en GetUserNameA','Error',ICON:HAND)
Else
l:usuario=TempBuffer
end!if
!
TempBufferSize2 = 255
If ~GetComputerNameA(TempBuffer2,TempBufferSize2)
Message('Error en GetComputerNameA','Error',ICON:HAND)
Else
l:Compu=TempBuffer2
end!if