Den angemeldeten User in Windows ermitteln

[RWarnecke]

Hallo,

ich lasse ein Programm über eine Softwareverteilung mit dem User SYSTEM starten. Das funktioniert auch wunder bar. Ich habe nur ein Problem, im Programm benutze ich die folgende Funktion um den Usernamen zu ermitteln :

Delphi-Quellcode:

function GetCurrUserName: string;
var
  Size              : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

Nur leider liefert mir diese Funktion den Benutzernamen zurück, unter welchen ich das Programm ausführe. Also in meinem Fall SYSTEM. Gibt es noch einen anderen Weg um an den aktuell angemeldeten Benutzer zu kommen ?