الحصول على اسم مستخدم نظام التشغيل ويندوز 💡

هذا الاجراء يقوم باحضار اسم المستخدم لنظام التشغيل ويندوز يعمل في vcl و fmx

function GetSystemUsername: String;
var
  StrUserName: PChar;
  Size: DWord;
begin
  Size:=250;
  GetMem(StrUserName, Size);
  GetUserName(StrUserName, Size);
  result:=StrPas(StrUserName);
  FreeMem(StrUserName);
end;