Форум SoftWeb.ru

Форум SoftWeb.ru (https://softweb.ru/index.php)
-   Обсуждение вопросы/ответы (https://softweb.ru/forumdisplay.php?f=644)
-   -   Проблема с добавлением файлов в список ListBox (https://softweb.ru/showthread.php?t=37543)

CroW 12.07.2010 20:32

Проблема с добавлением файлов в список ListBox
 
Пишу медиаплеер с bass.dll, все получается но не могу сделать так, чтобы при перетаскивании плейлиста на форму он не добавлялся в ListBox, а загружались файлы из него и добавлялись. в плейлисте просто ссылки на файлы на каждой строке, список не M3U. с перетаскиванием файлов я разобрался, теперь вот только это, помогите чем можете, плз!!!:help:

Pagon 13.07.2010 21:22

Re: Проблема с добавлением файлов в список ListBox
 
CroW, покажи часть кода или исходник программы, чтобы можно было посмотреть.

CroW 13.07.2010 22:41

Re: Проблема с добавлением файлов в список ListBox
 
Вот например процедура, для перетаскивания файлов и добавления их в плейлист:

Код:

procedure TForm1.WMDROPFILES (var Msg: TMessage);
var
  i,
  amount,
  size: integer;
  Filename: PChar;
begin
  inherited;
  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
  for i := 0 to (amount - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Filename:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Filename, size);
    ListBox1.Items.Add(StrPas(Filename));
    StrDispose(Filename);
  end;
  DragFinish(Msg.WParam);
end;

А как сделать то, что меня интересует? т.е. при перетаскивании плейлиста, загружать из него? эту процедуру мне помог сделать и все объяснил сосед, он шарит)

Wogy 11.03.2015 13:55

Re: Проблема с добавлением файлов в список ListBox
 
По читай про библеотеки....


Часовой пояс GMT +3, время: 12:46.

Работает на vBulletin® версия 3.8.12 by vBS.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot