Angemeldeten Benutzer aus Dienst ermitteln - Windows 7

[kuba]

Hallo,

ich verwende zur Zeit folgenden Code der in diesem Thread ermittelt wurde, um den aktuell angemeldeten Benutzer zu ermitteln:

Delphi-Quellcode:

function GetLUserName : string;
var
  Token : TJWSecurityToken;
begin
  Token := TJwSecurityToken.CreateWTSQueryUserToken();
  try
    try
      Result := Token.TokenOwner.AccountName[''];
      //AddToLog('Username requested: ' + Result);
    except
      on e : Exception do
      begin
        //AddToLog('@GetUsername' + #13#10 + e.Message);
        Result := '';
      end;
      on e : EJWSCLProcessNotFound do
      begin
        //AddToLog('No user is loged on');
        Result := '';
      end;
    end;
  finally
    Token.Free;
  end;
end;

Das funktioniert einwandfrei mit Windows Vista, mit Windows 7 crascht die Routine jedoch.
Kann mir jemand sagen woran das liegt ? Sind meine JEDI's zu alt ?

KUBA