1. bcb通用函數庫

// 获得计算机名

ansistring getcomputername()

{

    char name[max_computername_length + 1];

    dword size = max_computername_length + 1;

    if(getcomputername(name,&size))

        return ansistring(name);

    return "";

}

// 获得当前用户名

ansistring getusername()

{

    char username[max_computername_length + 1];

    dword size = max_computername_length + 1;

    if(getusername(username,&size))

        return ansistring(username);

    return "";

}