[Amin_Mansouri]

از این تابع برای بدست آوردن UserNameکسی که Login کرده است استفاده می شود.

کد:

function GetUserName : String;
var
   pcUser   : PChar;
   dwUSize : DWORD;
begin
   dwUSize := 21;
   GetMem( pcUser, dwUSize );
   try
      if Windows.GetUserName( pcUser, dwUSize ) then
         Result := pcUser
   finally
      FreeMem( pcUser );
   end;
end;