อ่านชื่อ username ของ windows

อ่านชื่อ username ของ windows ที่ login เข้าระบบ windows ขณะนี้

Function GetUsername: String;

Var

   buf: Array [0..100] of Char;

   bufsize: DWORD;

Begin

   buf[0] := #0;

   bufSize := Sizeof(buf);

   WNetGetUser( Nil, buf, bufsize );

   Result := buf;

End;