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

Вопрос: Как сделать 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 ); } --------------------------------------------------------------------------------

Содержание раздела