윈도우 사용자 계정 알아내기

// 윈도우 사용자 이름 알아내기.
function GetUserFromWindows : String;
var
   UserName                         : String;
   UserNameLen                      : Dword;
begin
   UserNameLen := 255;
   SetLength(userName, UserNameLen);
   if GetUserName(PChar(UserName), UserNameLen) then
      Result := Copy(UserName,1,UserNameLen - 1)
   else
      Result := '';
end;