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;

[Bernhard Geyer]

was läuft nicht?

[strom]

so ist es richtig!

Delphi-Quellcode:

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

[HolgerX]

Hmm..
besser so

Delphi-Quellcode:

function GetUsername: String;
var
  Buffer: array[0..256] of Char;  // UNLEN (= 256) +1 (definiert in Lmcons.h) 
  Size: DWord;
begin
  Size := length(Buffer);  // length stat SizeOf, da Anzahl in TChar und nicht BufferSize in Byte
   if not Winapi.Windows.GetUserName(Buffer, Size) then
    RaiseLastOSError;
  SetString(Result, Buffer, Size - 1);
end;

Lt.
https://msdn.microsoft.com/de-de/lib...(v=vs.85).aspx

ist Size die Länge in TChars, nicht in Bytes...

SizeOf liefert bei Unicode aber nicht die 256 Chars, sondern 515 Bytes zurück, somit 512 TChars...

[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;