Определение имени пользователя из сервиса

[Garacio_cain]

Программа работает как сервис. Одной из функций является определение имени пользователя, вошедшего в систему. Делается это кодом:

function username: 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 := 'Unknown';
end;

Код работает верно и определяет имя пользователя, но только из под которого запущена служба. Возможно как нибудь определить имя пользователя, который вошел в систему?

[Stilet]

Попробуй перечислить пользователей через NetWkstaUserEnum, натравив его на локальный комп.

[Garacio_cain]

Как то не охотно сработало. Вешает систему а через секунд 10 выдает сообщение об ошибке.