DLLINFO

Regsvr32 dllinfo.dll

// получаем тип dll
DLLTYPE Cdlltester::GetDllType()
{
    WORD ImageType = 0;
    DLLTYPE result = ITISNOTDLL;
    HRESULT ( STDAPICALLTYPE * pfn ) ();

    // загружаем, но DllMain не вызываем, ни к чему
    HINSTANCE hi = ::LoadLibraryEx ( m_szFilename, NULL,
                                     DONT_RESOLVE_DLL_REFERENCES );

    if ( hi )
    {
        // пробуем на COM
        ( FARPROC& ) pfn = ::GetProcAddress ( hi, "DllGetClassObject" );

        if ( pfn )       // это COM dll !
            result = COMDLL;
        else
        {
            // DLL, но не COM
            // может .NET ?
            ImageType = ::GetExecutableImageType( hi );

            if ( ! EIT_IS_DLL( ImageType ) )
                result = ITISNOTDLL;
            else
            {
                if ( EIT_IS_DOTNET( ImageType ) )
                    result = NETDLL;
                else
                    // если, неCOM, неNET, значит просто dll
                    result = WIN32DLL;
            }

        }

        ::Sleep( 0 );
        ::FreeLibrary ( hi );
    }

    return result;
}

 IMAGE_DATA_DIRECTORY DataDirectory[IMAGE_NUMBEROF_DIRECTORY_ENTRIES];
 typedef struct _IMAGE_DATA_DIRECTORY
 {
   DWORD VirtualAddress; //относительный виртуальный адрес данных
   DWORD Size; //размер данных
 }

#define EIT_IS_DLL(t) ((-1!=(t))&&((t) & 0x1))
#define EIT_IS_DOTNET(t) ((-1!=(t))&&((t) & 0x2))

//-------------------------------------------------------------------
// Функция для проверки типа уже загруженного исполняемого файла
//
// Параметры:
//
//   hinst - HINSTANCE загруженного модуля
//
// Возвращаемое значение:
//
//   Если младший бит возвр.значения установлен, то файл является
//   динамической библиотекой (dll), иначе это exe-файл. Для
//   проверки можно использовать макрос EIT_IS_DLL();
//
//   Второй бит возвр.значения установлен, то файл является
//   файлом .NET. Для проверки можно использовать макрос
//   EIT_IS_DOTNET();
//
//   В случае неудачи возвращается -1.
//-------------------------------------------------------------------
WORD GetExecutableImageType( HINSTANCE hinst )
{
    PBYTE pFileBase;
    PIMAGE_DOS_HEADER pDosHeader;
    PIMAGE_NT_HEADERS pNtHeader;
    WORD result = 0;

    if ( !hinst )
        return -1;

    pFileBase = ( PBYTE ) hinst;

    // Убеждаемся в корректности
    pDosHeader = ( PIMAGE_DOS_HEADER ) pFileBase;

    if ( IMAGE_DOS_SIGNATURE == pDosHeader->e_magic )
    {
        pNtHeader = ( PIMAGE_NT_HEADERS ) ( pFileBase + pDosHeader->e_lfanew );

        if ( ( !IsBadReadPtr( pNtHeader, sizeof( pNtHeader->Signature ) ) ) &&
             ( IMAGE_NT_SIGNATURE == pNtHeader->Signature ) &&
             ( pNtHeader->FileHeader.Characteristics &
               IMAGE_FILE_EXECUTABLE_IMAGE ) )
        {
            // Делаем необходимые проверки
            if ( pNtHeader->FileHeader.
                 Characteristics & IMAGE_FILE_DLL )
                result |= 0x1;

            if ( pNtHeader->OptionalHeader.
                 DataDirectory[ IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR ].Size )
                result |= 0x2;
        }
    }

    return result;
}