هل تريد معرفت اسمك الذي قمت بتسجيله في الويندوز

بسم الله الرحمن الرحيم

اخوتي الأعزاء

هل تريدون معرفت الأسم الذي قمتم بتسجيله لتصريح ويندوز

اذا فاليكم هذا الكود :

function GetUserName : String;

var

Name : PChar;

Size : DWORD;

begin

Size := SizeOf(ShortString);

GetMem(Name, Size);

try

GetUserName(Name, Size);

Result := Trim(StrPas(Name));

finally

FreeMem(Name, Size);

end;

end;

وتقبلوا اطيب تحياتي اخوكم SUM