ich habs jetzt mal so gemacht...
Delphi-Quellcode:
function TSisterWatch.GetSession: string;
begin
try
Token := TJwSecurityToken.CreateWTSQueryUserTokenEx(nil{or a TJwTerminalServer object}, WtsGetActiveConsoleSessionID);
// Token.ImpersonateLoggedOnUser; <- Its not necessary
//do stuff on user’s behalf
Result := Token.GetTokenUserName;
except
Result := '';
end;
Token.RevertToSelf;
Token.Free;
end;
1'000'000'000 Dank euch allen! Scheint prima zu funktionieren.