GetUserNameEx

[Luckie]

Danke für die Tipps. Sieht jetzt so aus:

Delphi-Quellcode:

function GetLoggedOnUserNameEx(fFormat: DWORD; var Username: String): DWORD;
var
  Size: DWORD;
  Buffer: array [0..1024] of Char;
begin
  Result := 0;
  Size := sizeof(Buffer);
  if GetUserNameEx(fFormat, Buffer, Size) then
    SetString(Username, Buffer, Size)
  else
    Result := GetLastError;
end;

Fehlermeldung bleibt allerdings. Geht es denn bei dir?