Вопрос: Как сделать Drag&Drop файлов с винта в мой ListBox?

Ответ :

Вся эта конструкция работает без проблем 

code:
--------------------------------------------------------------------------------

void __fastcall TfMain::FormCreate( TObject *Sender )
{
    DragAcceptFiles( Handle, TRUE );
}

//---------------------------------------------------------------------------

void __fastcall TfMain::OnDrop( TMessage& msg )
{
    HDROP hDrop = ( HANDLE ) msg.WParam;
    SetForegroundWindow( Handle );
    int count = DragQueryFile( hDrop, 0xFFFFFFFF, NULL, 0 );
    int index( 0 );
    char fName[ MAX_PATH ];
    while ( index < count ) {

        if ( DragQueryFile( hDrop, index, ( LPTSTR ) fName, MAX_PATH ) > 0 ) {
            String ext = ExtractFileExt( fName );
            if ( ext == ".html" || ext == ".htm" )
                AnalizeFile( fName );
        }
        ++index;
    }
    TForm:: Dispatch( &msg );
}





--------------------------------------------------------------------------------