GetUsernameEx

[JYPDWhite]

So funktioniert es bei uns:

Delphi-Quellcode:

procedure GetUserNameEx(NameFormat: DWORD;lpNameBuffer: LPSTR; nSize: PULONG);
          stdcall; external 'secur32.dll' Name 'GetUserNameExW';



procedure UsernameAuslesen();
var
  UserName_array: array[0..250] of char;
  szUserName : array[0..99] of Char;
  Size: DWORD;
begin
    FillChar(szUserName, SizeOf(szUserName), 0);
     Size := SizeOf(szUserName);
    GetUserName(szUserName, Size);  // das holt erstmal die GID des aktuellen Nutzers
    UserNameLogin:=  Uppercase(szUserName);
    Size := 250;
    GetUserNameEx(3, @UserName_array, @Size); // das ließt dann vorname nachname usw aus
end;

Das ist jetzt aus nem größeren Teil Code zusammenkopiert. Kann also sein dass es jetzt nicht Copy&Paste funktioniert