PB6.5的時代是用GetUserNameA, 昇到PB12 就要改用 GetUserNameW
==========================================================
// Gglobal external functions ----------
function boolean GetUserNameW(ref string lpBuffer, ref ulong nSize) library "ADVAPI32.DLL"
==========================================================
另外單獨宣告FUNCTION
// public function string uf_getusername()
boolean lb_rc
ulong lul_size = 255
string ls_name
ls_name = space(lul_size)
//--- pb6.5 non unicode -----------------------------------
//lb_rc = GetUserNameA( ls_name, lul_size)
// ---------------------------------------------------------------
lb_rc = GetUserNameW( ls_name, lul_size)
if not lb_rc THEN
return 'Unknow'
else
return ls_name
end if
