[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)