[sandysman]

У меня появился такой вопрос, использую процедуру procedure Dropfile (var msg : TWMDropFiles) ; message WM_Dropfiles;
в listbox, в процедуре написал:

Код:

procedure TForm1.Dropfile(var msg: TWMDropFiles);
var cfileName :array [0..Max_path] of char;
begin
   try
   if Dragqueryfile (Msg.Drop, 0, CfileName, Max_path)>0 then
   begin
   listbox1.Items.Insert(0,extractfilename(Cfilename));
   listbox2.Items.Insert(0,Cfilename);
   Msg.Result:=0;
   end;
  Finally;
   DragFinish(msg.Drop);
   end;
end;

Админ: пользуемся тегами! при рецедиве - бан!

Для того чтобы переносить файлы mp3 в listboX при помощи простого перетаскивания мыши, по одному файлу все работает нормально, но если попробовать перенести несколько файлов, то переносится все равно один. Дак возникает вопрос, а как реализовать перенос нескольких файлов(множество)? наставте на путь истинный)