WINDOWS-API：取得当前用户账户名-GetUserName

bool TFormMain::GetCurrentProcessUser(AnsiString& strUserName)
{
bool bRet = false;
//strUserName.Empty();
try
{
　　DWORD dwSize = MAX_PATH;
　　TCHAR *pszName = new TCHAR[dwSize];
　　if (!GetUserName(pszName, &dwSize))
　　{
　　　　delete[] pszName;
　　　　pszName = new TCHAR[dwSize];
　　　　bRet = GetUserName(pszName, &dwSize);
　　}
 
　　if (pszName != NULL)
　　{
　　　　strUserName = pszName;
　　　　delete[] pszName;
　　}
}
catch (...)
{
　　bRet = false;
}
 
return bRet;
}