Listbox добавление путей из проводника!

[Anfall]

Знаю, что не раз обсуждалось. Но помогите, напишите код.
Надо чтобы при перетаскивании файлов в ListBox1 добавлялись пути к файлам!

[KORN]

ну раз не раз обсуждалось, то почему бы поиском не воспользоваться7 лень7

[Anfall]

Конкретно такой пример - нет. А я ну никак не понимаЮ!

[Kotofff]

Держи конкретный пример с ListBox`ом ...
на скорую руку ...
Доработай сам ...

[Anfall]

Все хорошо! Но вот! Добавляются по одному! Как доработать? И как добавить фильтр? Типа, например, если файлы не .рар игнорить?

[Kotofff]

Группа файлов (вставляем этот код) :

num:=DragQueryFile(h,Dword(-1),nil,0);//кол-во перетаскиваемых файлов
  for i:=0 to num-1 do 
    begin 
    DragQueryFile(h,i,pchr,maxlen);
    fname := string(pchr);// берем текущий файл - что хотим делаем
    // например откидываем RAR файлы
    if Lowercase(ExtractFileExt(fname)) <> '.rar' then ListBox1.Items.Add(fname);
    end;

[Anfall]

Спасибки! Но что - то я запутался. Так и не понимаю куда код вставить? Если не тяжело объясните или киньте исходник плз!

[Ferz-2009]

procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;

procedure TForm1.WMDROPFILES(var Msg: TMessage);
var
  i,
  amount,
  size: integer;
  Filename: PChar;

  Path: string;
 LpBuf: PChar;
 sWinDir: String;
 SearchRec: TSearchRec;
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);
    if Lowercase(ExtractFileExt(filename)) = '.mp3' then 
    list.items.add(extractfilename(Filename));
    l.items.add(StrPas(Filename));
    StrDispose(Filename);
    end;
     DragFinish(Msg.WParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Form1.Handle, true);

Вторично:
У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор