Возвращает пользователя под которым выполнен заход в систему Delphi

Возвращает пользователя под которым выполнен заход в систему

function GetCurrentUserName : string;constcnMaxUserNameLen = 254;varsUserName : string;dwUserNameLen : DWord;begindwUserNameLen := cnMaxUserNameLen-1;SetLength( sUserName, cnMaxUserNameLen );GetUserName(PChar( sUserName ),dwUserNameLen );SetLength( sUserName, dwUserNameLen );Result := sUserName;end;