So... Dienst installiert, gestartet und getestet mit folgenden Code:
Delphi-Quellcode:
function GetUserName : string;
var
sl : TStringList;
Token : TJwSecurityToken;
begin
Token := TJwSecurityToken.CreateTokenEffective(TOKEN_READ);
try
Result := Token.TokenOwner.AccountName[''];
finally
Token.Free;
end;
end;
Ergebnis: Administratoren
Auch wenn keine Admins/niemand angemeldet sind.
Habe ich die falsche Variable genommen?
MfG
xZise
[edit]
JwaWtsApi32.WTSQueryUserToken(????);
Was soll ich da übergeben
[/edit]