GetUsername unter Windows 10

[strom]

Diese Funktion läuft unter Windows 10 nicht

Warum?

Delphi-Quellcode:

uses
  Winapi.Windows

Delphi-Quellcode:

function GetUsername: String;
var
  Buffer: array[0..255] of Char;
  Size: DWord;
begin
  Size := SizeOf(Buffer);
  if not Windows.GetUserName(Buffer, Size) then
    RaiseLastOSError; //RaiseLastWin32Error; {Bis D5};
  SetString(Result, Buffer, Size - 1);
end;