Цитата:
|
Сообщение от alyamus
hi friends. dragdrop code very run ! no problem . but listbox and mediaplayer no automatic run  Pressing the play button after mediaplayer run ...
Код:
ListBox1.Items.Add(extractfilename(Copy(b, 1, DragQueryFile(Msg.WParam, i, @b[0], SizeOf(b)))));
DragFinish(Msg.WParam);
end;
mediaplayer dragdrop listbox automatic play pls ... |
Необходимо предусмотреть сохранение полного пути к файлам. Сейчас в ListBox1 сохраняется только имя файла без пути к нему.
Кроме того, там можно бросить не только файлы, но и папки, поэтому нужно перед добавлением в ListBox1 проверить, является ли элемент файлом или же папкой.