[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 при помощи простого перетаскивания мыши, по одному файлу все работает нормально, но если попробовать перенести несколько файлов, то переносится все равно один. Дак возникает вопрос, а как реализовать перенос нескольких файлов(множество)? наставте на путь истинный)

[cotseec]

получаем количество файлов , потом в цикле выдергиваем пути к файлам, например

Код:

var
   cfileName :array [0..Max_path] of char;
   CountFile,
   i:integer;
begin
try
   CountFile:=Dragqueryfile (Msg.Drop, $FFFFFFFF, CfileName, Max_path);
   for i:=0 to SountFile-1 do
     if Dragqueryfile (Msg.Drop, i, 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;

можно, конечно, пойти дальше и еще запрашивать размер буфера, но как показывает практика MAX_PATH в большинстве случаев нормально (на то он и MAX_PATH)

[sandysman]

Спасибо, как-то я сам не додумался))