Написать макрос, типа FAILED, для проверки возвращаемых ошибок и вывода соответствующих сообщений

#define ERR(hr){if(((HRESULT)(hr)) < 0) ErrorMessage(__FILE__, __LINE__,(int)hr);}

#define ERR(hr) \
{ \
   HRESULT r = (HRESULT)(hr); \
   if(r < 0) ErrorMessage(__FILE__, __LINE__,(int)r); \
}

void check_error(HRESULT r)
{
   if (r < 0) ErrorMessage(__FILE__, __LINE__,(int)r);
}

#define ERR(invoke){\
   register HRESULT r = (HRESULT)(invoke); \
   if(r < 0){\
        if(ErrorMessage(__FILE__, __LINE__,(int)r)==IDRETRY){\
            __asm{int 3};\
        }\
   }\
}

int ErrorMessage(LPCSTR srcFile, const int LineNumber, const int hr){
    TCHAR ErrMes[1024*4];
    TCHAR moduleName[MAX_PATH];
    TCHAR srcFileName[MAX_PATH];
    TCHAR strError[MAX_PATH];
    const WCHAR *strErrorAddr;
    TCHAR buildDate[16];
 
    int lastError = GetLastError();
 
    GetModuleFileName(0, moduleName, MAX_PATH);
    int s,d;
    for(s=0; moduleName[s++] != 0;);
    for(; moduleName[--s-1] != 92;);
    for(d=0; moduleName[s-1] != 0; moduleName[d++] = moduleName[s++]);
 
    MultiByteToWideChar(1251, 0, srcFile, -1, srcFileName, sizeof(srcFileName));
    for(s=0; srcFileName[s++] != 0;);
    for(; srcFileName[--s-1] != 92;);
    for(d=0; srcFileName[s-1] != 0; srcFileName[d++] = srcFileName[s++]);
 
    MultiByteToWideChar(1251, 0, __DATE__, -1, buildDate, sizeof(buildDate));
 
    if(hr>=-100){
        FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM+FORMAT_MESSAGE_MAX_WIDTH_MASK, 0, lastError, 0, strError, sizeof(strError), 0);
        strErrorAddr = strError;
    }else{
        strErrorAddr = DXGetErrorString(hr);
    }
 
    wsprintf(ErrMes, TEXT("Error in module: %s\nSource file: %s - %d\nBuild date: %s\nReturn code: %d\n%s\n( All errors are made by mistake :)"),
                          moduleName,
                          srcFileName,
                          LineNumber,
                          buildDate,
                          hr,
                          strErrorAddr);
    int Answer = MessageBox(0, ErrMes, AppName, MB_ABORTRETRYIGNORE+MB_ICONERROR+MB_SETFOREGROUND);
    if(Answer == IDABORT) ExitProcess(-1);
    return Answer;
}