HRESULT値のエラメッセージの取得

    static CString GetErrorMessage(HRESULT hr)

    {

        TCHAR szResult[1024];

        ::FormatMessage( 

            FORMAT_MESSAGE_FROM_SYSTEM, 

            NULL,

            hr,

            MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),

            szResult,

            1024,

            NULL);

        return szResult;

    }