![]() |
|
#1
|
|||
|
|||
![]() hi friends. dragdrop code very run ! no problem . but listbox and mediaplayer no automatic run
![]() Код:
procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle, True); end; procedure TForm1.FormDestroy(Sender: TObject); begin DragAcceptFiles(Handle, False); end; procedure TForm1.WMDROPFILES(var Msg: TMessage); var l: Integer; i: Integer; b: array [0..MAX_PATH-1] of Char; begin l:=DragQueryFile(Msg.WParam, $ffffffff, nil, 0); for i:=0 to l-1 do ListBox1.Items.Add(extractfilename(Copy(b, 1, DragQueryFile(Msg.WParam, i, @b[0], SizeOf(b))))); DragFinish(Msg.WParam); end; Bargest: use tags [ code ] [ /code ]! mediaplayer dragdrop listbox automatic play pls ... Последний раз редактировалось Bargest, 12.09.2012 в 14:39. |
#2
|
||||
|
||||
![]() Цитата:
Кроме того, там можно бросить не только файлы, но и папки, поэтому нужно перед добавлением в ListBox1 проверить, является ли элемент файлом или же папкой. |
#3
|
|||
|
|||
![]() sory
![]() Do you have a small project ![]() |
#4
|
||||
|
||||
![]() Please, read rules.
Цитата:
Цитата:
![]() Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
@Rafa3L (12.09.2012)
|