Перетасчить кучу файлов

[Nez]

Вот какой вопрос, я могу сделать, чтобы перетаскивать на форму по одному файлу, НО неполучается выделить много файлов и перетасчить на форму, причём чтобы все файлы по очереди обработались?

Вот код перетаскивания "по одному":

  protected
   procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;

procedure TForm2.WMDropFiles(var Msg: TMessage);
var
FileName: array[0..256] of char;
i:integer;
my_key:integer;
sDecrypted,s,s1:String;
begin
DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
{Обрабатываем перетаскиваемый файл}
kol:= kol+1;
s1:=Panel1.Caption;
Panel1.Caption:=Copy(s1,0,Pos('(',s1))+IntToStr(kol)+')';
{Обработка закончена}
DragFinish(THandle(Msg.WParam));
end;

Чего нехватает?

[mihali4]

По событию OnMouseDown выбираем все заранее выделенные файлы, например, в TStrings (или TListBox), "драгим" их, а процедуру WMDropFiles доделываем, чтобы она обрабатывала этот список, а не один-единственный файл. Вот и все...

[Nez]

Дело в том, что там перетаскиваются файлы из проводника.. То есть реальные файы, а не из ListBox-ов...

[mihali4]

procedure TForm1.WMDropFiles(var msg : TMessage);
var
  i, n  : word;
  size  : word;
  fname : string; 
  hdrop : word;
begin
  {1. Получаем хэндл для drop.}
  hdrop := msg.WParam;
  {2. Определяем кол-во файлов для drop.}
  n := DragQueryFile(hdrop, $ffff, nil, 0);
  {3. В цикле читаем имена файлов с путями.}
  for i := 0 to (n - 1) do begin
    {4. Определяем размер файла.}
    size := DragQueryFile(hdrop, i, nil, 0);
    {5. Длина имени не более 255 символов}
    if size < 255 then begin
      fname[0] := Chr(size);
      {6. Берем следующий файл.}
      DragQueryFile(hdrop, i, @fname[1], size + 1);
      {и повторяем все для оставшихся файлов}
    end;
  end;
  {7. Признак завершения - ноль.}
  msg.Result := 0;
  {8. Передаем управление "родному" обработчику.}
  inherited;
end;

[Nez]

Вот как-то непонятно, а как у меня будут отдельно все файлы то обрабатываться? то есть единственное что я могу сделать в данном случае, так это "успевать" записывать пути к файлам в Memo к примеру и потом по очереди обрабатывать?

А вот можно просто вставить в мой листинг

  n := DragQueryFile(hdrop, $ffff, nil, 0);
  for i := 0 to (n - 1) do begin
    size := DragQueryFile(hdrop, i, nil, 0);
    if size < 255 then begin
      fname[0] := Chr(size);
      DragQueryFile(hdrop, i, @fname[1], size + 1);
end;

{Вот здесь делать описание фалй, где файл: @fname - массив (256) типа char}

end;

Ну и End процедуры

???