05-21-2020, 10:30 AM
(05-20-2020, 02:17 PM)newuser Wrote:Do you mean something like this?Code:function GetUsername: string;
var
NetUserName: PChar;
Size: DWORD;
begin
Result := '';
Size := 50;
NetUserName := StrAlloc(Size);
try
if GetUserNamew(NetUserName, Size) then
Result := NetUserName;
finally
StrDispose(NetUserName);
end;
end;
yes, thanks