Как определить имя пользователя запустившего приложения?

← →
6h (2007-05-09 08:11) [0]

Может кто подскажет как можно определить имя пользователя запустившего приложение (желательно исходя из ID этого процесса).

← →
begin...end © (2007-05-09 20:30) [1]

OpenProcess -> OpenProcessToken(...TOKEN_QUERY...) -> GetTokenInformation(...TokenUser...) -> LookupAccountSid

← →
Iv_ © (2007-05-11 15:17) [2]

может так?
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 := "Unknown";
end;

← →
Anatoly Podgoretsky © (2007-05-11 17:01) [3]

> Iv_ (11.05.2007 15:17:02) [2]

И долго потом будут ломать голову почему не работает, очень информативное сообщение

Как определить имя пользователя запустившего приложения? Найти похожие ветки