Eigener Dienst -> Speicherauslastung wächst und wächst...

[cherry]

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...