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
