Получить имя текущей учетной записи

[garuna]

Подскажите, как получить имя текущей учетной записи? Именно имя той учетной записи, под которой зашли в систему, а не той под которой работает процесс.

[kropotkina-alice]

http://www.programmersforum.ru/showthread.php?t=242541

[garuna]

Спасибо, но это не то.

Нашел решение, если кому пригодится, то вот:

  function WTSGetActiveConsoleSessionId: THandle; external Kernel32 Name 'WTSGetActiveConsoleSessionId';
  function WTSQuerySessionInformation(hServer: THandle; SessionId: DWord; WTSInfoClass: Byte; ppBuffer: Pointer; var pBytesReturned: DWord): Boolean; stdcall; external 'Wtsapi32.dll' Name 'WTSQuerySessionInformationW';
  procedure WTSFreeMemory(pMemory: Pointer); external 'Wtsapi32.dll' Name 'WTSFreeMemory';

function GetDesktopUser: string;
var
 pBytesReturned: Cardinal;
 ppBuffer: PChar;
begin
 ppBuffer:= '';
 if WTSQuerySessionInformation(0, WTSGetActiveConsoleSessionId, 5, @ppBuffer, pBytesReturned)
 then Result:= ppBuffer;
 WTSFreeMemory(ppBuffer);
end;