habs jetzt mal so...
Delphi-Quellcode:
function TSisterWatch.GetSession: string;
begin
try
Token := TJwSecurityToken.CreateWTSQueryUserToken(WtsGetActiveConsoleSessionID);
// Token := TJwSecurityToken.CreateCompatibilityQueryUserToken(MAXIMUM_ALLOWED, 'explorer.exe');
Token.ImpersonateLoggedOnUser;
//do stuff on user’s behalf
Result := Token.GetTokenUserName;
except
Result := '';
end;
Token.RevertToSelf;
Token.Free;
end;
--> Ohne wachsende Speicherauslastung
scheint aber "nur" als dienst (systemkonto) zu funktionieren!!! -> Habs zuerst als normales Programm getestet... ist das normal?
muss jetzt leider gleich weg... versuche morgen noch mit der Ex Version.... bei der Ex Version muss man noch nen Terminalserver angeben als Parameter, geht das also auch Remote? nehm ich an...