Какие *.bpl нужны проекту ?

// необходимо также через Project->Add to project.. добавить psapi.lib
#include <psapi.h>
//...
void ShowBPLs()
{
        ULONG processID = GetCurrentProcessId();
        HANDLE hProcess = OpenProcess( PROCESS_QUERY_INFORMATION | PROCESS_VM_READ,
                                FALSE,
                                processID );
 
        HMODULE hMods[1024];
        DWORD cbNeeded;
 
        String sBPLs = "";
 
        if( EnumProcessModules(hProcess, hMods, sizeof(hMods), &cbNeeded))
        {
                for ( UINT i = 0; i < (cbNeeded / sizeof(HMODULE)); i++ )
                {
                        char szModName[MAX_PATH];
 
                        // Ïîëó÷àåì ïîëíûé ïóòü ôàéëà ìîäóëÿ.
                        if ( GetModuleFileNameEx( hProcess, hMods[i], szModName, sizeof(szModName)))
                        {
                                if ( ExtractFileExt(szModName) == ".bpl" )
                                        sBPLs += ExtractFileName(szModName) + "\r\n";
                        }
                }
        }
        CloseHandle(hProcess);
        ShowMessage(sBPLs);
}