A-AA+then

อ่านชื่อ 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;

Delphi

Relate

^