GetUsername unter Windows 10

[Sir Rufo]

Eine weitere Möglichkeit ist

Delphi-Quellcode:

function GetUserName: string;
var
  lpBuffer  : LPTSTR;
  lpnSize   : DWORD;
  lSuccess  : Boolean;
  lLastError: Cardinal;
begin
  lpBuffer := nil;
  lpnSize  := 0;

  repeat
    lSuccess := Winapi.Windows.GetUserName( lpBuffer, lpnSize );
    if not lSuccess
    then
      begin
        lLastError := GetLastError( );
        case lLastError of
          ERROR_INSUFFICIENT_BUFFER:
            begin
              SetLength( Result, lpnSize );
              lpBuffer := LPTSTR( Result );
            end;
        else
          RaiseLastOSError( lLastError, sLineBreak + 'GetUserName' );
        end;
      end
    else
      SetLength( Result, lpnSize - 1 );
  until lSuccess;
end;