Obtener el usuario actual

Obtener el usuario actual

Obtener el usuario actual : Multi-millones de consejos para hacer su vida mas facil.

Como conseguir que el usuario actual nombre de inicio de sesion.
funcion UserName : String
var
& nbsp & nbsp Tamaño : DWord
& nbsp & nbsp Nombre : PChar
begin
& nbsp & nbsp Nombre := StrAlloc(256)
& nbsp & nbsp Tamaño := 255
& nbsp & nbsp si GetUsername(Nombre,Tamaño), a continuacion,
& nbsp & nbsp & nbsp & nbsp Resultado := Cadena de caracteres(Nombre)
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp Resultado := '
& nbsp & nbsp StrDispose(Nombre)
fin